Excel Forum

snasui wrote: Sat Sep 21, 2019 10:53 am การให้โชว์หัวคอลัมน์ของ ListBox อยู่ตลอดเวลาให้สร้าง Label เอาไว้เองแล้วใช้การ Loop ค่าเข้าไปแทนการใช้ RowSource ครับ

แต่หากใช้ RowSource ในการ Clear ทิ้งลองกำหนดให้เหลือบรรทัดบนสุดไว้สักบรรทัดแทนการ Clear ทิ้งทั้งหมดดูครับ

ควรจะแจ้งมาด้วยเสมอว่าผู้ตอบจะต้องทดสอบไฟล์ที่แนบมาอย่างไรจึงจะเห็นว่าไม่มีหัวคอลัมน์ จะได้เข้าใจปัญหาได้โดยเร็วครับ

snasui wrote: Sun Sep 22, 2019 7:24 am ตัวอย่างคำถามตอบเกี่ยวกับ ListBox ศึกษาได้จาก Link นี้ครับ search.php?keywords=listbox&terms=all&a ... mit=Search

ส่วนตัวอย่างเฉพาะการกำหนด RowSource ให้เหลือ 1 บรรทัดคิดว่าไม่จำเป็นต้องหาตัวอย่าง เดิมกำหนดอย่างไรเพียงแต่กำหนดให้เหลือแค่ 1 บรรทัด เช่น เดิมกำหนดเป็น A1:Z10 เมื่อจะต้องการให้ Show หัวบรรทัดเสมอก็กำหนดให้เหลือ A1:Z1 เช่นนี้เป็นต้นครับ

boylee1928 wrote: Sun Sep 22, 2019 8:29 pm

snasui wrote: Sun Sep 22, 2019 7:24 am ตัวอย่างคำถามตอบเกี่ยวกับ ListBox ศึกษาได้จาก Link นี้ครับ search.php?keywords=listbox&terms=all&a ... mit=Search

ส่วนตัวอย่างเฉพาะการกำหนด RowSource ให้เหลือ 1 บรรทัดคิดว่าไม่จำเป็นต้องหาตัวอย่าง เดิมกำหนดอย่างไรเพียงแต่กำหนดให้เหลือแค่ 1 บรรทัด เช่น เดิมกำหนดเป็น A1:Z10 เมื่อจะต้องการให้ Show หัวบรรทัดเสมอก็กำหนดให้เหลือ A1:Z1 เช่นนี้เป็นต้นครับ

ขอบคุณมากครับ

snasui wrote: Tue Sep 24, 2019 7:15 am กรณีใช้ RowSource ผมได้อธิบายไปแล้วว่าต้องทำอย่างไร กรุณาพยายามทำมาตามนั้น ติดตรงไหนจึงค่อยแจ้ง Module, Procedure ที่ติดปัญหามาถามกันต่อ เพื่อที่จะได้เข้าถึงปัญหาโดยไว กรุณาอ่านกฎข้อ 5 ด้านบน ประกอบครับ

snasui wrote: Wed Sep 25, 2019 10:44 am แนบไฟล์ล่าสุดพร้อม Code ชี้ให้เห็นว่าได้ปรับที่ Form ไหน Procedure ไหน ลำดับวิธีการทดสอบ ไม่เช่นนั้นไม่สามารถช่วยดูให้ได้ครับ

Private Sub TextBox1_Change()
Dim i As Long
Me.ListBox1.RowSource = ""
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
a = Len(Me.TextBox1.Text)
If StrConv(Left(Sheet1.Cells(i, 1).Value, a), vbLowerCase) = StrConv(Left(Me.TextBox1.Text, a), vbLowerCase) Then
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(i, 2).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Sheet1.Cells(i, 3).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Sheet1.Cells(i, 4).Value
End If

Next i
End Sub

Private Sub UserForm_activate()
ListBox1.ColumnCount = 6
ListBox1.RowSource = "A2:H10"
End Sub

EX2010 wrote: Thu Sep 26, 2019 1:08 pm

Code: Select all

Private Sub UserForm_Initialize()
   ListBox1.ColumnCount = 6
   Me.ListBox1.AddItem
   For x = 1 To 6
     Me.ListBox1.List(0, x - 1) = Sheet1.Cells(1, x)
   Next x
   Me.ListBox1.Selected(0) = True
End Sub

