VBA Excel:从列表中选择小时和分钟

时间:2016-12-28 18:28:13

标签: excel vba

我想从我的公式中的列表中选择小时和分钟,并将它们显示在Excel上的一个单元格中(H列)

小时:ComboBox5

分钟:ComboBox6

Formular

我的剧本的一部分:

    Sheets("Reservations").Range("A" & i).Value = UserForm1.TextBox1.Value

    Sheets("Reservations").Range("B" & i).Value = UserForm1.TextBox2.Value

    Sheets("Reservations").Range("C" & i).Value = UserForm1.TextBox3.Value

    Sheets("Reservations").Range("D" & i).Value = UserForm1.TextBox4.Value

    Sheets("Reservations").Range("E" & i).Value = UserForm1.TextBox5.Value

    Sheets("Reservations").Range("F" & i).Value = UserForm1.ComboBox4.Value

    Sheets("Reservations").Range("G" & i).Value = DateSerial(UserForm1.ComboBox3.Value, UserForm1.ComboBox2.Value, UserForm1.ComboBox1.Value)

    Sheets("Reservations").Range("H" & i).Value = UserForm1.ComboBox5.Value

    Sheets("Reservations").Range("I" & i).Value = UserForm1.ComboBox7.Value

    Sheets("Reservations").Range("E" & i).NumberFormat = "00 00 00 00 00"

    Sheets("Reservations").Range("H" & i).NumberFormat = "hh\Hmm"

    Sheets("Reservations").Range("I" & i).NumberFormat = "hh\Hmm"

    Sheets("Reservations").Range("G" & i).NumberFormat = "dd mmmm yyyy"

谢谢。

1 个答案:

答案 0 :(得分:0)

    floatBuffer.position(position);
    floatBuffer.put(data, startIndex, count);
    floatBuffer.position(0);