Sửa lập trình macro báo cáo nhập kho..!

Liên hệ QC
quandrc

quandrc

Thành viên thường trực
Tham gia
26/3/09
Bài viết
235
Được thích
233
Chào các anh chị trong diễn đàn GPE...!. Tôi có một đoạn mã macro như sau: (file đính kèm )
Nhiệm vụ của đoạn macro trên là để lập báo cáo theo kho từ kho KB53,KB54,KB55,KB56,KB57, KB07 kèm theo ngày như file đính kèm.
Vấn đề tôi muốn giúp đở là;
nhờ các anh chị sữa lại giúp
1. Nếu thêm 1 đến 2 kho nữa thì đoạn mã trên sẻ sưa nhưa thế nào?.. vd thêm kho KB61, KB62....ở các ô H2,I2, J2....
cám ơn nhiều...!
 

File đính kèm

  • BAOCAO_MACRO.rar
    140.5 KB · Đọc: 43
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bạn tổng hợp thiếu Kho K50 là 496 cái. Font này khó đọc quá.
 
Upvote 0
ThuNghi đã viết:
Bạn tổng hợp thiếu Kho K50 là 496 cái. Font này khó đọc quá.
Nhấp chuột vào đây để mở rộng...

cám ơn bạn nhiều...1 nhờ bạn xem giúp thêm các kho mình với. Yêu cầu 2...! đó bạn..! còn font thì do dùng vntimenewroman nên khó đọc, củng ko thể sửa đc bạn thông cảm cho..!
 
Upvote 0
quandrc đã viết:
cám ơn bạn nhiều...1 nhờ bạn xem giúp thêm các kho mình với. Yêu cầu 2...! đó bạn..! còn font thì do dùng vntimenewroman nên khó đọc, củng ko thể sửa đc bạn thông cảm cho..!
Nhấp chuột vào đây để mở rộng...
Tạm thời bạn xem file sau, sẽ hoàn chỉnh lại về format sau.
 

File đính kèm

  • BAOCAO_Nhap.rar
    144.1 KB · Đọc: 36
Upvote 0
ThuNghi đã viết:
Tạm thời bạn xem file sau, sẽ hoàn chỉnh lại về format sau.
Nhấp chuột vào đây để mở rộng...
anh ơi...! anh có thể dùng đoạn mã củ chỉ sữa lại sao cho thêm các kho KB61, KB62,...VÀ thêm vài kho dự phòng được không. chứ đoạn mã của anh em chẳng hiểu gì cả..hihihi maro em gà mờ lém ...không hiểu lắm. Và với fonts, mã... đã dùng quen 2 năm nay rồi, bây giờ chỉ phát sinh thêm kho nên ko biết thêm vào đâu nhờ anh thêm giúp trong đoạn mã cho. cám ơn anh nhiều..1
 
Upvote 0
quandrc đã viết:
anh ơi...! anh có thể dùng đoạn mã củ chỉ sữa lại sao cho thêm các kho KB61, KB62,...VÀ thêm vài kho dự phòng được không. chứ đoạn mã của anh em chẳng hiểu gì cả..hihihi maro em gà mờ lém ...không hiểu lắm. Và với fonts, mã... đã dùng quen 2 năm nay rồi, bây giờ chỉ phát sinh thêm kho nên ko biết thêm vào đâu nhờ anh thêm giúp trong đoạn mã cho. cám ơn anh nhiều..1
Nhấp chuột vào đây để mở rộng...
Nếu bạn muốn làm theo AutoFilter thì sẽ sửa theo ý bạn.
1/ Nếu thêm kho thì bạn thêm vào dòng 2, cụ thể là H2, I2,...
2/ Tạo 1 name là rngKho để sửa ct trong code.
a/ Thêm
PHP: 
Dim endC As Long
    With Sheets("BaoCao")
      endC = .Cells(2, 256).End(xlToLeft).Column
      .Cells(2, 2).Resize(, endC - 1).Name = "rngKho"
    End With
