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

[Leng]

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
Me.lblCountif = Application.WorksheetFunction.CountIfs(ThisWorkbook.Sheets("CountIFS with Date").Range("WhatRng"), _
Me.TextBox1, ThisWorkbook.Sheets("CountIFS with Date").Range("DateRng"), ">=" & Me.tbStDate, _
ThisWorkbook.Sheets("CountIFS with Date").Range("DateRng"), "<=" & Me.tbEndDate)
End Sub

ผมยากรวมข้อมูลแบบกำหนดวันครับ เช่น
Style KTY11 ในช่วงวันที่ 1/2/2019 ถึง 28/2/2019 มีค่ารวม เท่ากับ 7 โดยผลรวมนี้ให้อ้างอิงจาก Cloumn I และยากให้ข้อมูลตั้งแต่ Cloumn A:I โชว์ขึ้นใน listbox1 ครับ จากโค๊ดที่ผมเขียนมาผมไม่รู้ว่าโค๊ดผิดตรงไหนรบกวนเพื่อนๆและอาจารย์ช่วยดูหน่อยครับ

[snasui]

ไม่มีชีตที่ชื่อ CountIFS with Date อยู่ในไฟล์ที่แนบมา กรุณาแนบไฟล์มาใหม่ครับ

Statement On Error Resume Next ยังไม่ควรใช้ หาก Code ที่เขียนยังใช้งานไม่ได้ ควร Mark เป็น Comment เอาไว้ก่อนครับ

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

[Leng]

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
Me.lblCountif = Application.WorksheetFunction.CountIfs(ThisWorkbook.Sheets("sheet1").Range("WhatRng"), _
Me.TextBox1, ThisWorkbook.Sheets("sheet1").Range("DateRng"), ">=" & Me.tbStDate, _
ThisWorkbook.Sheets("sheet1").Range("number"), "<=" & Me.tbEndDate)
End Sub

ตอนนี้โค๊ดใช้ได้แล้วครับแต่ติดปัญหาคือ ข้อมูลใน cloumn i ไม่บวกกันครับรบกวนอาจารย์ช่วยดูหน่อยครับ เช่นผมกำหนด
date 1/3/2019-1/3/2019 stlye KTY11 จำนวนรวมต้องมี 4 แต่ข้อมูลที่มา มีแค่ 2 ครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

'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(ds1(2), ds1(1), ds1(0))
    With ThisWorkbook
        Me.lblCountif = Application.WorksheetFunction.SumIfs(.Sheets("sheet1").Range("number"), _
            .Sheets("sheet1").Range("WhatRng"), Me.TextBox1, _
            .Sheets("sheet1").Range("DateRng"), ">=" & ds, _
            .Sheets("sheet1").Range("DateRng"), "<=" & dt)
    End With
'Other code

[Leng]

Code: Select all

Private Sub CommandButton1_Click()

'Other code
    Dim ds As Double, ds1 As Variant, ds2 As String
    Dim dt As Double, dt1 As Variant, dt2 As String
    ds1 = Split(Me.tbStDate.Text, "/")
    dt1 = Split(Me.tbEndDate.Text, "/")
    ds = DateSerial(ds1(2), ds1(1), ds1(0))
    dt = DateSerial(ds1(2), ds1(1), ds1(0))
    With ThisWorkbook
        Me.lblCountif = Application.WorksheetFunction.SumIfs(.Sheets("sheet1").Range("number"), _
            .Sheets("sheet1").Range("WhatRng"), Me.TextBox1, _
            .Sheets("sheet1").Range("DateRng"), ">=" & ds, _
            .Sheets("sheet1").Range("DateRng"), "<=" & dt)
    End With
'Other code
End Sub

อาจารย์ครับได้ลองนำมาใส่แล้วครับแต่ก็ยังไม่ได้รบกวนอาจารย์อธิบายโค๊ดให้หน่อยครับ

[snasui]

คำตอบที่ถูกต้องคือเท่าไร คำตอบที่ได้จาก Code ที่ผมตอบไปคือเท่าไรครับ

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

[Leng]

จากโค๊ดที่อาจารย์ให้มา จะได้ 2 ครับ
แต่ค่าที่ผมต้องการคือผลรวมของ cloumn i เช่นผมกำหนด
start date 1/2/2019 end date 28/2/2019 stlye KTY11 จำนวนรวมต้องมี 7 แต่ข้อมูลที่มา มีแค่ 2 ครับ

[snasui]

แนบไฟล์ล่าสุดมาด้วยจะได้ดูต่อไปจากนั้นครับ

[Leng]

[puriwutpokin]