Private Sub TextBox1_Change()
Dim i As Long
Me.ListBox1.Clear
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
a = Len(Me.TextBox1.Text)
If StrConv(Left(Sheet1.Cells(i, 1).Value, a), vbLowerCase) = StrConv(Left(Me.TextBox1.Text, a), vbLowerCase) Then
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(i, 2).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Sheet1.Cells(i, 3).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Sheet1.Cells(i, 4).Value
End If

Next i
End Sub

Private Sub UserForm_Initialize()
   ListBox1.ColumnCount = 6
   Me.ListBox1.AddItem
   For x = 1 To 6
     Me.ListBox1.List(0, x - 1) = Sheet1.Cells(1, x)
   Next x
   Me.ListBox1.Selected(0) = True
End Sub

snasui wrote: Sat Sep 21, 2019 10:53 am การให้โชว์หัวคอลัมน์ของ ListBox อยู่ตลอดเวลาให้สร้าง Label เอาไว้เองแล้วใช้การ Loop ค่าเข้าไปแทนการใช้ RowSource ครับ

แต่หากใช้ RowSource ในการ Clear ทิ้งลองกำหนดให้เหลือบรรทัดบนสุดไว้สักบรรทัดแทนการ Clear ทิ้งทั้งหมดดูครับ

ควรจะแจ้งมาด้วยเสมอว่าผู้ตอบจะต้องทดสอบไฟล์ที่แนบมาอย่างไรจึงจะเห็นว่าไม่มีหัวคอลัมน์ จะได้เข้าใจปัญหาได้โดยเร็วครับ

snasui wrote: Fri Sep 27, 2019 6:19 am

snasui wrote: Sat Sep 21, 2019 10:53 am การให้โชว์หัวคอลัมน์ของ ListBox อยู่ตลอดเวลาให้สร้าง Label เอาไว้เองแล้วใช้การ Loop ค่าเข้าไปแทนการใช้ RowSource ครับ

แต่หากใช้ RowSource ในการ Clear ทิ้งลองกำหนดให้เหลือบรรทัดบนสุดไว้สักบรรทัดแทนการ Clear ทิ้งทั้งหมดดูครับ

ควรจะแจ้งมาด้วยเสมอว่าผู้ตอบจะต้องทดสอบไฟล์ที่แนบมาอย่างไรจึงจะเห็นว่าไม่มีหัวคอลัมน์ จะได้เข้าใจปัญหาได้โดยเร็วครับ

ผมตอบไปแล้วตามโพสต์ที่ยกมาครับ

ในการทำงานกับ ListBox จะเลือกใช้อย่างใดอย่างหนึ่งคือ Loop ค่าเข้าไปเองแล้วสร้าง Label เป็นหัวคอลัมน์รอไว้เมื่อลบหรือเพิ่มข้อมูลหัวคอลัมน์จะไม่หาย

หากสร้างรายการด้วย RowSource เมื่อมีการ Clear RowSource จะไม่เลือก Clear ทิ้งทั้งหมดแต่ให้เหลือบรรทัดที่ 1 ของข้อมูลซึ่งเป็นหัวคอลัมน์เอาไว้ เมื่อมีการ Loop เพิ่มขึ้นทีละบรรทัดก็จะขยายพื้นที่ให้กับ RowSource แต่มีข้อจำกัดคือข้อมูลที่จะนำมาแสดงใน ListBox จะต้องติดกันลงไปด้านล่าง จึงเหมาะที่จะ Loop ข้อมูลไปพักไว้ที่ใด ๆ ก่อนแล้วนำข้อมูลจากพื้นที่นั้นเข้ามาแสดงใน ListBox ทีเดียวทุกรายการ

การเขียน Code เป็น Me.ListBox1.RowSource = "" เรียกว่า Clear ทิ้งทั้งหมดรวมทั้งหัวบรรทัด เมื่อทำเช่นนี้จะไม่มีหัวคอลัมน์แสดงอยู่ครับ

จากงานนี้ ควรจะสร้าง Label รอไว้แล้ว Loop ค่าเข้าไปใส่ใน ListBox แทนการใช้ RowSource จะมีความยืดหยุ่นกว่าครับ

EX2010 wrote: Tue Oct 01, 2019 1:54 pm ก็Cusโค๊ตส่วนนี้ไป ต่อ ส่วนที่ Listbox.Clear

Code: Select all

  Me.ListBox1.Clear
  Me.ListBox1.AddItem
   For x = 1 To 6
     Me.ListBox1.List(0, x - 1) = Sheet1.Cells(1, x)
   Next x
   Me.ListBox1.Selected(0) = True