Trứơc câu
PHP: 
Sheets("NHAPSANLUONG").[I1].Value = "GPE"
b/ Sửa câu sau
PHP: 
Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[D65536].End(xlUp).Offset(, 5)).FormulaR1C1 = "=AND(RC[-5]<>"""",OR(RC[-5]=BAOCAO!R2C2,RC[-5]=BAOCAO!R2C3,RC[-5]=BAOCAO!R2C4,RC[-5]=BAOCAO!R2C5,RC[-5]=BAOCAO!R2C6,RC[-5]=BAOCAO!R2C7,),RC[-7]>=BAOCAO!R3C2,RC[-7]<=BAOCAO!R3C4,OR(BAOCAO!R4C3=""Táút caí"",LEFT(RC[-3])=LEFT(BAOCAO!R4C3)))"
Thành
PHP: 
Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[D65536].End(xlUp).Offset(, 5)).FormulaR1C1 = _
        "=AND(RC[-5]<>"""",COUNTIF(rngKho,RC[-5])>0,RC[-7]>=BAOCAO!R3C2,RC[-7]<=BAOCAO!R3C4,OR(BAOCAO!R4C3=""Táút caí"",LEFT(RC[-3])=LEFT(BAOCAO!R4C3)))"
ie thay OR(RC[-5]=BAOCAO!R2C2,RC[-5]=BAOCAO!R2C3,RC[-5]=BAOCAO!R2C4,RC[-5]=BAOCAO!R2C5,RC[-5]=BAOCAO!R2C6,RC[-5]=BAOCAO!R2C7,)
thành countif
b/ Sửa các câu
PHP: 
With Range("A11:G65536,H:I")
thành
PHP: 
With Range("A11:G65536,H11:I65536")
Và
PHP: 
[H:I].Clear
thành
PHP: 
[H10:I65000].Clear
Và code toàn bộ sẽ như sau:
PHP: 
Private Sub CommandButton1_Click()
TongCong = 0
    On Error Resume Next
    Sheets("NHAPSANLUONG").ShowAllData
    Sheets("NHAPSANLUONG").[I:I].ClearContents
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    
    Dim endC As Long
    With Sheets("BaoCao")
      endC = .Cells(2, 256).End(xlToLeft).Column
      .Cells(2, 2).Resize(, endC - 1).Name = "rngKho"
    End With
    
    
    Sheets("NHAPSANLUONG").[I1].Value = "GPE"
    Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[D65536].End(xlUp).Offset(, 5)).FormulaR1C1 = _
        "=AND(RC[-5]<>"""",COUNTIF(rngKho,RC[-5])>0,RC[-7]>=BAOCAO!R3C2,RC[-7]<=BAOCAO!R3C4,OR(BAOCAO!R4C3=""Táút caí"",LEFT(RC[-3])=LEFT(BAOCAO!R4C3)))"
    'Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[D65536].End(xlUp).Offset(, 5)).FormulaR1C1 = "=AND(RC[-5]<>"""",OR(RC[-5]=BAOCAO!R2C2,RC[-5]=BAOCAO!R2C3,RC[-5]=BAOCAO!R2C4,RC[-5]=BAOCAO!R2C5,RC[-5]=BAOCAO!R2C6,RC[-5]=BAOCAO!R2C7,),RC[-7]>=BAOCAO!R3C2,RC[-7]<=BAOCAO!R3C4,OR(BAOCAO!R4C3=""Táút caí"",LEFT(RC[-3])=LEFT(BAOCAO!R4C3)))"
 
    Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[I65536].End(xlUp)) = Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[I65536].End(xlUp)).Value
    Application.Calculation = xlCalculationManual
    'With Range("A11:G65536,H:I")
    With Range("A11:G65536,H11:I65536")
      .ClearContents
      .Font.Bold = False
    End With
    Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=9, Criteria1:="=True"
    Sheets("NHAPSANLUONG").Range("$G$2:$G$65536").SpecialCells(xlCellTypeVisible).Copy [H11]
    Range([H11], [H65536].End(xlUp)) = Range([H11], [H65536].End(xlUp)).Value
    Application.Calculation = xlCalculationAutomatic
    Range([I11], [H65536].End(xlUp).Offset(, 1)).FormulaR1C1 = "=MATCH(RC[-1],MALH!R2C3:R" & Sheets("NHAPSANLUONG").[C65536].End(xlUp).Row & "C3,)"
    Application.Calculation = xlCalculationManual
    Range([H11], [I65536].End(xlUp)).Sort [I11], 1, Header:=xlNo
    [H10].Formula = "=H11&"" GPE"""
    k = 11
    l = 10
    For Each Rng In Range([H11], [H65536].End(xlUp).Offset(1))
        If Left(Rng, 1) <> Left(Rng.Offset(-1), 1) Then
        Range(Cells(k, 1), Cells(k, 6)).Font.Bold = True
        Cells(k, 2) = "Täøng " & IIf(Rng.Offset(-1) = " GPE", [C4].Value, Left(Rng.Offset(-1), InStr(1, Rng.Offset(-1), " ") - 1))
        Cells(k, 6) = Application.WorksheetFunction.Sum(Range([F11], Cells(k - 1, 6))) - TongCong * 2
        TongCong = Application.WorksheetFunction.Sum(Range([F11], Cells(k - 1, 6))) - TongCong
        l = k
            k = k + 1
            Cells(k, 1) = k - l
            Cells(k, 2) = Rng.Value
            Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=7, Criteria1:=Rng.Value
            Cells(k, 6) = Application.WorksheetFunction.Subtotal(9, Sheets("NHAPSANLUONG").Range("$H$2:$H$65536"))
            k = k + 1
        ElseIf Rng <> Rng.Offset(-1) Then
            Cells(k, 2) = Rng.Value
            Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=7, Criteria1:=Rng.Value
            Cells(k, 6) = Application.WorksheetFunction.Subtotal(9, Sheets("NHAPSANLUONG").Range("$H$2:$H$65536"))
            Cells(k, 1) = k - l
            k = k + 1
        End If
    Next
    [F65536].End(xlUp).Offset(, -5).Resize(1, 7).ClearContents
    Range([E11], [B65536].End(xlUp).Offset(, 3)).FormulaR1C1 = "Chiãúc"
    With [B65536].End(xlUp)
        .Offset(4) = "PHUÛ TRAÏCH ÂÅN VË"
        .Offset(4, 2) = "THUÍ KHO"
        .Offset(4, 4) = "NGÆÅÌI NHÁÛP"
    End With
    '[H:I].Clear
    [H10:I65000].Clear
    Sheets("NHAPSANLUONG").ShowAllData
    Sheets("NHAPSANLUONG").[I:I].ClearContents
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub
 

