รบกวนสอบถามVBAการโชว์HeadColumnในหน้าListboxครับ

[boylee1928]

อยากให้โชว์HeadColumnตลอดในหน้าlistboxระหว่างการค้นหาข้อมูลในtextboxครับพอจะมีวิธีไหนบ้างครับ

Book1.xlsm

[snasui]

การให้โชว์หัวคอลัมน์ของ ListBox อยู่ตลอดเวลาให้สร้าง Label เอาไว้เองแล้วใช้การ Loop ค่าเข้าไปแทนการใช้ RowSource ครับ

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

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

[boylee1928]

การให้โชว์หัวคอลัมน์ของ ListBox อยู่ตลอดเวลาให้สร้าง Label เอาไว้เองแล้วใช้การ Loop ค่าเข้าไปแทนการใช้ RowSource ครับ

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

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

พอจะมีไฟล์ตัวอย่างให้ศึกษาไหมครับ

[snasui]

ตัวอย่างคำถามตอบเกี่ยวกับ ListBox ศึกษาได้จาก Link นี้ครับ search.php?keywords=listbox&terms=all&a ... mit=Search

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

[boylee1928]

ตัวอย่างคำถามตอบเกี่ยวกับ ListBox ศึกษาได้จาก Link นี้ครับ search.php?keywords=listbox&terms=all&a ... mit=Search

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

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

[boylee1928]

ตัวอย่างคำถามตอบเกี่ยวกับ ListBox ศึกษาได้จาก Link นี้ครับ search.php?keywords=listbox&terms=all&a ... mit=Search

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

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

หาตัวอย่างที่คล้ายๆกันไม่ได้เลยอ่ะครับ พอจะเเก้ให้โค๊ดให้หน่อยได้ไหมครับ

[snasui]

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

[boylee1928]

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

ผมลองใช้RowSourceโชว์หัวตารางในListboxตลอดเเล้วครับ เเต่พอพิมพ์ข้อความในTextBoxหัวตารางในListboxก็จะหายไปเหมือนเป็นการเคลียListboxครับ

[snasui]

แนบไฟล์ล่าสุดพร้อม Code ชี้ให้เห็นว่าได้ปรับที่ Form ไหน Procedure ไหน ลำดับวิธีการทดสอบ ไม่เช่นนั้นไม่สามารถช่วยดูให้ได้ครับ

[boylee1928]

แนบไฟล์ล่าสุดพร้อม Code ชี้ให้เห็นว่าได้ปรับที่ Form ไหน Procedure ไหน ลำดับวิธีการทดสอบ ไม่เช่นนั้นไม่สามารถช่วยดูให้ได้ครับ

Code ครับ

Code: Select all

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]

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

[boylee1928]

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

ขอบคุณครับเเต่พอพิมพ์ในTextbox ColumnHeads ก็หายไปครับ

Code: Select all

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]

การให้โชว์หัวคอลัมน์ของ 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 จะมีความยืดหยุ่นกว่าครับ

[boylee1928]

การให้โชว์หัวคอลัมน์ของ 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 จะมีความยืดหยุ่นกว่าครับ

ผมก็ไม่ค่อยเก่งเรื่องโค๊ดด้วย ยากเลยครับงานนี้ 5555 ขอบคุณมากครับ

[EX2010]

ก็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

[boylee1928]

ก็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

ขอบคุณมากครับ จะพยายามเรียนรู้ให้มากขึ้นครับ