Snasui Excel Forum

xou wrote: Wed Jul 18, 2018 8:42 am ผลลัพธ์ แบบนี้ครับ

snasui wrote: Thu Jul 19, 2018 10:06 pm ตัวอย่าง Code ครับ

Code: Select all

Dim rAll As Range, rAll1 As Range, r As Range
Dim i As Integer
With Sheets("Value")
    Set rAll = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
    For i = rAll.Count To 1 Step -1
        If i = 1 Then Exit For
        If rAll(i) <> rAll(i - 1) Then
            rAll(i).EntireRow.Insert
        End If
    Next i
    Set rAll1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0))
        For i = rAll1.Count To 1 Step -1
            If rAll1(i).Offset(0, 1) = "" Then
                rAll1(i).Offset(0, 1).Value = Application.SumIf(rAll1, rAll1(i).Offset(-1, 0), rAll1.Offset(0, 1))
            End If
            If rAll1(i).Row = 3 Then Exit Sub
            If rAll1(i - 2).Value <> "" Then rAll1(i - 1).Value = ""
        Next i
End With

xou wrote: Fri Jul 20, 2018 3:21 pm

snasui wrote: Thu Jul 19, 2018 10:06 pm ตัวอย่าง Code ครับ

Code: Select all

Dim rAll As Range, rAll1 As Range, r As Range
Dim i As Integer
With Sheets("Value")
    Set rAll = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
    For i = rAll.Count To 1 Step -1
        If i = 1 Then Exit For
        If rAll(i) <> rAll(i - 1) Then
            rAll(i).EntireRow.Insert
        End If
    Next i
    Set rAll1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0))
        For i = rAll1.Count To 1 Step -1
            If rAll1(i).Offset(0, 1) = "" Then
                rAll1(i).Offset(0, 1).Value = Application.SumIf(rAll1, rAll1(i).Offset(-1, 0), rAll1.Offset(0, 1))
            End If
            If rAll1(i).Row = 3 Then Exit Sub
            If rAll1(i - 2).Value <> "" Then rAll1(i - 1).Value = ""
        Next i
End With

xou wrote: Fri Jul 20, 2018 5:05 pm เพิ่มเติมจากข้างบน กดแก้ไขไม่ได้

หรืออาจจะสมมุติว่าบางทีเอาแค่ผลรวมของวัน บรรทัดต่อไปก็อีกวัน จะต้องแก้ไขส่วนไหน รบกวนด้วยครับ

ถ้าไม่เป็นการรบกวนขอคำอธิบายโค้ดนี้หน่อยได้ไหมครับ
พอดีว่าเผื่อผมเอาไปใช้ในอนาคตด้วย

แก้ไขเพิ่มเติม

แล้วถ้าสมมุติว่าผมอยากเปลี่ยน ตรงผลรวมมารวมที่ตำแหน่ง C2 ผมต้องแก้ปรับเปลี่นตรงไหนยังไงครับ เผื่อวันหน้าผมอาจจะเอาผลรวมมารวมที่ตำแหน่งอื่น อาจจะเพิ่มเงื่อนไขอื่นๆเข้าไปอีก

ขอบคุณครับ