File đính kèm

  • BAOCAO_MACRO1.rar
    129.7 KB · Đọc: 24
Upvote 0
ThuNghi đã viết:
Nếu bạn muốn làm theo AutoFilter thì sẽ sửa theo ý bạn.
1/ Nếu thêm kho thì bạn thêm vào dòng 2, cụ thể là H2, I2,...
2/ Tạo 1 name là rngKho để sửa ct trong code.
[/PHP]
Nhấp chuột vào đây để mở rộng...
anh ơi...1 sao em thêm code như anh mà ko được, copy luôn code của anh dán vào rồi save, bấm báo cáo nó củng ko báo cáo được gì cả. nó ra như thế nàyh1.jpg
Nhờ anh xem giúp... cám ơn ...1
 
Upvote 0
quandrc đã viết:
anh ơi...1 sao em thêm code như anh mà ko được, copy luôn code của anh dán vào rồi save, bấm báo cáo nó củng ko báo cáo được gì cả. nó ra như thế nàyView attachment 56273
Nhờ anh xem giúp... cám ơn ...1
Nhấp chuột vào đây để mở rộng...
Thêm trên đầu code
PHP: 
With Sheets("NHAPSANLUONG")
      .AutoFilterMode = False
  End With
Và thêm dòng này
PHP: 
Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter
trước câu
PHP: 
Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=9, Criteria1:="=True"
Và code là
PHP: 
Private Sub CommandButton1_Click()
  Dim WF As WorksheetFunction, myStr As String
  Set WF = WorksheetFunction
  With Sheets("NHAPSANLUONG")
      .AutoFilterMode = False
  End With
  TongCong = 0
    On Error Resume Next
    Sheets("NHAPSANLUONG").ShowAllData
    Sheets("NHAPSANLUONG").[I:I].ClearContents
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    Dim endC As Long
    With Sheets("BaoCao")
      endC = .Cells(2, 256).End(xlToLeft).Column
      .Cells(2, 2).Resize(, endC - 1).Name = "rngKho"
    End With
    
    myStr = Join(WF.Transpose(WF.Transpose(Range("rngkho").Value)), " ")
    myStr = WF.Trim(myStr)
    myStr = Replace(myStr, " ", ", ")
    If WF.CountA(Range("rngKho")) > 1 Then
      myStr = "Caïc kho: " & myStr
    Else
      myStr = "Kho: " & myStr
    End If
    
    
    Sheets("NHAPSANLUONG").[I1].Value = "GPE"
    Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[D65536].End(xlUp).Offset(, 5)).FormulaR1C1 = _
        "=AND(RC[-5]<>"""",COUNTIF(rngKho,RC[-5])>0,RC[-7]>=BAOCAO!R3C2,RC[-7]<=BAOCAO!R3C4,OR(BAOCAO!R4C3=""Táút caí"",LEFT(RC[-3])=LEFT(BAOCAO!R4C3)))"
    'Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[D65536].End(xlUp).Offset(, 5)).FormulaR1C1 = "=AND(RC[-5]<>"""",OR(RC[-5]=BAOCAO!R2C2,RC[-5]=BAOCAO!R2C3,RC[-5]=BAOCAO!R2C4,RC[-5]=BAOCAO!R2C5,RC[-5]=BAOCAO!R2C6,RC[-5]=BAOCAO!R2C7,),RC[-7]>=BAOCAO!R3C2,RC[-7]<=BAOCAO!R3C4,OR(BAOCAO!R4C3=""Táút caí"",LEFT(RC[-3])=LEFT(BAOCAO!R4C3)))"
 
    Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[I65536].End(xlUp)) = Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[I65536].End(xlUp)).Value
    Application.Calculation = xlCalculationManual
    'With Range("A11:G65536,H:I")
    With Range("A11:G65536,H11:I65536")
      .ClearContents
      .Font.Bold = False
    End With
    Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter
    Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=9, Criteria1:="=True"
    Sheets("NHAPSANLUONG").Range("$G$2:$G$65536").SpecialCells(xlCellTypeVisible).Copy [H11]
    Range([H11], [H65536].End(xlUp)) = Range([H11], [H65536].End(xlUp)).Value
    Application.Calculation = xlCalculationAutomatic
    Range([I11], [H65536].End(xlUp).Offset(, 1)).FormulaR1C1 = "=MATCH(RC[-1],MALH!R2C3:R" & Sheets("NHAPSANLUONG").[C65536].End(xlUp).Row & "C3,)"
    Application.Calculation = xlCalculationManual
    Range([H11], [I65536].End(xlUp)).Sort [I11], 1, Header:=xlNo
    [H10].Formula = "=H11&"" GPE"""
    k = 11
    l = 10
    For Each Rng In Range([H11], [H65536].End(xlUp).Offset(1))
        If Left(Rng, 1) <> Left(Rng.Offset(-1), 1) Then
        Range(Cells(k, 1), Cells(k, 6)).Font.Bold = True
        Cells(k, 2) = "Täøng " & IIf(Rng.Offset(-1) = " GPE", [C4].Value, Left(Rng.Offset(-1), InStr(1, Rng.Offset(-1), " ") - 1))
        Cells(k, 6) = Application.WorksheetFunction.Sum(Range([F11], Cells(k - 1, 6))) - TongCong * 2
        TongCong = Application.WorksheetFunction.Sum(Range([F11], Cells(k - 1, 6))) - TongCong
        l = k
            k = k + 1
            Cells(k, 1) = k - l
            Cells(k, 2) = Rng.Value
            Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=7, Criteria1:=Rng.Value
            Cells(k, 6) = Application.WorksheetFunction.Subtotal(9, Sheets("NHAPSANLUONG").Range("$H$2:$H$65536"))
            k = k + 1
        ElseIf Rng <> Rng.Offset(-1) Then
            Cells(k, 2) = Rng.Value
            Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=7, Criteria1:=Rng.Value
            Cells(k, 6) = Application.WorksheetFunction.Subtotal(9, Sheets("NHAPSANLUONG").Range("$H$2:$H$65536"))
            Cells(k, 1) = k - l
            k = k + 1
        End If
    Next
    [F65536].End(xlUp).Offset(, -5).Resize(1, 7).ClearContents
    Range([E11], [B65536].End(xlUp).Offset(, 3)).FormulaR1C1 = "Chiãúc"
    With [B65536].End(xlUp)
        .Offset(4) = "PHUÛ TRAÏCH ÂÅN VË"
        .Offset(4, 2) = "THUÍ KHO"
        .Offset(4, 4) = "NGÆÅÌI NHÁÛP"
    End With
    '[H:I].Clear
    [H10:I65000].Clear
    Sheets("NHAPSANLUONG").ShowAllData
    Sheets("NHAPSANLUONG").[I:I].ClearContents
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
ThuNghi đã viết:
Thêm trên đầu code
PHP: 
With Sheets("NHAPSANLUONG")
      .AutoFilterMode = False
  End With
