コンボボックスの使い方

投稿者 : 初心者     投稿日時 : 2023/08/31(Thu) 00:24:56     OS : Windows 11     EXCEL : Office 365

---

練習で簡単な勤怠管理を作成しようとしております。時刻をコンボボックスで作成しております。
下記のようにコンボボックスを作成いたしまして、コマンドボタン実行後Excelシートに文字列表記ではなく数値で表示させたい場合、どうすればよろしいでしょうか？

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub UserForm_Initialize()

    Dim j As Long
    Dim g As Long
    
    For j = 0 To 23
       
       UserForm1.ComboBox2.AddItem j
       UserForm1.ComboBox4.AddItem j
    
    Next j
    
    For g = 0 To 59
    
       UserForm1.ComboBox3.AddItem g
       UserForm1.ComboBox5.AddItem g
        
    Next g
    
    
End Sub

投稿者 : さんこう     投稿日時 : 2023/08/31(Thu) 02:41:56

---

＞Excelシートに文字列表記ではなく数値で表示させたい

何をしたいのかよくわかりませんが、こんな感じでいかがでしょうか。

Range("A1") = Val(UserForm1.ComboBox2.Value) * 100 + Val(UserForm1.ComboBox4.Value)

参考になれば

＜vba 文字列 数値 変換 時間＞
https://www.google.com/search?q=vba+%E6%96%87%E5%AD%97%E5%88%97+%E6%95%B0%E5%80%A4+%E5%A4%89%E6%8F%9B+%E6%99%82%E9%96%93&sca_esv=561360965

投稿者 : higeru     投稿日時 : 2023/08/31(Thu) 08:56:18

---

　ComboBox2,3 が始業時刻の時・分、ComboBox4,5 が終業時刻の時・分ということなのだという前提で、たとえば始業時刻を（アクティブシートの）A1 に書き出すなら、
　　Range("A1") = ComboBox1.Value & ":" & ComboBox2.Value （"UserForm1." は無くてもよい）
とするのが簡単で、 Excel が時刻と解釈して A1 の表示形式を変えてくれるはずです。もしそうならなければ予め A1 の表示形式を設定しておけばよいかと。

投稿者 : てらてら     投稿日時 : 2023/09/12(Tue) 08:30:07

---

こんにちは。

>コマンドボタン実行後Excelシートに文字列表記ではなく数値で表示させたい場合、どうすればよろしいでしょうか？
大きい数値を扱うわけではないので、CIntが適切かと思います。

Private Sub CommandButton1_Click()
'UserForm1のコマンドボタン
    Dim r As Long
    r = Selection.Row
    Cells(r, "A") = CInt(Me.ComboBox2)
    Cells(r, "B") = CInt(Me.ComboBox3)
    Cells(r, "D") = CInt(Me.ComboBox4)
    Cells(r, "E") = CInt(Me.ComboBox5)
    
    Unload Me
End Sub