ใน Userform 1 ที่ผมทำขึ้นมาใหม่ เพื่อรับข้อมูลเข้า database
Textbox ที่ user กรอก อยู่ใน Format dd/mm/yyyy แต่พอ paste ใน sheet database กลับเป็น mm/dd/yyyy
เรามีวิธีทำให้อยู่ใน รูปแบบ dd/mm/yyyy ก่อนวางใน database ไหมครับ
Private Sub CommandButton1_Click()
Dim r As Long
With Sheets("Database")
r = .Range("a" & Rows.Count).End(xlUp).Row + 1
.Cells(r, 1) = ComboBox1.Text
.Cells(r, 2) = TextBox1.Text
.Cells(r, 3) = TextBox2.Text
.Cells(r, 4) = TextBox3.Text
.Cells(r, 5) = TextBox4.Text
.Cells(r, 6) = TextBox5.Text
.Cells(r, 7) = TextBox6.Text
.Cells(r, 8) = TextBox7.Text
.Cells(r, 9) = TextBox8.Text
.Cells(r, 10) = TextBox9.Text
.Cells(r, 11) = TextBox10.Text
.Cells(r, 12) = TextBox11.Text
.Cells(r, 13) = TextBox12.Text
.Cells(r, 14) = TextBox13.Text
.Cells(r, 15) = TextBox14.Text
.Cells(r, 16) = TextBox15.Text
.Cells(r, 17) = TextBox16.Text
.Cells(r, 18) = TextBox17.Text
.Cells(r, 19) = TextBox18.Text
.Cells(r, 20) = TextBox19.Text
.Cells(r, 21) = TextBox20.Text
.Cells(r, 22) = TextBox21.Text
.Cells(r, 23) = TextBox22.Text
.Cells(r, 24) = TextBox23.Text
.Cells(r, 25) = TextBox24.Text
.Cells(r, 26) = TextBox25.Text
.Cells(r, 27) = TextBox26.Text
.Cells(r, 28) = TextBox27.Text
.Cells(r, 29) = TextBox28.Text
.Cells(r, 30) = TextBox29.Text
.Cells(r, 31) = TextBox30.Text
.Cells(r, 32) = TextBox31.Text
.Cells(r, 33) = TextBox32.Text
.Cells(r, 34) = TextBox33.Text
.Cells(r, 35) = TextBox34.Text
.Cells(r, 36) = TextBox35.Text
.Cells(r, 37) = TextBox36.Text
.Cells(r, 38) = TextBox37.Text
.Cells(r, 39) = TextBox38.Text
.Cells(r, 40) = TextBox39.Text
.Cells(r, 41) = TextBox40.Text
.Cells(r, 42) = TextBox41.Text
.Cells(r, 43) = TextBox42.Text
.Cells(r, 44) = TextBox43.Text
.Cells(r, 45) = TextBox44.Text
.Cells(r, 46) = TextBox45.Text
.Cells(r, 47) = TextBox46.Text
.Cells(r, 48) = TextBox47.Text
.Cells(r, 49) = TextBox48.Text
.Cells(r, 50) = TextBox49.Text
.Cells(r, 51) = TextBox50.Text
.Cells(r, 52) = TextBox51.Text
.Cells(r, 53) = TextBox52.Text
.Cells(r, 54) = TextBox53.Text
.Cells(r, 55) = TextBox54.Text
.Cells(r, 56) = TextBox55.Text
.Cells(r, 57) = TextBox56.Text
.Cells(r, 58) = TextBox57.Text
.Cells(r, 59) = TextBox58.Text
.Cells(r, 60) = TextBox59.Text
.Cells(r, 61) = TextBox60.Text
.Cells(r, 62) = TextBox61.Text
.Cells(r, 63) = TextBox62.Text
.Cells(r, 64) = TextBox63.Text
.Cells(r, 65) = TextBox64.Text
.Cells(r, 66) = TextBox65.Text
.Cells(r, 67) = TextBox66.Text
.Cells(r, 68) = TextBox67.Text
.Cells(r, 69) = TextBox68.Text
.Cells(r, 70) = TextBox69.Text
.Cells(r, 71) = TextBox70.Text
.Cells(r, 72) = TextBox71.Text
.Cells(r, 73) = TextBox72.Text
.Cells(r, 74) = TextBox73.Text
.Cells(r, 75) = TextBox74.Text
.Cells(r, 76) = TextBox75.Text
.Cells(r, 77) = TextBox76.Text
.Cells(r, 78) = TextBox77.Text
.Cells(r, 79) = TextBox78.Text
.Cells(r, 80) = TextBox79.Text
End With
End Sub
You do not have the required permissions to view the files attached to this post.
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
โปรดทราบ 
