Page 1 of 1
การใช้ ListBox
Posted: Sat Mar 07, 2015 9:37 pm
by yodpao.b
การใช้ ListBox
Capture1.PNG
จากรูป เมื่อเปิดไฟล์มา วงกลมแถวหน้า จะขึ้นมาตามบรรทัดของข้อมูลครับ
แต่พอสั่งค้นหารายการใหม่ ให้ ListBox แสดงผลใหม่ วงกลมมีมากกว่าในเนื้อหาครับ
จะแก้ไขอย่างไรครับ
Code: Select all
Sheets("DATA0").Select
With Me.ListBox1
.BoundColumn = 1
.ColumnCount = 15
.ColumnHeads = True
.TextColumn = True
If Range("AA3") = "" Then
.RowSource = "DATA0!AA3:AN3"
Else
.RowSource = "DATA0!AA3:AN" & xlLastRow("DATA0")
End If
.ListStyle = fmListStyleOption
.ListIndex = 0
End With
Re: การใช้ ListBox
Posted: Sat Mar 07, 2015 10:10 pm
by snasui
แนบไฟล์ตัวอย่างมาด้วย จะได้สะดวกในการตรวจสอบครับ
Re: การใช้ ListBox
Posted: Sat Mar 07, 2015 10:47 pm
by yodpao.b
แนบไฟล์ครับ
Capture2.PNG
1. เปิดฟอร์มครับ
2. เลือกชนิด "CASSETTE"
จะเห็นวงกลม มากกว่าบรรทัดที่แสดง
Re: การใช้ ListBox
Posted: Sat Mar 07, 2015 11:37 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other code
Sheets("DATA0").Select
With ActiveSheet
lastrow = .Range("aa" & .Rows.Count).End(xlUp).Row
End With
With Me.ListBox1
.BoundColumn = 1
.ColumnCount = 15
.ColumnHeads = True
.TextColumn = True
If Range("AA3") = "" Then
.RowSource = "DATA0!AA3:AN3"
Else
.RowSource = "DATA0!AA3:AN" & lastrow
End If
.ListStyle = fmListStyleOption
.ListIndex = 0
End With
'Other code
Re: การใช้ ListBox
Posted: Sun Mar 08, 2015 12:35 am
by yodpao.b
Capture3.PNG
วงกลมยังอยู่ครับ
Re: การใช้ ListBox
Posted: Sun Mar 08, 2015 8:23 am
by snasui
ปรับ Code ตามที่ผมโพสต์ไปด้านบนทุกตำแหน่งที่มี Code นั้น หากยังติดปัญหาให้แนบไฟล์นั้นมาดูกันใหม่ครับ
Re: การใช้ ListBox
Posted: Sun Mar 08, 2015 2:36 pm
by yodpao.b
แนบไฟล์ครับ
Re: การใช้ ListBox
Posted: Sun Mar 08, 2015 2:52 pm
by snasui
ดูเหมือนก่อนหน้านี้จะมี Code สำหรับ Set RowSource ต่อท้ายอยู่ในทุก Procedure ที่เกียวกับ Combobox Change ก็ให้คงไว้เหมือนเดิมแต่เปลียนไปเป็น Code ที่ผมโพสต์ไป ตัวอย่างที่ ComboBox1_Change ตามภาพด้านล่างครับ
Re: การใช้ ListBox
Posted: Sun Mar 08, 2015 3:30 pm
by yodpao.b
ขอบคุณครับ