Page 1 of 1
คำสั่ง VBA ให้ TextBox แสดงข้อมูลเมื่อข้อความใน ComboBox ตรงกับฐานข้อมูล
Posted: Sat Dec 08, 2018 12:07 pm
by Bella08
รบกวนสอบถามเกี่ยวกับ Code คำสั่ง
เมื่อ ComboBox5 เลือกตำแหน่งงานที่ตรงกับ Sheet"ระยะเวลา column A" ให้ TextBox12 แสดงข้อมูลระยะเวลาในการสรรหา column Bค่ะ
พยายามเขียน Code มาแล้วแต่ยังไม่สำเร็จค่ะ
Private Sub ComboBox5_Change()
Dim i As Long, LastRow As Long
LastRow = Sheets("ระยะเวลา").Rang("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Sheets("ระยะเวลา").Cells(i, "A").Value = (Me.ComboBox5) Then
Me.TextBox12 = Sheets("ระยะเวลา").Cells(i, "B").Value
End If
Next
End Sub
ขอบคุณค่ะ
Re: คำสั่ง VBA ให้ TextBox แสดงข้อมูลเมื่อข้อความใน ComboBox ตรงกับฐานข้อมูล
Posted: Sat Dec 08, 2018 12:09 pm
by Bella08
แก้ไขโพสต์ Code ค่ะ
รบกวนสอบถามเกี่ยวกับ Code คำสั่ง
เมื่อ ComboBox5 เลือกตำแหน่งงานที่ตรงกับ Sheet"ระยะเวลา column A" ให้ TextBox12 แสดงข้อมูลระยะเวลาในการสรรหา column Bค่ะ
พยายามเขียน Code มาแล้วแต่ยังไม่สำเร็จค่ะ
Private Sub ComboBox5_Change()
Dim i As Long, LastRow As Long
LastRow = Sheets("ระยะเวลา").Rang("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Sheets("ระยะเวลา").Cells(i, "A").Value = (Me.ComboBox5) Then
Me.TextBox12 = Sheets("ระยะเวลา").Cells(i, "B").Value
End If
Next
End Sub
ขอบคุณค่ะ
Re: คำสั่ง VBA ให้ TextBox แสดงข้อมูลเมื่อข้อความใน ComboBox ตรงกับฐานข้อมูล
Posted: Sat Dec 08, 2018 3:43 pm
by snasui
ไม่พบว่ามี Code ในไฟล์ที่แนบมา กรุณาแนบไฟล์ที่มี Code มาด้วยครับ
วิธีการโพสต์ Code ที่ถูกต้องให้ดูตัวอย่างที่กฎข้อ 5 ด้านบน คือต้องขึ้นต้นด้วย [code] และปิดด้วย [/code]
Re: คำสั่ง VBA ให้ TextBox แสดงข้อมูลเมื่อข้อความใน ComboBox ตรงกับฐานข้อมูล
Posted: Sat Dec 08, 2018 3:54 pm
by Bella08
ขอโทษค่ะ
ไฟล์แนบค่ะ
Re: คำสั่ง VBA ให้ TextBox แสดงข้อมูลเมื่อข้อความใน ComboBox ตรงกับฐานข้อมูล
Posted: Sat Dec 08, 2018 4:06 pm
by snasui
เขียนคำว่า Range ไม่ถูกต้องครับ
ตัวอย่าง Code ครับ
Code: Select all
LastRow = Sheets("ระยะเวลา").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Sheets("ระยะเวลา").Cells(i, "A").Value = (Me.ComboBox5) Then
Me.TextBox12 = Sheets("ระยะเวลา").Cells(i, "B").Value
Exit For
End If
Next
Re: คำสั่ง VBA ให้ TextBox แสดงข้อมูลเมื่อข้อความใน ComboBox ตรงกับฐานข้อมูล
Posted: Sat Dec 08, 2018 4:24 pm
by Bella08
ตอนนี้ปรับ Code ตามคำแนะนำของอาจารย์และทำสำเร็จแล้วค่ะ
ขอบคุณมากค่ะ