ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
เขียนโค๊ดไว้หรือยังครับ ถ้าเขียนแล้วติดตรงไหน ให้เอามาถามครับ
ตั้งชื่อชีทควรเป็นภาษาอังกฤษครับ ไม่งั้นจะมีปัญหาแน่นอนในอนาคตCode: Select all
Dim lngLastRow As Long
lngLastRow = Sheet7.Range("A" & Rows.Count).End(xlUp).Row
lngLastRow = lngLastRow + 1
Sheet7.Range("A" & lngLastRow) = Form3.cboDay.Value & "/" & Form3.cboMonth & "/" & Form3.cboYear
Sheet7.Range("B" & lngLastRow) = Form3.TextBox1.Value
Sheet7.Range("C" & lngLastRow) = Form3.TextBox2.Value
Sheet7.Range("D" & lngLastRow) = Form3.TextBox3.Value
Sheet7.Range("E" & lngLastRow) = Form3.numtxt.Value
Sheet7.Range("F" & lngLastRow) = Form3.moneytxt1.Value
Sheet7.Range("G" & lngLastRow) = Form3.moneytxt2.Value
Sheet7.Range("H" & lngLastRow) = Form3.txtetc.Text
Form3.TextBox1 = ""
Form3.TextBox2 = ""
Form3.TextBox3 = ""
Form3.ComboBox1 = ""
Form3.ComboBox2 = ""
Form3.ComboBox3 = ""
Form3.numtxt = ""
Form3.moneytxt1 = ""
Form3.moneytxt2 = ""
Form3.txtetc = ""