ใช่แบบนี้หรือเปล่าครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim ds As Double, ds1 As Variant, ds2 As String
    Dim dt As Double, dt1 As Variant, dt2 As String
    ds1 = Me.tbStDate.Text
    dt1 = Me.tbEndDate.Text
    ds = DateSerial(Year(ds1), Month(ds1), Day(ds1))
    dt = DateSerial(Year(dt1), Month(dt1), Day(dt1))
    With ThisWorkbook
        Me.lblCountif = Application.WorksheetFunction.SumIfs(.Sheets("sheet1").Range("number"), _
            .Sheets("sheet1").Range("WhatRng"), Me.TextBox1, _
            .Sheets("sheet1").Range("DateRng"), ">=" & ds, _
            .Sheets("sheet1").Range("DateRng"), "<=" & dt)
    End With
End Sub

[snasui]

จากโค๊ดที่อาจารย์ให้มา จะได้ 2 ครับ
แต่ค่าที่ผมต้องการคือผลรวมของ cloumn i เช่นผมกำหนด
start date 1/2/2019 end date 28/2/2019 stlye KTY11 จำนวนรวมต้องมี 7 แต่ข้อมูลที่มา มีแค่ 2 ครับ

จากไฟล์แนบที่ผมตอบไป เดือน 2 จะมีแค่บรรทัดแรกเท่านั้น ผลรวมคือ 2 ครับ

ไฟล์นี้ยังไม่มี Code ล่าสุดที่ผมตอบไป กรุณาแนบมาใหม่ครับ

ใช่แบบนี้หรือเปล่าครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim ds As Double, ds1 As Variant, ds2 As String
    Dim dt As Double, dt1 As Variant, dt2 As String
    ds1 = Me.tbStDate.Text
    dt1 = Me.tbEndDate.Text
    ds = DateSerial(Year(ds1), Month(ds1), Day(ds1))
    dt = DateSerial(Year(dt1), Month(dt1), Day(dt1))
    With ThisWorkbook
        Me.lblCountif = Application.WorksheetFunction.SumIfs(.Sheets("sheet1").Range("number"), _
            .Sheets("sheet1").Range("WhatRng"), Me.TextBox1, _
            .Sheets("sheet1").Range("DateRng"), ">=" & ds, _
            .Sheets("sheet1").Range("DateRng"), "<=" & dt)
    End With
End Sub

การทำงานกับวันที่จะขึ้นกับ Regional and Language ในเครื่องของผู้ใช้ การอ่านส่วนของ วันที่ เดือน และ ปี ในแต่ละเครื่องอาจจะไม่เหมือนกัน สังเกตว่าผมจะแบ่ง วัน เดือน ปี ออกมาใช้งานเพื่อป้องกันการผิดพลาดที่อาจจะเกิดจากปัญหานี้ครับ

[Leng]

ต้องขอโทษด้วยครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code ในโพสต์ #4 ลืมเปลี่ยน dt = DateSerial(ds1(2), ds1(1), ds1(0)) เป็น dt = DateSerial(dt1(2), dt1(1), dt1(0)) ครับ

Code: Select all

'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)
    End With
'Other code

[Leng]

ได้แล้วครับ แต่ยากให้ข้อมูลที่เลือกโชว์ตรง list box ด้วยอาจารย์มีเว็บหรืออะไรแนะนำไหมครับ

[snasui]

ลองดูตัวอย่างจาก Youtube ครับ ListBox

[Leng]

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
            
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(i, 9).Value & ".00"

Next i
End With

End Sub

ข้อมูลขึ้นแล้วครับแต่ข้อมูลขึ้นไม่ครบรบกวนอาจารย์ช่วยดูหน่อยครับ

[snasui]

ต้องการให้ข้อมูลอะไร จากไหน ขึ้นตรงไหน อย่างไร กรุณาอธิบายมาพอสังเขปเสมอครับ

[Leng]

ผมต้องการดึงข้อมูลจาก cloumn A:I ครับ โดยให้โชว์ตามวันที่ที่เลือก เช่น เลือกวันที่ 1/2/2019 - 28/2/2019 ก็ให้โชว์เฉพาะในช่วงเวลาที่เลือกครับ cloumn A:I

[snasui]

ตัวอย่างการ Loop เฉพาะที่ตรงกับวันที่ที่คีย์ครับ

Code: Select all

'Other code
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
    If Sheet1.Cells(i, 1).Value >= ds And Sheet1.Cells(i, 1).Value <= dt Then
        Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
        Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(i, 9).Value & ".00"
    End If
Next i
'Other code

[Leng]

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
            
'Other code
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
    If Sheet1.Cells(i, 1).Value >= ds And Sheet1.Cells(i, 1).Value <= dt Then
        Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
        Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(i, 9).Value & ".00"
    End If
Next i
'Other code
End With

End Sub

อาจาร์ครับข้อมูลขึ้นใน list box ไม่ครบ ครับจะขึ้นแค่วันที่ และ จำนวนครับตอนนี้ผมยากให้ขึ้นทั้ง cloumn A:I ตามวันที่ครับ