Và thêm dòng này
PHP: 
Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter
trước câu
PHP: 
Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=9, Criteria1:="=True"
Và code là
PHP: 
Private Sub CommandButton1_Click()
  Dim WF As WorksheetFunction, myStr As String
  Set WF = WorksheetFunction
  With Sheets("NHAPSANLUONG")
      .AutoFilterMode = False
  End With
  TongCong = 0
    On Error Resume Next
    Sheets("NHAPSANLUONG").ShowAllData
    Sheets("NHAPSANLUONG").[I:I].ClearContents
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    Dim endC As Long
    With Sheets("BaoCao")
      endC = .Cells(2, 256).End(xlToLeft).Column
      .Cells(2, 2).Resize(, endC - 1).Name = "rngKho"
    End With
    
    myStr = Join(WF.Transpose(WF.Transpose(Range("rngkho").Value)), " ")
    myStr = WF.Trim(myStr)
    myStr = Replace(myStr, " ", ", ")
    If WF.CountA(Range("rngKho")) > 1 Then
      myStr = "Caïc kho: " & myStr
    Else
      myStr = "Kho: " & myStr
    End If
    
    
    Sheets("NHAPSANLUONG").[I1].Value = "GPE"
    Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[D65536].End(xlUp).Offset(, 5)).FormulaR1C1 = _
        "=AND(RC[-5]<>"""",COUNTIF(rngKho,RC[-5])>0,RC[-7]>=BAOCAO!R3C2,RC[-7]<=BAOCAO!R3C4,OR(BAOCAO!R4C3=""Táút caí"",LEFT(RC[-3])=LEFT(BAOCAO!R4C3)))"
    'Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[D65536].End(xlUp).Offset(, 5)).FormulaR1C1 = "=AND(RC[-5]<>"""",OR(RC[-5]=BAOCAO!R2C2,RC[-5]=BAOCAO!R2C3,RC[-5]=BAOCAO!R2C4,RC[-5]=BAOCAO!R2C5,RC[-5]=BAOCAO!R2C6,RC[-5]=BAOCAO!R2C7,),RC[-7]>=BAOCAO!R3C2,RC[-7]<=BAOCAO!R3C4,OR(BAOCAO!R4C3=""Táút caí"",LEFT(RC[-3])=LEFT(BAOCAO!R4C3)))"
 
    Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[I65536].End(xlUp)) = Sheets("NHAPSANLUONG").Range(Sheets("NHAPSANLUONG").[I2], Sheets("NHAPSANLUONG").[I65536].End(xlUp)).Value
    Application.Calculation = xlCalculationManual
    'With Range("A11:G65536,H:I")
    With Range("A11:G65536,H11:I65536")
      .ClearContents
      .Font.Bold = False
    End With
    Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter
    Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=9, Criteria1:="=True"
    Sheets("NHAPSANLUONG").Range("$G$2:$G$65536").SpecialCells(xlCellTypeVisible).Copy [H11]
    Range([H11], [H65536].End(xlUp)) = Range([H11], [H65536].End(xlUp)).Value
    Application.Calculation = xlCalculationAutomatic
    Range([I11], [H65536].End(xlUp).Offset(, 1)).FormulaR1C1 = "=MATCH(RC[-1],MALH!R2C3:R" & Sheets("NHAPSANLUONG").[C65536].End(xlUp).Row & "C3,)"
    Application.Calculation = xlCalculationManual
    Range([H11], [I65536].End(xlUp)).Sort [I11], 1, Header:=xlNo
    [H10].Formula = "=H11&"" GPE"""
    k = 11
    l = 10
    For Each Rng In Range([H11], [H65536].End(xlUp).Offset(1))
        If Left(Rng, 1) <> Left(Rng.Offset(-1), 1) Then
        Range(Cells(k, 1), Cells(k, 6)).Font.Bold = True
        Cells(k, 2) = "Täøng " & IIf(Rng.Offset(-1) = " GPE", [C4].Value, Left(Rng.Offset(-1), InStr(1, Rng.Offset(-1), " ") - 1))
        Cells(k, 6) = Application.WorksheetFunction.Sum(Range([F11], Cells(k - 1, 6))) - TongCong * 2
        TongCong = Application.WorksheetFunction.Sum(Range([F11], Cells(k - 1, 6))) - TongCong
        l = k
            k = k + 1
            Cells(k, 1) = k - l
            Cells(k, 2) = Rng.Value
            Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=7, Criteria1:=Rng.Value
            Cells(k, 6) = Application.WorksheetFunction.Subtotal(9, Sheets("NHAPSANLUONG").Range("$H$2:$H$65536"))
            k = k + 1
        ElseIf Rng <> Rng.Offset(-1) Then
            Cells(k, 2) = Rng.Value
            Sheets("NHAPSANLUONG").Range("$A$1:$I$65536").AutoFilter Field:=7, Criteria1:=Rng.Value
            Cells(k, 6) = Application.WorksheetFunction.Subtotal(9, Sheets("NHAPSANLUONG").Range("$H$2:$H$65536"))
            Cells(k, 1) = k - l
            k = k + 1
        End If
    Next
    [F65536].End(xlUp).Offset(, -5).Resize(1, 7).ClearContents
    Range([E11], [B65536].End(xlUp).Offset(, 3)).FormulaR1C1 = "Chiãúc"
    With [B65536].End(xlUp)
        .Offset(4) = "PHUÛ TRAÏCH ÂÅN VË"
        .Offset(4, 2) = "THUÍ KHO"
        .Offset(4, 4) = "NGÆÅÌI NHÁÛP"
    End With
    '[H:I].Clear
    [H10:I65000].Clear
    Sheets("NHAPSANLUONG").ShowAllData
    Sheets("NHAPSANLUONG").[I:I].ClearContents
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Sao vẩn ko đc. copy nguyên đoan code trên dán vào ctrl+s và ctrl+q sau đó nhập kho kb61 vào ô H2, Bấm báo thì im re ko ra cái gì cả và kb61 củng mất tiêu. nhờ anh xem lại giúp và test thử ....
 
