โชว์ข้อมูลจาก 2 ชีทไม่ได้

[basad396@gmail.com]

จะให้โชว์ข้อมูลชื่อมัสยิดในฟอร์มพิมพ์ทะเบียนสมรสที่TextBox16 ไม่ได้
และโชว์ ที่TextBox17 ชื่ออิหม่ามจาก Sheet1 คอลั่ม h ไม่ได้ไม่ทราบว่าผิดตรงไหน

[snasui]

Object ดังกล่าวอยู่ใน UserForm ที่ชื่อว่าอะไร มีลำดับการทดสอบอย่างไรเพื่อให้พบปัญหานั้นกรุณาแจ้งรายละเอียดมาด้วยครับ

[basad396@gmail.com]

อยู่ใน Form2 โค้ดอย่ใน BillID_

Private Sub BillID__Change()
Dim bil As String
Dim lastrow, i As Integer
bil = BillID_.Text
lastrow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To lastrow

If Worksheets("Sheet2").Cells(i, 1).Value = bil Then


TextBox1.Text = Worksheets("Sheet2").Cells(i, 2).Value
TextBox2.Text = Worksheets("Sheet2").Cells(i, 3).Value
TextBox3.Text = Worksheets("Sheet2").Cells(i, 4).Value
TextBox4.Text = Worksheets("Sheet2").Cells(i, 5).Value
TextBox5.Text = Worksheets("Sheet2").Cells(i, 6).Value
TextBox6.Text = Worksheets("Sheet2").Cells(i, 7).Value
TextBox7.Text = Worksheets("Sheet2").Cells(i, 8).Value
TextBox8.Text = Worksheets("Sheet2").Cells(i, 9).Value
TextBox9.Text = Worksheets("Sheet2").Cells(i, 10).Value
TextBox10.Text = Worksheets("Sheet2").Cells(i, 11).Value
TextBox11.Text = Worksheets("Sheet2").Cells(i, 12).Value
TextBox12.Text = Worksheets("Sheet2").Cells(i, 13).Value
TextBox13.Text = Worksheets("Sheet2").Cells(i, 14).Value
TextBox14.Text = Worksheets("Sheet2").Cells(i, 15).Value

End If
Next i

Dim astrow As Integer
astrow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For n = 1 To astrow

If Worksheets("Sheet1").Cells(n, 1).Value = bil Then

TextBox16.Text = Worksheets("Sheet1").Cells(n, 2).Value
TextBox17.Text = Worksheets("Sheet1").Cells(n, 8).Value
End If
Next n


End Sub

[snasui]

Form2 ไม่มี Object ที่ชื่อว่า TextBox17 มีแค่ TextBox16 ดังภาพครับ

[basad396@gmail.com]

ลองใส่ Object ที่ชื่อว่า TextBox17แล้วแต่ยังไม่โชว์ข้อมูลไม่ทราบว่าผมพิมพ์ผิดที่ตรงไหนครับอาจารย์....ผมเพิ่งลองหัดทำครับยังไม่ค่อยเข้าใจ อยากจะให้ Object ที่ชื่อว่า TextBox16 มันโชว์ข้อมูล sheet1=b2ชื่อมัสยิดและ Object ที่ชื่อว่า TextBox17 ให้โชว์ข้อมูลsheet1 =h2 ชื่ออิหม่าม...หรือว่าต้องเขียนโค้ดที่ตรงไหนอย่างไรครับอาจารย์

[snasui]

แนบไฟล์ล่าสุดที่ได้เพิ่ม TextBox17 พร้อม Code ที่ปรับปรุงใหม่มาด้วยทุกครั้งจะได้ตอบต่อไปจากนั้น การวาง Code ให้ดูวิธีการในข้อ 5 ด้านบน จะได้สะดวกในการอ่านของเพื่อนสมาชิกครับ

[basad396@gmail.com]

ครับ

[snasui]

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

Code: Select all

'Other code
Dim astrow As Integer
astrow = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row

For n = 1 To astrow

'If Worksheets("Sheet1").Cells(n, 1).Value = bil Then

TextBox16.Text = Worksheets("Sheet1").Cells(n, 2).Value
TextBox17.Text = Worksheets("Sheet1").Cells(n, 8).Value
'End If
Next n
'Other code

สำหรับ Code ที่นำมาถามกันนี้มีการ Loop ไปในแต่ละบรรทัด ไม่ทราบว่าเพื่อวัตถุประสงค์อะไรจึงมีการ Loop เช่นนั้น ปกติแต่ละ Form ควรจะรับค่าข้อมูลครั้งละบรรทัดเท่านั้น ยกเว้น Loop เพื่อ Print

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

[basad396@gmail.com]

ทำได้แล้วครับอาจารย์
ขอบคุณมากครับอาจารย์
หายไปสองวันติดงานด่วนครับเพิ่งมาอ่าน

[basad396@gmail.com]

แต่มันมีที่ติดอยู่อีกครับถามต่อได้นะครับ

[basad396@gmail.com]

วันที่ในแบบ UserForm กับในชีท Sheet2 มันมีการแสดงที่ไม่ตรงกัน ไม่ทราบว่าจะแก้ได้อย่างไร

[basad396@gmail.com]

งานนำเสนอ1.png

[basad396@gmail.com]

ทะเบียนคุมใบสำคัญต่างๆ - Copy - Copy.xlsm

[snasui]

ลองปรับเป็นด้านล่างครับ

TextBox3.Text = Application.Text(Worksheets("Sheet2").Cells(i, 4).Value2, "dd/mm/yyyy")

[basad396@gmail.com]

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