Code เป็นสีแดง

[pongpang]

Code เมื่อ Run สีแดงตามภาพ

Code red.png (40.13 KiB) Viewed 46 times

Code: Select all

Sub LoadCmb()
Dim sdsheet As Worksheet

Set sdsheet = ThisWorkbook.Sheets("SORT db")

If sdsheet.Cells(Rows.Count, 1) .End(xlUp) .Row = 1 Then

    sdLR = 2
Else
    sdLR = sdsheet.Cells(Rows.Count, 1).End(xlUp).Row
End If

For x = 2 To sdLR
  HideForm.CmbEmp.AddItem sdsheet.Cells(x, 1) & " - " & sdsheet.Cells(x, 2)
Next x

End Sub

สำหรับไฟล์ที่เป็นปัญหา ส่งมาด้วยแล้ว
ขอคำแนะนำการแก้ปัญหาด้วยครับ

[bank9597]

ผมไม่ได้เซียนขนาดที่ดูโค๊ดแล้วทราบปัญหาได้ทันที ดังนั้น ผมขอโจทย์หน่อยครับ

ต้องการทำอะไร ที่ไหน อย่างไร

[pongpang]

ต้องการให้ข้อมูลปรากฎใน combobox เมื่อคลิกรันโค๊ด ก็สีแดงแล้ว
จะแก้ไขCode อย่างไร จึงใช้งานได้

[bank9597]

ต้องการให้ข้อมูลปรากฎใน combobox เมื่อคลิกรันโค๊ด ก็สีแดงแล้ว
จะแก้ไขCode อย่างไร จึงใช้งานได้

ผมไม่รู้ว่าคุณจะเอาข้อมูลในคอลัมน์ไหนมาลง combobox แต่ดูจากโค๊ดแล้วน่าจะคอลัมน์ A ดังนั้น ลองปรับสูตรตามนี้ดูครับ

Code: Select all

Sub LoadCmb()
Dim Rall As Range
  Dim r As Range
  With Sheets("SORT db")
    Set Rall = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
  End With
  For Each r In Rall
    HideForm.CmbEmp.AddItem r
  Next r

End Sub

[pongpang]

ถ้าสังเกตุจะเห็น ปุ่ม OptionButton 2 ปุ่ม ถ้าคลิกปุ่ม Emp ID ที่ใน ComboBox แสดงรหัส หน้าชื่อ และถ้าคลิก Name ที่ใน ComboBox แสดงชื่อนำหน้า

[bank9597]

ถ้าสังเกตุจะเห็น ปุ่ม OptionButton 2 ปุ่ม ถ้าคลิกปุ่ม Emp ID ที่ใน ComboBox แสดงรหัส หน้าชื่อ และถ้าคลิก Name ที่ใน ComboBox แสดงชื่อนำหน้า

ลองปรับโค๊ดเป็น

Code: Select all

Private Sub btnCancle_Click()
    HideForm.Hide
End Sub

Private Sub obEmpID_Change()
        Call LoadCmb
End Sub
Private Sub obname_Change()
        Call LoadCmb
End Sub

Code: Select all

Sub LoadCmb()
    Dim Rall As Range
    Dim r As Range
    Dim r1 As Range
    If HideForm.obEmpID = True Then
        HideForm.obname = False
        With Sheets("SORT db")
            Set Rall = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
        End With
        For Each r In Rall
            HideForm.CmbEmp.AddItem r
        Next r
    Else
        HideForm.obEmpID = False
        With Sheets("SORT db")
            Set Rall = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
        End With
        For Each r1 In Rall
            HideForm.CmbEmp.AddItem r1
        Next r1
    End If
End Sub

[pongpang]

ขอบคุณนะครับ คุณ ฺBANK พยายามสำเร็จจนได้ครับ