Page 1 of 1
ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Tue Nov 17, 2020 10:43 am
by boyanny2524
ผมขออนุญาติสอบถามนะครับ
คือ ใน UserForm 2
ที่ Textboxt1 ผมกำหนดให้ใส่เป็น Date
แต่ พอเราบันทึกลง sheet database( ชีทชื่อ DBACT )
ข้อมูลที่ส่งไปกลับเป็น Text ทำให้ผมไม่สามารถใส่ Timeline tool ได้ครับ
รบกวนช่วยแก้ปัญหาทีครับ ผมกำหนด format ก็แล้ว ก็ยังส่งค่าเป็น text อยู่ดีครับ ขอบคุณทุกท่านครับ
TEST.xlsm
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Tue Nov 17, 2020 1:20 pm
by puriwutpokin
ปรับดูตามนี้ครับ
Code: Select all
'Other code...
LastRow.Offset(1, 0).Value = Format(Me.TextBox1.Text, "mm/dd/yyyy")
'Other code...
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Tue Nov 17, 2020 1:57 pm
by boyanny2524
puriwutpokin wrote: Tue Nov 17, 2020 1:20 pm
ปรับดูตามนี้ครับ
Code: Select all
'Other code...
LastRow.Offset(1, 0).Value = Format(Me.TextBox1.Text, "mm/dd/yyyy")
'Other code...
ได้ตามต้องการแล้วครับ ขอบคุณมากครับ
ถ้าผมจะรบกวนถามอีกต้องตั้งใหม่หรือสามารถถามต่อได้เลยครับ
คำถามคือ หากเราต้องการ Validate ว่าหาก User ไม่กรอกข้อมูลใน Textbox ใดๆ
ให้ program ฟ้อง พอจะแนะนำได้ไหมครับว่าต้องศึกษาด้านไหนต่อครับ
ขอบคุณครับ
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Tue Nov 17, 2020 7:55 pm
by snasui
กรณีเป็นเรื่องเดียวกันให้ถามในกระทู้เดียวกันต่อเนื่องกันไป ไม่ได้จำกัดปริมาณของโพสต์ในแต่ละกระทู้ครับ
กรณีต้องการ Validate สามารถทำได้หลากหลายแล้วแต่ต้องการ โดยทั่วไปจะ Validate ที่ขั้นตอนการทำงานถัดไป เช่น เมื่อผู้ใช้กรอกข้อมูลแล้วคลิกปุ่ม Submit ก็จะใช้ปุ่มนี้ทำการ Validate โดยเขียน Code ว่า Object ที่เป็น Required Field ได้ถูกกรอกไว้ครบถ้วนแล้วหรือไม่ ถ้ายังไม่กรอกก็ทำการแจ้งผู้ใช้ด้วย Msgbox แล้วออกจากคำสั่ง เช่นนี้เป็นต้นครับ
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Wed Nov 18, 2020 12:10 pm
by boyanny2524
ขอบคุณอาจารย์มากครับ
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Tue Nov 24, 2020 4:41 pm
by boyanny2524
ตอนนี้ผมพบปัญหาอีกครับ คือ
ที่ UserForm2 >> TextBoxt122
ผมให้ Textbox122เป็น even รับข้อมูลเพื่อเป็นเงื่อนไขเพื่อ Vlookup ใน sheetname "Shopoer & model"
ปัญหาที่พบคือ
หากผมกรอกเฉพาะตัวเลขจะสามารถ Vlookup หาข้อมูลตามต้องการได้ครับ
แต่หากผมกรอก ตัวอักษรผสมกับตัวเลข จะไม่สามารถ Vlookupได้ครับ
รบกวนด้วยครับ
รบกวนตาม file แนบครับ
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Tue Nov 24, 2020 8:27 pm
by 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
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Wed Nov 25, 2020 9:15 am
by boyanny2524
พอเปลี่ยนcode แล้วกลายเป็นว่า ไม่สามารถv look up ในเงื่อนไขที่เป็นตัวเลขได้ครับ
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Wed Nov 25, 2020 11:23 am
by 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
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Wed Nov 25, 2020 1:46 pm
by boyanny2524
ขอบคุณมากครับ ได้ตามต้องการแล้วครับ
ผมขอความรู้ได้ไหมครับ ทำไม v look up ในvba
จึงไม่สามารถหาได้ในรูปแบบอักษรและตัวเลขครับ
Re: ข้อมูลใน textbox Format ไม่ถูกต้อง
Posted: Wed Nov 25, 2020 7:48 pm
by snasui
Vlookup ไม่ว่าจะในชีตหรือใน Code คือตัวเดียวกัน คุณสมบัติเทียบเท่ากันครับ