2016-12-28 24 views
0

我想選擇的時間和我的表現公式列表中的分鐘,在一個單元格中顯示他們的Excel(H列)VBA Excel中:選擇小時從列表分鐘

時間: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" 

謝謝。

+0

你試過'Application.WorksheetFunction.Text(yourdate,「HH-MM」) –

+0

我不明白,你可以看到我的表現公式的圖片,我在我的問題增加。 –

+0

所有這些代碼如何與問題相關? –

回答

0
Sheets("Reservations").Range("H" & i).Value = _ 
    Format(TimeSerial(ComboBox5.Value, ComboBox6.Value, 0), "hh:mm") 
Sheets("Reservations").Range("I" & i).Value = _ 
    Format(TimeSerial(ComboBox7.Value, ComboBox8.Value, 0), "hh:mm")