Excel User Form สร้างฟอร์มกรอกข้อมูล | แสดงข้อมูลใน List Box มากกว่า 10 Column
HTML-код
- Опубликовано: 7 сен 2024
- #listboxmore10column #vbalistboxmore10column
-----------------------------------------------------
Sub showdata()
Dim i As Integer
Dim datarow(1 To 100000, 1 To 11) 'กำหนดตัวแปร arrary
For i = 1 To Sheet4.Range("A100000").End(xlUp).Row 'จำนวนแถวใน sheet
c = 11 '¨Ó¹Ç¹ column
For x = 1 To c
datarow(i, x) = Sheet4.Cells(i, x) 'เก็บข้อมูลทั้งหมดลงในตัวแปร array ที่ชื่อ datarow
Next x
Next i
Me.ListBox1.ColumnWidths = "70,200,50,60,90,100,200,150,200,100,130"
Me.ListBox1.List = datarow
Me.ListBox1.ColumnCount = c
' Me.ListBox1.TextAlign = fmTextAlignCenter 'จัดกึ่งกลาง
Me.ListBox1.Selected(0) = True 'เลือกแถวแรก จะมีแถบสีน้ำเงิน
End Sub
ชอบคุณมากๆครับอาจารย์🙏
ยินดีครับ ขอบคุณครับ
เกิน10 คอลัมป์ ใช้อาเรย์ โชว์ข้อมูลได้ตาใคลิบแล้วครับ อาจารย์ มีตัวอย่างการ ค้นหาข้อมูล ด้วย Text box จาก อาเรย์ มั้ยครับ
ขอบคุณค่ะ🎉❤
ยินดีครับ ขอบคุณครับ
รอคลิปหน้าค่าา