Snasui Excel Forum

Code: Select all

Private Sub CmbUpdate_Click()
    Select Case CommandButton.Control
    Case cmb_Date1
        'ถ้ากดจากปุ่มกรอกวันชำระเงิน ผลลัพธ์ B9 = 20 กรกฎาคม 2565
        Range("B9") = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
    Case cmb_Date2
        'ถ้ากดจากปุ่มวันยืม ผลลัพธ์ F10 = 20 กรกฎาคม 2565
        Range("F10") = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
    Case cmb_Date3
        'ถ้ากดจากปุ่มวันคืน ผลลัพธ์ J7 = 20 กรกฎาคม 2565
        Range("J7") = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
    End Select
    Unload Me
End Sub

Code: Select all

Public x As Range

Code: Select all

Private Sub cmb_Date1_Click()
    Set x = Range("b9")
    FormAddDate.Show
End Sub

Private Sub cmb_Date2_Click()
    Set x = Range("f10")
    FormAddDate.Show
End Sub

Private Sub cmb_Date3_Click()
    Set x = Range("j7")
    FormAddDate.Show
End Sub

Code: Select all

Private Sub CmbUpdate_Click()
    
'    Select Case CommandButton.Name
'    Case cmb_Date1
'        'ถ้ากดจากปุ่มกรอกวันชำระเงิน ผลลัพธ์ B9 = 20 กรกฎาคม 2565
'        Range("B9") = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
'    Case cmb_Date2
'        'ถ้ากดจากปุ่มวันยืม ผลลัพธ์ F10 = 20 กรกฎาคม 2565
'        Range("F10") = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
'    Case cmb_Date3
'        'ถ้ากดจากปุ่มวันคืน ผลลัพธ์ J7 = 20 กรกฎาคม 2565
'        Range("J7") = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
'    End Select
    x.Value = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
    Unload Me
End Sub