คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
ตัวอย่าง Code ตามด้านล่างครับCode: Select all
'Other code
If item_in_review = UserForm3.TextBox1.Text Or _
Sheets("Data2").Range("E" & row_number) = UserForm3.TextBox2.Text Or _
Sheets("Data2").Range("H" & row_number) = UserForm3.TextBox3.Text Then
'Other code
End If
'Other code
mpmp3m7lpm wrote:ขอถามเพิ่มหน่อยนะค่ะ คือ หนูแอดฐานข้อมูลไว้เป็นวันที่ 3/3/2540 แต่พอค้นหาแล้วให้ข้อมูลโชว์ขึ้นมา วันที่มันขึ้นแบบนี้ 3/3/3083 ต้องทำยังไงค่ะ
Excel จะรู้จักวันเดือนปีเป็น ค.ศ. ลองปรับเป็น ค.ศ. แล้วทดสอบดูใหม่ครับช่วยลำดับการทำงานว่ามีอะไรบ้าง คลิกหรือกรอกค่าใดในลำดับใด ผลที่ได้เป็นอย่างไร ต้องการให้เป็นอย่างไร จะได้เข้าถึงปัญหาได้โดยไวmpmp3m7lpm wrote:อาจารย์ค่ะ ทำตามโค๊ดที่อาจารย์ให้มา ได้ทุกช่องแล้ว พอ Userform4 แสดงข้อมูลขึ้นมา พอปิดฟอร์ม มันขึ้นมาอีกรอบค่ะแต่ฟอร์มที่ขึ้นมารอบ 2 ไม่ได้แสดงข้อมูล
จะทำแบบไหนเพื่อให้ฟอร์มขึ้นมาแค่อันแรกอันเดียวค่ะ
UserForm4.Show ไปไว้ก่อน End Sub ครับ
ตัวอย่างการปรับ Code ครับCode: Select all
Private Sub CommandButton1_Click()
row_number = 0
Do
'DoEvents
row_number = row_number + 1
item_in_review = Sheets("Data2").Range("A" & row_number)
If item_in_review = ค้นหา.TextBox1.Text Or _
Sheets("Data2").Range("E" & row_number) = ค้นหา.TextBox2.Text Or _
Sheets("Data2").Range("H" & row_number) = ค้นหา.TextBox3.Text Then
ใบรับซ่อม.TextBox1.Text = Sheets("Data2").Range("A" & row_number)
ใบรับซ่อม.TextBox2.Text = Application.Text(Sheets("Data2").Range("B" & row_number), "dd/mm/yyyy")
'Other code
Exit Do
End If
Loop Until item_in_review = ""
ใบรับซ่อม.Show
End Sub