Upvote 0
quandrc đã viết:
Sao vẩn ko đc. copy nguyên đoan code trên dán vào ctrl+s và ctrl+q sau đó nhập kho kb61 vào ô H2, Bấm báo thì im re ko ra cái gì cả và kb61 củng mất tiêu. nhờ anh xem lại giúp và test thử ....
Nhấp chuột vào đây để mở rộng...
Xem File kèm, tôi đã test rồi mà.
 

File đính kèm

  • BAOCAO_MACRO1.rar
    315.4 KB · Đọc: 47
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

P
Unsurpassed Сasual Dating - Legitimate Girls
Trả lời
0
Đọc
5
pta289
P
kiencuong030184
  • Question
ẩn hiện dòng, cột có điều kiên
Trả lời
0
Đọc
5
kiencuong030184
kiencuong030184
A
[Góc giúp đỡ] Tìm kiếm, lọc và lấy dữ liệu từ nhiều file Word cấu trúc giống nhau vào 1 file excel mẫu
Trả lời
4
Đọc
92
Hoàng Tuấn 868
H
Emyeuexcel
  • Question
In theo số thứ tự
Trả lời
1
Đọc
31
VetMini
V
Emyeuexcel
In theo số thứ tự
Trả lời
2
Đọc
43
VetMini
V
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom