Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Data")
Dim last_row As Long
last_row = Application.WorksheetFunction.CountA(sh.Range("a:a"))
'------------------------------------------------------------
If Me.TextBox1 = "" Then
    MsgBox "คุณยังไม่กรอกวันที่", vbCritical
    Me.TextBox1.SetFocus
    Exit Sub
    End If
'-----------------------------------------------------------------
sh.Range("A" & last_row + 1).Value = "=row()-1"
sh.Range("B" & last_row + 1).Value = TextBox1.Value
'-----------------------------------------------------------------
Me.TextBox1.Value = ""
Call Refresh_Data
End Sub

Code: Select all

'ดึงข้อมูลจาก listbox1 ไปแสดงที่ textbox1
Private Sub CommandButton2_Click()
If Me.TextBox2 = "" Then
    MsgBox "กรุณาเลือกรายการที่จะแก้ไข และอัพเดต"
Exit Sub
End If
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Data")
Dim Selected_row As Long
Selected_row = Application.WorksheetFunction.Match(CLng(Me.TextBox2.Value), sh.Range("A:A"), 0)
'------------------------------------------------------------
If Me.TextBox1 = "" Then
    MsgBox "คุณยังไม่กรอกวันที่", vbCritical
    Me.TextBox1.SetFocus
    Exit Sub
    End If
'-----------------------------------------------------------------
sh.Range("B" & Selected_row).Value = Me.TextBox1
'-----------------------------------------------------------------
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Call Refresh_Data
End Sub

Code: Select all

Dim arrDte As Variant
'Other code
arrDte = VBA.Split(TextBox1.Value, "/")
sh.Range("B" & last_row + 1).Value2 = DateSerial(arrDte(2), arrDte(1), arrDte(0)) 'TextBox1.Value
'Other code

Code: Select all

    Me.TextBox1.Value = VBA.Format(Me.ListBox1.List(Me.ListBox1.ListIndex, 1), "dd/mm/yyyy")