มีปัญหาการส่งข้อความจาก Textbox ที่เป็น วัน เดือน ปี ไปที่เซลแล้วไม่แสดงผลตามรูปแบบที่กำหนดไว้ในเซล
Posted: Thu Nov 16, 2023 10:54 pm
จากไฟล์ที่แนบมา
ใช้ form เรียกข้อมูลจากตาราง ขึ้นมาแก้ไข
แล้วส่งกลับไปวางเพื่ออัพเดตข้อมูลใหม่ ใน คลอลัมน์ C ของตาราง จัดรูปแบบไว้เป็น d mmm bbbb
ซึ่งเมื่ออัพเดตข้อมูลที่แก้ไขแล้ว ไม่แสดงรูปแบบตามที่กำหนดไว้
ต้องปรับแก้ไขอย่างไรครับ
ใช้ form เรียกข้อมูลจากตาราง ขึ้นมาแก้ไข
แล้วส่งกลับไปวางเพื่ออัพเดตข้อมูลใหม่ ใน คลอลัมน์ C ของตาราง จัดรูปแบบไว้เป็น d mmm bbbb
ซึ่งเมื่ออัพเดตข้อมูลที่แก้ไขแล้ว ไม่แสดงรูปแบบตามที่กำหนดไว้
ต้องปรับแก้ไขอย่างไรครับ
Code: Select all
Private Sub CommandButton2_Click()
Dim ProductId As String
ProductId = TextBox1.Text
lastRow = Worksheets("Bget").Cells(Rows.Count, 11).End(xlUp).Row
If TextBox1.Value = "" Then
MsgBox "กรุณากรอกรหัสอ้างอิงก่อนการอัพเดตข้อมูล"
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox1.SetFocus
Exit Sub
End If
' ActiveSheet.Unprotect Password:="1"
For i = 2 To lastRow
If Worksheets("Bget").Cells(i, 11).Value = ProductId Then
Worksheets("Bget").Cells(i, 3).Value = TextBox2.Text
Worksheets("Bget").Cells(i, 4).Value = TextBox3.Text
Worksheets("Bget").Cells(i, 5).Value = TextBox4.Text
Worksheets("Bget").Cells(i, 7).Value = TextBox5.Text
Worksheets("Bget").Cells(i, 8).Value = TextBox6.Text
Worksheets("Bget").Cells(i, 10).Value = TextBox7.Text
End If
Next
' ActiveSheet.Protect Password:="1"
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox1.SetFocus
End Sub