Page 1 of 1
โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Sun Jul 02, 2023 1:40 am
by basad396@gmail.com
จะให้โชว์ข้อมูลชื่อมัสยิดในฟอร์มพิมพ์ทะเบียนสมรสที่TextBox16 ไม่ได้
และโชว์ ที่TextBox17 ชื่ออิหม่ามจาก Sheet1 คอลั่ม h ไม่ได้ไม่ทราบว่าผิดตรงไหน
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Sun Jul 02, 2023 8:49 am
by snasui
Object ดังกล่าวอยู่ใน UserForm ที่ชื่อว่าอะไร มีลำดับการทดสอบอย่างไรเพื่อให้พบปัญหานั้นกรุณาแจ้งรายละเอียดมาด้วยครับ
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Sun Jul 02, 2023 9:11 am
by 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
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Sun Jul 02, 2023 8:48 pm
by snasui
Form2 ไม่มี Object ที่ชื่อว่า TextBox17 มีแค่ TextBox16 ดังภาพครับ
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Sun Jul 02, 2023 9:40 pm
by basad396@gmail.com
ลองใส่ Object ที่ชื่อว่า TextBox17แล้วแต่ยังไม่โชว์ข้อมูลไม่ทราบว่าผมพิมพ์ผิดที่ตรงไหนครับอาจารย์....ผมเพิ่งลองหัดทำครับยังไม่ค่อยเข้าใจ อยากจะให้ Object ที่ชื่อว่า TextBox16 มันโชว์ข้อมูล sheet1=b2ชื่อมัสยิดและ Object ที่ชื่อว่า TextBox17 ให้โชว์ข้อมูลsheet1 =h2 ชื่ออิหม่าม...หรือว่าต้องเขียนโค้ดที่ตรงไหนอย่างไรครับอาจารย์
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Mon Jul 03, 2023 6:22 am
by snasui
แนบไฟล์ล่าสุดที่ได้เพิ่ม TextBox17 พร้อม Code ที่ปรับปรุงใหม่มาด้วยทุกครั้งจะได้ตอบต่อไปจากนั้น การวาง Code ให้ดูวิธีการในข้อ 5 ด้านบน
จะได้สะดวกในการอ่านของเพื่อนสมาชิกครับ
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Mon Jul 03, 2023 11:57 am
by basad396@gmail.com
ครับ
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Mon Jul 03, 2023 1:58 pm
by 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 ควรตรวจสอบกรณี้นี้ด้วยครับ
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Wed Jul 05, 2023 3:56 pm
by basad396@gmail.com
ทำได้แล้วครับอาจารย์
ขอบคุณมากครับอาจารย์
หายไปสองวันติดงานด่วนครับเพิ่งมาอ่าน
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Wed Jul 05, 2023 3:56 pm
by basad396@gmail.com
แต่มันมีที่ติดอยู่อีกครับถามต่อได้นะครับ
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Wed Jul 05, 2023 3:59 pm
by basad396@gmail.com
วันที่ในแบบ UserForm กับในชีท Sheet2 มันมีการแสดงที่ไม่ตรงกัน ไม่ทราบว่าจะแก้ได้อย่างไร
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Wed Jul 05, 2023 4:03 pm
by basad396@gmail.com
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Wed Jul 05, 2023 4:05 pm
by basad396@gmail.com
ทะเบียนคุมใบสำคัญต่างๆ - Copy - Copy.xlsm
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Wed Jul 05, 2023 7:29 pm
by snasui
ลองปรับเป็นด้านล่างครับ
TextBox3.Text = Application.Text(Worksheets("Sheet2").Cells(i, 4).Value2, "dd/mm/yyyy")
Re: โชว์ข้อมูลจาก 2 ชีทไม่ได้
Posted: Wed Jul 05, 2023 9:09 pm
by basad396@gmail.com
ขอบคุณมากครับอาจารย์