Snasui Excel Forum

snasui wrote: แนบไฟล์ที่ได้ Update Code แล้วมาด้วย จะได้ดูต่อไปจากนั้นครับ

snasui wrote: Code ที่มีปัญหาไม่ควร Mark เป็น Comment ให้เขียนแจ้งมาในที่นี้แทนว่าบรรทัดใดติดปัญหาครับ

สำหรับ Code ในไฟล์ที่แนบมายังไม่ได้ใส่บรรทัด End Select นอกจากนี้ยังไม่เข้าใจว่า Add.Visible = False ที่เขี่ยนไว้นั้น ต้องการจะทำอะไร เพราะบรรทัดนี้ก่อให้เกิดปัญหา Error ตามที่ถามมา หากไม่ได้ใช้ประโยชน์ให้ลบทิ้งไปครับ

สำหรับการทดสอบ Code ให้กดแป้น F8 เพื่อ Run ทีละ Step จะได้ทราบว่าปัญหาเกิดที่บรรทัดไหน หากเกิดปัญหาจะเกิดระบายสีเหลืองที่บรรทัดนั้้น ให้ยกบรรทัดนั้นมาถามจะได้เข้าถึงปัญหาโดยไวครับ

Private Sub UserForm_Initialize()
Set a = Worksheets("DATA").Range("item1")
Set b = Worksheets("DATA").Range("item2")
Set c = Worksheets("DATA").Range("item3")
  If Val(txtp.Value) = 1 Then
     txtlist.RowSource = a
  ElseIf Val(txtp.Value) = 2 Then
   txtlist.RowSource = b
 ElseIf Val(txtp.Value) = 3 Then
   txtlist.RowSource = c
    Else
    End If

niwat2811 wrote:ลองแบบนี้ดูครับ ว่าใช้ได้ตามต้องการไหม

Code: Select all

Private Sub txtp_Change()
With txtlist
    If txtp = 1 Then
        .RowSource = "item1"
    End If
    If txtp = 2 Then
        .RowSource = "item2"
    End If
    If txtp = 3 Then
        .RowSource = "item3"
    End If
End With
End Sub

titus2014 wrote:แต่ทำไหมใช่ With ครับ อธิบายหน่อยได้ไหม ครับ

snasui wrote:

titus2014 wrote:แต่ทำไหมใช่ With ครับ อธิบายหน่อยได้ไหม ครับ

ดูคำอธิบายใน Link นี้ครับ With...End With