Page 1 of 1
listbox
Posted: Fri Aug 26, 2016 4:06 pm
by ipiammax
ผมจะให้ข้อมูลที่อยุ่ใน sheet มาแสดงใน listbox ต้องเขียนโค้ดยังไงคับ
Re: listbox
Posted: Fri Aug 26, 2016 7:09 pm
by snasui
กรณีเป็นการเขียน VBA จะต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน
คำว่า "คับ" ที่ใช้แทน "ครับ" ผิดกฎการใช้บอร์ดข้อ 1 ระมัดระวังด้วยครับ
Re: listbox
Posted: Mon Aug 29, 2016 3:27 pm
by ipiammax
ขอโทษนะครับ
คือผมไม่รู็จะเริ่มเขียนโค้อยังไงครับ ผมไปไม่ถูกครับ เลยเข้ามาถามเผื่อมีตัวอย่างให้ดูสัก 1 โค้ดอะครับ
Re: listbox
Posted: Mon Aug 29, 2016 3:34 pm
by ipiammax
Private Sub CommandButton8_Click()
Row = 2
Do
Row = Row + 1
Loop Until UserForm4.ComboBox8.Text = Worksheets("sheet2").Cells(Row, 3) Or Worksheets("sheet2").Cells(Row, 3) = ""
If UserForm4.ComboBox8.Text = Worksheets("sheet2").Cells(Row, 3) Then
UserForm5.TextBox1.Text = Worksheets("sheet2").Cells(Row, 6)
UserForm5.Label3 = Worksheets("sheet2").Cells(Row, 6)
UserForm5.ListBox1.AddItem Worksheets("sheet2").Cells(Row, 6)
UserForm5.ListBox1.AddItem Worksheets("sheet2").Cells(Row, 6)
UserForm5.Show
End If
End Sub
แต่อยากเพิ่มเติมตรงที่ข้อมูลทั้งหมดมันขึ้นแค่คอลัมน์เดียวครับ
Re: listbox
Posted: Mon Aug 29, 2016 9:20 pm
by snasui
แนบไฟล์ตัวอย่างมาด้วยจะได้ช่วยปรับ Code และทดสอบให้ได้ครับ คำว่า "อะครับ" ให้ใช้ "ครับ" แทน ไม่ต้องมี "อะ" ครับ
นอกจากนี้ช่วยโพสต์ Code ให้แสดงเป็น Code อ่านกฎข้อ 5 ด้านบนประกอบครับ