Page 1 of 1
ข้อมูลวันเดือนปี ไม่แสดงผลในหน้าของ VBA
Posted: Tue Dec 10, 2019 4:32 pm
by KantidaMo59
คอลัมน์สีชมพู 3แถว - ประกันอุบัติเหตุ (วันหมดอายุ)
ที่ทำการ
useform แล้ว
run ออกมา มันไม่แสดงผล เหมือนหน้า
excel ปกติ
เช่น 1/5/2018 แต่พอรันออกมาก็เป็น 43221
ลองทำการแก้ไขหลายรอบแล้วโดยการใช้
Format cells >> Number >> Date ก็ยังไม่ได้ผล
รบกวนผู้รู้ด้วยนะคะ
Re: ข้อมูลวันเดือนปี ไม่แสดงผลในหน้าของ VBA
Posted: Wed Dec 11, 2019 12:38 pm
by puriwutpokin
แก้ตรงนี้ครับ
Code: Select all
Me("textbox" & p).Value = Format(Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("A2:W43"), p + 1, 0), "d/m/yyyy")
Re: ข้อมูลวันเดือนปี ไม่แสดงผลในหน้าของ VBA
Posted: Wed Dec 11, 2019 12:43 pm
by KantidaMo59
ขอบคุณมากๆ ค่ะ ข้อมูลแสดงผลแล้ว 
Re: ข้อมูลวันเดือนปี ไม่แสดงผลในหน้าของ VBA
Posted: Wed Dec 11, 2019 3:18 pm
by 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 ช่องนี้คงที่ค่ะ พอมีทางแก้ไขไหมคะ รบกวนทีนะคะ
Re: ข้อมูลวันเดือนปี ไม่แสดงผลในหน้าของ VBA
Posted: Wed Dec 11, 2019 8:29 pm
by 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)