การแสดงผลของ ListBox

[diamondbom]

คือว่าผมต้องการเขียนโค้ดให้แสดงผลใน บรรทัดเดียวกัน
แต่ไม่รู้วิธี รบกวนด้วยครับ
_ขอบคุณครับ_

[tupthai]

ลองทดสอบดูครับ

Code: Select all

Dim Y As Integer,Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
With Sheet1.LB1
       .Clear
       .ColumnCount = 2
       For Y = 0 To LR - 1
          .AddItem
          .Column(0, Y) = Cells(Y + 1, 1)
          .Column(1, Y) = Cells(Y + 1, 2)
       Next
End With

[diamondbom]

ขอบคุณครับ

ขอถามเพิ่มเติมนะครับ
ถ้าข้อมูลน้อยๆ แล้วต้องให้แสดงผลอยู่บรรทัดเดียวกัน
ทำอย่างไรครับ

ขอบคุณครับ

[snasui]

ลองดูตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim Y As Integer, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    With Sheet1.LB1
        .Clear
        .ColumnCount = 3
        For Y = 1 To LR
            For i = 0 To 2
                .AddItem
                .Column(i, Y - 1) = Cells(Y, i + 1)
            Next i
        Next Y
    End With
End Sub

[diamondbom]

ขอบคุณครับ

[diamondbom]

ขอถามเพิ่มเติมนะครับ
เราสามารถปรับระยะได้หรือเปล่าครับ
แบบ 1 AAAAAAAAAAA B
2 A B
3 AAA B


__ขอบคุณครับ_

[diamondbom]

รบกวนอีกคำถามนะครับ

ต้องการเลือกค่า Column B =A
แต่ติดตรงบรรทัด

.Column(0, Y) = Cells(Y + 1, 1)
.Column(1, Y) = Cells(Y + 1, 2)

ควรแก้อย่างไรครับ

__ขอบคุณครับ_

[tupthai]

Code: Select all

Private Sub CommandButton1_Click()
  Dim Y As Integer: Dim LR As Long
  Dim i As Integer
  LR = Range("A" & Rows.Count).End(xlUp).Row
  With Sheet1.LB1
       .Clear
       .ColumnCount = 3
       .ColumnWidths = "20;130;30"
       For Y = 1 To LR
          If Cells(Y, 2).Value = "A" Then
             .AddItem
             .Column(0, i) = Cells(Y, 1)
             .Column(1, i) = Cells(Y, 2)
             .Column(2, i) = Cells(Y, 3)
              i = i + 1
          End If
       Next
  End With
End Sub

[diamondbom]

ขอบคุณครับ