ข้อมูลวันเดือนปี ไม่แสดงผลในหน้าของ VBA

[KantidaMo59]

คอลัมน์สีชมพู 3แถว

• หัวข้อ วันเริ่มงาน

• วันเดือนปีเกิด

• ประกันอุบัติเหตุ (วันหมดอายุ)

ที่ทำการ useform แล้ว run ออกมา มันไม่แสดงผล เหมือนหน้า excel ปกติ
เช่น 1/5/2018 แต่พอรันออกมาก็เป็น 43221

ลองทำการแก้ไขหลายรอบแล้วโดยการใช้ Format cells >> Number >> Date ก็ยังไม่ได้ผล
รบกวนผู้รู้ด้วยนะคะ

[puriwutpokin]

แก้ตรงนี้ครับ

Code: Select all

Me("textbox" & p).Value = Format(Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("A2:W43"), p + 1, 0), "d/m/yyyy")

[KantidaMo59]

ขอบคุณมากๆ ค่ะ ข้อมูลแสดงผลแล้ว

[KantidaMo59]

มีปัญหาค่ะ

Code: Select all

Private Sub ComboBox1_Change()
Dim q, p As Long
  q = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
  For p = 1 To 21
 Me("textbox" & p).Value = Format(Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("A2:V43"), p + 1, 0), "dd mmmm yyyy")
  Next p
End Sub

code ที่ คุณ puriwutpokin ให้มาสามารถแก้ไข ว/ด/ป ตามที่ต้องการได้ค่ะ แต่
มีปัญหากับคอมลัมน์หัวข้ออื่นค่ะ (คอลัมน์สีแดง)

คือคอลัมน์หัวข้อ ยอดประกันสังคม และ เลขสาขา สองหัวข้อนี้เป็น ข้อมูลตัวเลขค่ะ เช่น เลขสาขา = 5349 แต่พอใส่สูตรที่ คุณ puriwutpokin ให้มา เลขสาขา มันเปลี่ยนเป็น ว/ด/ป เเทนค่ะ

อยากให้ตัวเลข 2 ช่องนี้คงที่ค่ะ พอมีทางแก้ไขไหมคะ รบกวนทีนะคะ

[puriwutpokin]

ตัวอย่างโค้ดครับ

Code: Select all

 Me("textbox" & p).Value = Format(Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("A2:V43"), p + 1, 0), "dd mmmm yyyy")
 Me.TextBox7.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("A2:V43"), 8, 0)
 Me.TextBox15.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("A2:V43"), 16, 0)