คำสั่ง VBA ให้ TextBox แสดงข้อมูลเมื่อข้อความใน ComboBox ตรงกับฐานข้อมูล

[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



ขอบคุณค่ะ

[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



ขอบคุณค่ะ

[snasui]

ไม่พบว่ามี Code ในไฟล์ที่แนบมา กรุณาแนบไฟล์ที่มี Code มาด้วยครับ

วิธีการโพสต์ Code ที่ถูกต้องให้ดูตัวอย่างที่กฎข้อ 5 ด้านบน คือต้องขึ้นต้นด้วย [code] และปิดด้วย [/code]

[Bella08]

ขอโทษค่ะ
ไฟล์แนบค่ะ

[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

[Bella08]

ตอนนี้ปรับ Code ตามคำแนะนำของอาจารย์และทำสำเร็จแล้วค่ะ
ขอบคุณมากค่ะ