การรวมข้อมูล

[snasui]

ดูตัวอย่างที่นี่แล้วลองทำมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[Leng]

Code: Select all

            Dim lsRow As Long
    With Sheets("Sheet1")
        lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
     ListBox1.RowSource = Sheets("Sheet1").Range("A2:i" & lsRow).Address(external:=True)
    With ListBox1
        .ListIndex = .ListCount - 1
        .Selected(.ListCount - 1) = True
    End With
             End With

ข้อมูลขึ้นแล้วครับแต่ว่าข้อมูลยังไม่สามารถขึ้นตามวันที่ที่กำหนดได้ครับ

[snasui]

Code ล่าสุดไม่มี Loop ที่ผมตอบไปในความเห็นก่อนหน้านี้ กรุณาใส่กลับเข้ามาแล้วนำผลที่ได้จากการ Loop ไปใช้ ผมได้แนบตัวอย่างจาก Youtube ไปแล้วว่ามีวิธีการอย่างไร ลองทำมาตามนั้นโดยใช้ประกอบกับ Code ที่ผมตอบไปแล้ว ได้เท่าไรก็เท่านั้น ติดแล้วค่อยถามกันต่อครับ

Code ที่ทำมาใหม่นี้เป็นการใช้งานอย่างพื้น ๆ คือเอาข้อมูลจาก Range เข้ามาใส่เข้าไปตรง ๆ ใน ListBox จะทำให้ Dynamic ตามเงื่อนไขไม่ได้ ถ้าจะ Loop รายการเข้าไปใส่ใน ListBox เราจะไม่ใช้ RowSource ลองพยายามมาใหม่ครับ

[puriwutpokin]

Code: Select all

            Dim lsRow As Long
    With Sheets("Sheet1")
        lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
     ListBox1.RowSource = Sheets("Sheet1").Range("A2:i" & lsRow).Address(external:=True)
    With ListBox1
        .ListIndex = .ListCount - 1
        .Selected(.ListCount - 1) = True
    End With
             End With

ข้อมูลขึ้นแล้วครับแต่ว่าข้อมูลยังไม่สามารถขึ้นตามวันที่ที่กำหนดได้ครับ

ลองดูตามนี้ครับเพื่อจะได้

Code: Select all

Private Sub CommandButton1_Click()
'Other code
    Dim ds As Double, ds1 As Variant
    Dim dt As Double, dt1 As Variant
    ds1 = Split(Me.tbStDate.Text, "/")
    dt1 = Split(Me.tbEndDate.Text, "/")
    ds = DateSerial(ds1(2), ds1(1), ds1(0))
    dt = DateSerial(dt1(2), dt1(1), dt1(0))
    With ThisWorkbook.Worksheets("Sheet1")
        Me.lblCountif = Application.WorksheetFunction.SumIfs(.Range("number"), _
            .Range("WhatRng"), Me.TextBox1, _
            .Range("DateRng"), ">=" & ds, _
            .Range("DateRng"), "<=" & dt)
            Me.ListBox1.Clear
            Dim lsRow As Long
 '   With Sheets("Sheet1")
  '      lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
'    End With
    i = Application.WorksheetFunction.Match(ds, Range("DateRng"), 0)
    j = Application.WorksheetFunction.Match(dt, Range("DateRng"), 0)
     ListBox1.RowSource = Sheets("Sheet1").Range("a" & i, "i" & j).Address(external:=True)
    With ListBox1
        .ListIndex = .ListCount - 1
        .Selected(.ListCount - 1) = True
    End With
             End With
End Sub

[snasui]

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