สอบถามการใช้ list box

[Leng]

ผมอยากให้ list box ขยับตามเวลา scan ครับ พอ scan แล้วก็ขยับลงตามข้อมูลครับ

[snasui]

เขียน Code มาเองก่อน ติดตรงไหนค่อยถามกันต่อ

ตัวอย่างการค้นหาจาก Google เพื่อเป็นแนวทางครับ Auto Scroll Listbox

[Leng]

Code: Select all

Private Sub ListBox1_Click()
Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
End Sub

รบกวนอาจารย์ช่วยดูโค๊ดหน่อยครับ

[logic]

ลองทำตามลิ้งค์นี้ดูครับ https://www.mrexcel.com/forum/excel-que ... ost4194931

[Leng]

จากที่ผมทำครับแต่ยังไม่สามารถทำได้ครับไม่รู้ผิดตรงไหนรบกวนช่วยดูครับ

Code: Select all

Private Sub ListBox1_Click() 
  With Worksheets("IN").ListBox1
        .AddItem "Date"
        .AddItem "Box"
        .AddItem "Around"
        .AddItem "Factory"
        .AddItem "Barcode"
        .AddItem "Stlye"
        .AddItem "Size"
        .AddItem "Colors"
        .AddItem "No"
        .TopIndex = .ListCount - 1
    End With
End Sub

[Leng]

Code: Select all

Private Sub ListBox1_Click()
 With Me.ListBox1
        .AddItem "A3:I1048576"
        .TopIndex = .ListCount - 1
    End With
End Sub

[snasui]

ผมดูไฟล์แนบแล้วควรกำหนด ListBox มาใหม่ พร้อมเขียน Code การเลื่อนบรรทัดที่ถูกเรียกใช้จากการ Scan

ให้สร้างรายการตัวอย่างให้เกินจากจำนวนบรรทัดใน ListBox แล้วค่อยกรอกข้อมูบตัวอย่างเสมือนการ Scan แล้วค่อยสังเกตว่ามีการเลื่อนบรรทัดลงไปด้านล่างหรือไม่ ติดแล้วค่อยนำมาถามกันครับ

[Leng]

อาจารย์มีตัวอย่างไหมครับ

[Leng]

Code: Select all

Private Sub UserForm_Initialize()
  ListBox1.RowSource = Sheets("IN").Range("A3:I1048576").Address(external:=True)
End Sub

รบกวนอาจารย์ช่วยดูหน่อยครับ

[Leng]

Code: Select all

Private Sub UserForm_Initialize()
 ListBox1.RowSource = Sheets("IN").Range("A3:I1048576").Address(external:=True)
With ListBox1
.ListIndex = .ListCount - 1
.Selected(.ListCount - 1) = True
End With
End Sub

[snasui]

กรุณาแนบไฟล์โดยอ่านโพสต์ #7 ประกอบครับ

[Leng]

รบกวนอาจารย์ช่วยดูให้หน่อยครับ

[snasui]

หัวข้อนี้เป็นการถามถึงให้ ListBox เลื่อนลง แต่ Code ที่ส่งมาถามตามโพสต์ #9, #10 เป็นการแสดงรายการบน ListBox

การแสดงรายการบน ListBox ให้แสดงเท่าที่มีรายการ ตัวอย่างตามด้านล่างครับ

Code: Select all

'Other code
    Dim lsRow As Long
    With Sheets("IN")
        lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
     ListBox1.RowSource = Sheets("IN").Range("A3:I" & lsRow).Address(external:=True)
    With ListBox1
        .ListIndex = .ListCount - 1
        .Selected(.ListCount - 1) = True
    End With
'Other code

[Leng]

อาจารย์ครับผมได้ลองนำโค๊ดมาใส่แล้วแต่พอscanแล้วมันไม่เลื่อนลงครับ

Code: Select all

Private Sub UserForm_Initialize()
Dim lsRow As Long
With Sheets("IN")
lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
End With
ListBox1.RowSource = Sheets("IN").Range("A3:I1048576").Address(external:=True)
With ListBox1
.ListIndex = .ListCount - 1
.Selected(.ListCount - 1) = True
End With
End Sub

[snasui]

Code ยังไม่ตรงกับที่ผมตอบไป ลองตรวจสอบให้ละเอียดทุกอักขระครับ

ไฟล์ที่จะแนบมา อย่าลืม Mark Code ที่ไม่เกี่ยวข้องทิ้งไป เช่นการขยาย Form ให้เต็มจอ คลิก Exit แล้วปิดไฟล์ ฯลฯ ควรแนบมาถามเฉพาะ Code ที่เป็นปัญหาเท่านั้น ผมเคยแจ้งสิ่งเหล่านี้ไปก่อนหน้านี้แล้ว กรุณาคำนึงถึงเรื่องนี้เสมอครับ

[Leng]

จากที่ได้ลอง copy code ที่อาจารย์ให้มาแล้วลองมาทำแต่ก็ยังไม่สำเร็จครับ
-ติดปัญหาคือตอนscanแล้วข้อมูลก็เด้งขึ้นไปบันทัดบนสุดครับ

Code: Select all

Private Sub UserForm_Initialize()
    Dim lsRow As Long
    With Sheets("IN")
        lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
     ListBox1.RowSource = Sheets("IN").Range("A3:I" & lsRow).Address(external:=True)
    With ListBox1
        .ListIndex = .ListCount - 1
        .Selected(.ListCount - 1) = True
    End With
End Sub

[snasui]

ต้องไปเขียน Code ตอน Scan ว่าให้เลือกบรรทัดสุดท้ายด้วยครับ

Code นี้เพียงแต่ให้เลือกข้อมูลเฉพาะเท่าที่มีไม่ใช่เลือกไปทั้ง Worksheet ในตอนเปิด Form เท่านั้น

งานของเราคือให้มันเลือกรายกาสุดท้ายในตอน Scan ลองปรับมาเองก่อน ติดแล้วค่อยถามกันครับ

[Leng]

ได้แล้วครับขอบพระคุณมากครับ