ข้อมูลใน textbox Format ไม่ถูกต้อง

[boyanny2524]

ผมขออนุญาติสอบถามนะครับ
คือ ใน UserForm 2
ที่ Textboxt1 ผมกำหนดให้ใส่เป็น Date
แต่ พอเราบันทึกลง sheet database( ชีทชื่อ DBACT )
ข้อมูลที่ส่งไปกลับเป็น Text ทำให้ผมไม่สามารถใส่ Timeline tool ได้ครับ
รบกวนช่วยแก้ปัญหาทีครับ ผมกำหนด format ก็แล้ว ก็ยังส่งค่าเป็น text อยู่ดีครับ ขอบคุณทุกท่านครับ

TEST.xlsm

[puriwutpokin]

ปรับดูตามนี้ครับ

Code: Select all

'Other code...
 LastRow.Offset(1, 0).Value = Format(Me.TextBox1.Text, "mm/dd/yyyy")
'Other code...

[boyanny2524]

ปรับดูตามนี้ครับ

Code: Select all

'Other code...
 LastRow.Offset(1, 0).Value = Format(Me.TextBox1.Text, "mm/dd/yyyy")
'Other code...

ได้ตามต้องการแล้วครับ ขอบคุณมากครับ
ถ้าผมจะรบกวนถามอีกต้องตั้งใหม่หรือสามารถถามต่อได้เลยครับ
คำถามคือ หากเราต้องการ Validate ว่าหาก User ไม่กรอกข้อมูลใน Textbox ใดๆ
ให้ program ฟ้อง พอจะแนะนำได้ไหมครับว่าต้องศึกษาด้านไหนต่อครับ

ขอบคุณครับ

[snasui]

กรณีเป็นเรื่องเดียวกันให้ถามในกระทู้เดียวกันต่อเนื่องกันไป ไม่ได้จำกัดปริมาณของโพสต์ในแต่ละกระทู้ครับ

กรณีต้องการ Validate สามารถทำได้หลากหลายแล้วแต่ต้องการ โดยทั่วไปจะ Validate ที่ขั้นตอนการทำงานถัดไป เช่น เมื่อผู้ใช้กรอกข้อมูลแล้วคลิกปุ่ม Submit ก็จะใช้ปุ่มนี้ทำการ Validate โดยเขียน Code ว่า Object ที่เป็น Required Field ได้ถูกกรอกไว้ครบถ้วนแล้วหรือไม่ ถ้ายังไม่กรอกก็ทำการแจ้งผู้ใช้ด้วย Msgbox แล้วออกจากคำสั่ง เช่นนี้เป็นต้นครับ

[boyanny2524]

ขอบคุณอาจารย์มากครับ

[boyanny2524]

ตอนนี้ผมพบปัญหาอีกครับ คือ
ที่ UserForm2 >> TextBoxt122
ผมให้ Textbox122เป็น even รับข้อมูลเพื่อเป็นเงื่อนไขเพื่อ Vlookup ใน sheetname "Shopoer & model"
ปัญหาที่พบคือ
หากผมกรอกเฉพาะตัวเลขจะสามารถ Vlookup หาข้อมูลตามต้องการได้ครับ
แต่หากผมกรอก ตัวอักษรผสมกับตัวเลข จะไม่สามารถ Vlookupได้ครับ

รบกวนด้วยครับ

รบกวนตาม file แนบครับ

[puriwutpokin]

เปลี่ยน ตามนี้ดูครับ

Code: Select all

Private Sub TextBox122_Change()
On Error Resume Next
Set myRange = Worksheets("Shop order& Model").Range("B3:F50000")
TextBox123 = Application.WorksheetFunction.VLookup(CStr(TextBox122), myRange, 5, False)
TextBox124 = Application.WorksheetFunction.VLookup(CStr(TextBox122), myRange, 2, False)
TextBox132 = Application.WorksheetFunction.VLookup(CStr(TextBox122), myRange, 3, False)
TextBox125 = Application.WorksheetFunction.VLookup(CStr(TextBox122), myRange, 4, False)
End Sub

[boyanny2524]

พอเปลี่ยนcode แล้วกลายเป็นว่า ไม่สามารถv look up ในเงื่อนไขที่เป็นตัวเลขได้ครับ

[puriwutpokin]

ลองปรับเป็น

Code: Select all

Private Sub TextBox122_Change()
On Error Resume Next
Set myRange = Worksheets("Shop order& Model").Range("B3:F50000")
If Not IsNumeric(TextBox122) Then
TextBox123 = Application.VLookup(TextBox122, myRange, 5, False)
TextBox124 = Application.VLookup(TextBox122, myRange, 2, False)
TextBox132 = Application.VLookup(TextBox122, myRange, 3, False)
TextBox125 = Application.VLookup(TextBox122, myRange, 4, False)
Else
TextBox123 = Application.VLookup(CLng(TextBox122), myRange, 5, False)
TextBox124 = Application.VLookup(CLng(TextBox122), myRange, 2, False)
TextBox132 = Application.VLookup(CLng(TextBox122), myRange, 3, False)
TextBox125 = Application.VLookup(CLng(TextBox122), myRange, 4, False)
End If
End Sub

[boyanny2524]

ขอบคุณมากครับ ได้ตามต้องการแล้วครับ
ผมขอความรู้ได้ไหมครับ ทำไม v look up ในvba
จึงไม่สามารถหาได้ในรูปแบบอักษรและตัวเลขครับ

[snasui]

Vlookup ไม่ว่าจะในชีตหรือใน Code คือตัวเดียวกัน คุณสมบัติเทียบเท่ากันครับ