Excel Forum

Posted: **Mon Mar 11, 2019 4:44 pm**

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 ครับ จากโค๊ดที่ผมเขียนมาผมไม่รู้ว่าโค๊ดผิดตรงไหนรบกวนเพื่อนๆและอาจารย์ช่วยดูหน่อยครับ

Posted: **Mon Mar 11, 2019 7:55 pm**

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

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

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

Posted: **Mon Mar 11, 2019 8:52 pm**

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 ครับ

Posted: **Mon Mar 11, 2019 9:25 pm**

ตัวอย่าง 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

Posted: **Mon Mar 11, 2019 9:34 pm**

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

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

Posted: **Mon Mar 11, 2019 9:45 pm**

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

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

Posted: **Tue Mar 12, 2019 8:05 am**

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

Posted: **Tue Mar 12, 2019 8:10 pm**

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

Posted: **Tue Mar 12, 2019 9:51 pm**

Posted: **Wed Mar 13, 2019 12:04 am**

Leng wrote: Tue Mar 12, 2019 9:51 pm

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

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

Posted: **Wed Mar 13, 2019 6:59 am**

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

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

Leng wrote: Tue Mar 12, 2019 9:51 pm

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

puriwutpokin wrote: Wed Mar 13, 2019 12:04 am

Leng wrote: Tue Mar 12, 2019 9:51 pm

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

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 ในเครื่องของผู้ใช้ การอ่านส่วนของ วันที่ เดือน และ ปี ในแต่ละเครื่องอาจจะไม่เหมือนกัน สังเกตว่าผมจะแบ่ง วัน เดือน ปี ออกมาใช้งานเพื่อป้องกันการผิดพลาดที่อาจจะเกิดจากปัญหานี้ครับ

Posted: **Wed Mar 13, 2019 8:09 am**

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

Posted: **Wed Mar 13, 2019 11:05 pm**

ตัวอย่างการปรับ 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

Posted: **Thu Mar 14, 2019 4:41 pm**

ได้แล้วครับ

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

Posted: **Thu Mar 14, 2019 8:46 pm**

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

Posted: **Thu Mar 14, 2019 9:05 pm**

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

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

Posted: **Thu Mar 14, 2019 9:11 pm**

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

Posted: **Fri Mar 15, 2019 9:50 am**

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

Posted: **Fri Mar 15, 2019 6:44 pm**

ตัวอย่างการ 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

Posted: **Sat Mar 16, 2019 11:37 am**

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 ตามวันที่ครับ

Excel Forum

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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