Nhờ mọi người hỗ trợ giúp mình CODE này

tranhoai1368 · 14/3/21

Em chào mọi người ah!
CODE VBA không phải do em viết, chỉ lượm lặt về sử dụng (chưa rõ tác giả).
Em có vấn đề như sau, rất mong mọi người chỉ giúp:
- Sheet DCCN chỉ lọc Sheet NHAP (Chọn Nhà cung cấp, Từ ngày ... Đến ngày ...), em bổ sung thêm:
Khi thay đổi ô C2 ở sheet DCCN (PN = Sheet NHAP, PX = Sheet XUAT) sẽ tự động chuyển bộ lọc
ở sheet NHAP hoặc sheet XUAT và tối đa là CODE.
- Tùy chọn của danh sách khách hàng, có cách để tôi đi đến dòng của bạn TIÊU ĐỀ (làm nổi bật),
nếu được chỉ cho phép lựa chọn 1 (lựa chọn sau, cái trước khi mất tự động).
Em xin thành thật cảm ơn mọi người rất nhiều ah!

Bạn cần đăng nhập để thấy link

Binana · 15/3/21

tranhoai1368
Định hỗ trợ bạn nhưng thấy sheet nhập xuất không cùng cấu trúc.Làm biếng viết lại

- Tùy chọn của danh sách khách hàng, có cách để tôi đi đến dòng của bạn TIÊU ĐỀ (làm nổi bật),
nếu được chỉ cho phép lựa chọn 1 (lựa chọn sau, cái trước khi mất tự động).
Em xin thành thật cảm ơn mọi người rất nhiều ah!

Cái đoạn này không có hiểu lắm

Binana · 15/3/21

@tranhoai1368
Mình thấy bạn còn 1 ô J2 trên sheet DCCN để khuất đi. không biết có mục đích gì không?
Bạn thử code sau xem đúng ý bạn không nhé

Mã:

Sub BBDCCN()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Dim i  As Long, K As Long, Dcuoi As Long, Tensheet$, Sht$
    Dim ArrN(), ArrD()
'On Error Resume Next
Tensheet = Sheets("DCCN").Range("C2").Value
If Tensheet = "" Then MsgBox "Khong duoc de trong": Exit Sub
If Tensheet = "PN" Then
    Sht = "NHAP"
Else
    Sht = "XUAT"
End If
Dcuoi = Sheets(Sht).Range("B1000000").End(xlUp).Row
ArrN = Sheets(Sht).Range("B3:N" & Dcuoi).Value
ReDim ArrD(1 To UBound(ArrN, 1), 1 To 10)
tungay = Sheets("DCCN").[E2].Value
denngay = Sheets("DCCN").[G2].Value
KH = Sheets("DCCN").[J2].Value
If tungay > denngay Then
    MsgBox "Tu ngay den ngay khong dung !"
    Sheets("DCCN").[E2].Select
    Exit Sub
End If
For i = 1 To UBound(ArrN, 1)
    If ArrN(i, 3) <> "" Then
    If tungay <= ArrN(i, 3) And ArrN(i, 3) <= denngay And ArrN(i, 4) = KH Then
        K = K + 1
        ArrD(K, 1) = K
        ArrD(K, 2) = ArrN(i, 2)
        ArrD(K, 3) = ArrN(i, 3)
        ArrD(K, 4) = ArrN(i, 8)
        ArrD(K, 5) = ArrN(i, 10)
        ArrD(K, 6) = ArrN(i, 11)
        ArrD(K, 7) = ArrN(i, 9)
        ArrD(K, 8) = ArrN(i, 12)
        ArrD(K, 9) = ArrN(i, 13)
        ArrD(K, 10) = ArrN(i, 1)
    End If
    End If
Next
If K = 0 Then
    MsgBox "Chua co phat sinh"
    Exit Sub
Else
    With Sheets("DCCN")
        .Range("B17:K" & Dcuoi).Clear
        .Range("G17").Offset(K, 0) = "C" & ChrW(7897) & "ng ti" & ChrW(7873) & "n hàng"
        .Range("G17").Offset(K + 1, 0) = "Ti" & ChrW(7873) & "n thu" & ChrW(7871) & " GTGT 10%"
        .Range("G17").Offset(K + 2, 0) = "T" & ChrW(7893) & "ng c" & ChrW(7897) & "ng ti" & ChrW(7873) & "n thanh toán"
        .Range("J17").Offset(K, 0) = "=SUM(R17C:R[-1]C)"
        .Range("J17").Offset(K + 1, 0) = "=ROUND(R[-1]C*10%,0)"
        .Range("J17").Offset(K + 1, 0).Font.Underline = xlUnderlineStyleSingle
        .Range("J17").Offset(K + 2, 0) = "=R[-2]C+R[-1]C"
        .Range("B17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("C17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("C17").Resize(K + 3, 1).NumberFormat = "0000"
        .Range("D17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("D17").Resize(K + 3, 1).NumberFormat = "dd/mm/yyyy"
        .Range("F17").Resize(K + 3, 1).NumberFormat = "#,##0.0"
        .Range("G17").Resize(K + 3, 1).NumberFormat = "#,##0.0000"
        .Range("H17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0"
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0"
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0;[Red](#,##0)"
        .Range("J17").Resize(K + 3, 2).NumberFormat = "#,##0;[Red](#,##0)"
        .Range("K17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("B17").Resize(K + 0, 9).Borders.ColorIndex = 16
        .Range("B17").Resize(K + 0, 9).Borders.LineStyle = 1
        .Range("B17").Offset(K, 0).Resize(3, 9).Font.Bold = True
        .Range("B17").Resize(K, 10) = ArrD
        .Range("D17").Offset(K + 3, 0) = "Thành ti" & ChrW(7873) & "n b" & ChrW(7857) & "ng ch" & ChrW(7919) & ":"
        .Range("D17").Offset(K + 3, 0).HorizontalAlignment = xlRight
        .Range("B17").Offset(K + 3, 0).Resize(1, 9).Font.Italic = True
        .Range("E17").Offset(K + 3, 0).Value = "=tvnd(R[-1]C[5])"
        .Range("D17").Offset(K + 5, 0) = "KH" & ChrW(193) & "CH H" & ChrW(192) & "NG"
        .Range("H17").Offset(K + 5, 0) = "NG" & ChrW(431) & ChrW(7900) & "I L" & ChrW(7852) & "P BI" & ChrW(7874) & "U"
        .Range("D17").Offset(K + 5, 0).Resize(3, 9).Font.Bold = True
        .Range("B17:K" & Dcuoi).VerticalAlignment = xlCenter
        .Range("B17:K" & Dcuoi).Font.Name = "Times New Roman"
        .Range("B17:K" & Dcuoi).Font.Size = 13
        .Range("B17:K" & Dcuoi).RowHeight = 30
        .Range("E17").Resize(K + 3, 1).InsertIndent 1
        .Range("B17").Offset(K + 4, 0).RowHeight = 8
    End With
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

tranhoai1368 · 15/3/21

Binana nói:

@tranhoai1368
Mình thấy bạn còn 1 ô J2 trên sheet DCCN để khuất đi. không biết có mục đích gì không?
Bạn thử code sau xem đúng ý bạn không nhé

Mã:

Sub BBDCCN()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Dim i  As Long, K As Long, Dcuoi As Long, Tensheet$, Sht$
    Dim ArrN(), ArrD()
'On Error Resume Next
Tensheet = Sheets("DCCN").Range("C2").Value
If Tensheet = "" Then MsgBox "Khong duoc de trong": Exit Sub
If Tensheet = "PN" Then
    Sht = "NHAP"
Else
    Sht = "XUAT"
End If
Dcuoi = Sheets(Sht).Range("B1000000").End(xlUp).Row
ArrN = Sheets(Sht).Range("B3:N" & Dcuoi).Value
ReDim ArrD(1 To UBound(ArrN, 1), 1 To 10)
tungay = Sheets("DCCN").[E2].Value
denngay = Sheets("DCCN").[G2].Value
KH = Sheets("DCCN").[J2].Value
If tungay > denngay Then
    MsgBox "Tu ngay den ngay khong dung !"
    Sheets("DCCN").[E2].Select
    Exit Sub
End If
For i = 1 To UBound(ArrN, 1)
    If ArrN(i, 3) <> "" Then
    If tungay <= ArrN(i, 3) And ArrN(i, 3) <= denngay And ArrN(i, 4) = KH Then
        K = K + 1
        ArrD(K, 1) = K
        ArrD(K, 2) = ArrN(i, 2)
        ArrD(K, 3) = ArrN(i, 3)
        ArrD(K, 4) = ArrN(i, 8)
        ArrD(K, 5) = ArrN(i, 10)
        ArrD(K, 6) = ArrN(i, 11)
        ArrD(K, 7) = ArrN(i, 9)
        ArrD(K, 8) = ArrN(i, 12)
        ArrD(K, 9) = ArrN(i, 13)
        ArrD(K, 10) = ArrN(i, 1)
    End If
    End If
Next
If K = 0 Then
    MsgBox "Chua co phat sinh"
    Exit Sub
Else
    With Sheets("DCCN")
        .Range("B17:K" & Dcuoi).Clear
        .Range("G17").Offset(K, 0) = "C" & ChrW(7897) & "ng ti" & ChrW(7873) & "n hàng"
        .Range("G17").Offset(K + 1, 0) = "Ti" & ChrW(7873) & "n thu" & ChrW(7871) & " GTGT 10%"
        .Range("G17").Offset(K + 2, 0) = "T" & ChrW(7893) & "ng c" & ChrW(7897) & "ng ti" & ChrW(7873) & "n thanh toán"
        .Range("J17").Offset(K, 0) = "=SUM(R17C:R[-1]C)"
        .Range("J17").Offset(K + 1, 0) = "=ROUND(R[-1]C*10%,0)"
        .Range("J17").Offset(K + 1, 0).Font.Underline = xlUnderlineStyleSingle
        .Range("J17").Offset(K + 2, 0) = "=R[-2]C+R[-1]C"
        .Range("B17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("C17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("C17").Resize(K + 3, 1).NumberFormat = "0000"
        .Range("D17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("D17").Resize(K + 3, 1).NumberFormat = "dd/mm/yyyy"
        .Range("F17").Resize(K + 3, 1).NumberFormat = "#,##0.0"
        .Range("G17").Resize(K + 3, 1).NumberFormat = "#,##0.0000"
        .Range("H17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0"
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0"
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0;[Red](#,##0)"
        .Range("J17").Resize(K + 3, 2).NumberFormat = "#,##0;[Red](#,##0)"
        .Range("K17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("B17").Resize(K + 0, 9).Borders.ColorIndex = 16
        .Range("B17").Resize(K + 0, 9).Borders.LineStyle = 1
        .Range("B17").Offset(K, 0).Resize(3, 9).Font.Bold = True
        .Range("B17").Resize(K, 10) = ArrD
        .Range("D17").Offset(K + 3, 0) = "Thành ti" & ChrW(7873) & "n b" & ChrW(7857) & "ng ch" & ChrW(7919) & ":"
        .Range("D17").Offset(K + 3, 0).HorizontalAlignment = xlRight
        .Range("B17").Offset(K + 3, 0).Resize(1, 9).Font.Italic = True
        .Range("E17").Offset(K + 3, 0).Value = "=tvnd(R[-1]C[5])"
        .Range("D17").Offset(K + 5, 0) = "KH" & ChrW(193) & "CH H" & ChrW(192) & "NG"
        .Range("H17").Offset(K + 5, 0) = "NG" & ChrW(431) & ChrW(7900) & "I L" & ChrW(7852) & "P BI" & ChrW(7874) & "U"
        .Range("D17").Offset(K + 5, 0).Resize(3, 9).Font.Bold = True
        .Range("B17:K" & Dcuoi).VerticalAlignment = xlCenter
        .Range("B17:K" & Dcuoi).Font.Name = "Times New Roman"
        .Range("B17:K" & Dcuoi).Font.Size = 13
        .Range("B17:K" & Dcuoi).RowHeight = 30
        .Range("E17").Resize(K + 3, 1).InsertIndent 1
        .Range("B17").Offset(K + 4, 0).RowHeight = 8
    End With
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Cám ơn bạn rất nhiều nha, đúng ý mình rồi. Không biết có cách nào tối ưu CODE cho gọn lại không ah?
Ô J2 là mã khách hàng (nhà cung cấp) dùng để dò tên khách hàng, địa chỉ, mã số thuế đó bạn

Binana nói:
tranhoai1368
Định hỗ trợ bạn nhưng thấy sheet nhập xuất không cùng cấu trúc.Làm biếng viết lại
Cái đoạn này không có hiểu lắm

Khi bạn nhấn vào nút đối chiếu hiện lên, mà tiêu đề khác biệt với khách hàng (nhà cung cấp),
hiện tại click chọn nhiều đối tượng (bẫy chỉ được phép chọn 1 thôi, cái sau cùng)

Bạn cần đăng nhập để thấy link

Binana · 16/3/21

tranhoai1368 nói:
Khi bạn nhấn vào nút đối chiếu hiện lên, mà tiêu đề khác biệt với khách hàng (nhà cung cấp),
hiện tại click chọn nhiều đối tượng (bẫy chỉ được phép chọn 1 thôi, cái sau cùng)

Tức là bạn chỉ muốn cho chọn cái thôi đúng không?

tranhoai1368 · 16/3/21

Binana nói:
Tức là bạn chỉ muốn cho chọn cái thôi đúng không?

- Đúng rồi bạn, chỉ cho phép chọn 1
- Có cách nào làm TIÊU ĐỀ nổi lên không nhỉ

tranhoai1368 · 17/3/21

Binana nói:

@tranhoai1368
Mình thấy bạn còn 1 ô J2 trên sheet DCCN để khuất đi. không biết có mục đích gì không?
Bạn thử code sau xem đúng ý bạn không nhé

Mã:

Sub BBDCCN()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Dim i  As Long, K As Long, Dcuoi As Long, Tensheet$, Sht$
    Dim ArrN(), ArrD()
'On Error Resume Next
Tensheet = Sheets("DCCN").Range("C2").Value
If Tensheet = "" Then MsgBox "Khong duoc de trong": Exit Sub
If Tensheet = "PN" Then
    Sht = "NHAP"
Else
    Sht = "XUAT"
End If
Dcuoi = Sheets(Sht).Range("B1000000").End(xlUp).Row
ArrN = Sheets(Sht).Range("B3:N" & Dcuoi).Value
ReDim ArrD(1 To UBound(ArrN, 1), 1 To 10)
tungay = Sheets("DCCN").[E2].Value
denngay = Sheets("DCCN").[G2].Value
KH = Sheets("DCCN").[J2].Value
If tungay > denngay Then
    MsgBox "Tu ngay den ngay khong dung !"
    Sheets("DCCN").[E2].Select
    Exit Sub
End If
For i = 1 To UBound(ArrN, 1)
    If ArrN(i, 3) <> "" Then
    If tungay <= ArrN(i, 3) And ArrN(i, 3) <= denngay And ArrN(i, 4) = KH Then
        K = K + 1
        ArrD(K, 1) = K
        ArrD(K, 2) = ArrN(i, 2)
        ArrD(K, 3) = ArrN(i, 3)
        ArrD(K, 4) = ArrN(i, 8)
        ArrD(K, 5) = ArrN(i, 10)
        ArrD(K, 6) = ArrN(i, 11)
        ArrD(K, 7) = ArrN(i, 9)
        ArrD(K, 8) = ArrN(i, 12)
        ArrD(K, 9) = ArrN(i, 13)
        ArrD(K, 10) = ArrN(i, 1)
    End If
    End If
Next
If K = 0 Then
    MsgBox "Chua co phat sinh"
    Exit Sub
Else
    With Sheets("DCCN")
        .Range("B17:K" & Dcuoi).Clear
        .Range("G17").Offset(K, 0) = "C" & ChrW(7897) & "ng ti" & ChrW(7873) & "n hàng"
        .Range("G17").Offset(K + 1, 0) = "Ti" & ChrW(7873) & "n thu" & ChrW(7871) & " GTGT 10%"
        .Range("G17").Offset(K + 2, 0) = "T" & ChrW(7893) & "ng c" & ChrW(7897) & "ng ti" & ChrW(7873) & "n thanh toán"
        .Range("J17").Offset(K, 0) = "=SUM(R17C:R[-1]C)"
        .Range("J17").Offset(K + 1, 0) = "=ROUND(R[-1]C*10%,0)"
        .Range("J17").Offset(K + 1, 0).Font.Underline = xlUnderlineStyleSingle
        .Range("J17").Offset(K + 2, 0) = "=R[-2]C+R[-1]C"
        .Range("B17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("C17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("C17").Resize(K + 3, 1).NumberFormat = "0000"
        .Range("D17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("D17").Resize(K + 3, 1).NumberFormat = "dd/mm/yyyy"
        .Range("F17").Resize(K + 3, 1).NumberFormat = "#,##0.0"
        .Range("G17").Resize(K + 3, 1).NumberFormat = "#,##0.0000"
        .Range("H17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0"
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0"
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0;[Red](#,##0)"
        .Range("J17").Resize(K + 3, 2).NumberFormat = "#,##0;[Red](#,##0)"
        .Range("K17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("B17").Resize(K + 0, 9).Borders.ColorIndex = 16
        .Range("B17").Resize(K + 0, 9).Borders.LineStyle = 1
        .Range("B17").Offset(K, 0).Resize(3, 9).Font.Bold = True
        .Range("B17").Resize(K, 10) = ArrD
        .Range("D17").Offset(K + 3, 0) = "Thành ti" & ChrW(7873) & "n b" & ChrW(7857) & "ng ch" & ChrW(7919) & ":"
        .Range("D17").Offset(K + 3, 0).HorizontalAlignment = xlRight
        .Range("B17").Offset(K + 3, 0).Resize(1, 9).Font.Italic = True
        .Range("E17").Offset(K + 3, 0).Value = "=tvnd(R[-1]C[5])"
        .Range("D17").Offset(K + 5, 0) = "KH" & ChrW(193) & "CH H" & ChrW(192) & "NG"
        .Range("H17").Offset(K + 5, 0) = "NG" & ChrW(431) & ChrW(7900) & "I L" & ChrW(7852) & "P BI" & ChrW(7874) & "U"
        .Range("D17").Offset(K + 5, 0).Resize(3, 9).Font.Bold = True
        .Range("B17:K" & Dcuoi).VerticalAlignment = xlCenter
        .Range("B17:K" & Dcuoi).Font.Name = "Times New Roman"
        .Range("B17:K" & Dcuoi).Font.Size = 13
        .Range("B17:K" & Dcuoi).RowHeight = 30
        .Range("E17").Resize(K + 3, 1).InsertIndent 1
        .Range("B17").Offset(K + 4, 0).RowHeight = 8
    End With
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Bạn chỉnh giúp mình chỗ khi ô C2 mà để trống thì thông báo và thoát ra đã có.
Mình muốn thêm sẽ tự nhảy vào ô C2 sau khi thoát ra để người ta biết luôn.
Cám ơn bạn rất nhiều !

Binana · 17/3/21

Bản thân cái ô c2 ấy nếu bằng thống thì nó cũng hiển thị thông báo mà mà

tranhoai1368 · 17/3/21

Binana nói:
Bản thân cái ô c2 ấy nếu bằng thống thì nó cũng hiển thị thông báo mà mà

Em muốn sau khi có thông báo thoát, tự chọn vào ô đó luôn ấy.
Để người dùng biết là ô mình cần chọn luôn mà không cần di chuột đến ô đó cho tiện.
Cám ơn anh nhiều !

Binana · 18/3/21

tranhoai1368 nói:
Em muốn sau khi có thông báo thoát, tự chọn vào ô đó luôn ấy.
Để người dùng biết là ô mình cần chọn luôn mà không cần di chuột đến ô đó cho tiện.
Cám ơn anh nhiều !

Mã:

Sub BBDCCN()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Dim i  As Long, K As Long, Dcuoi As Long, Tensheet$, Sht$
    Dim ArrN(), ArrD()
'On Error Resume Next
Tensheet = Sheets("DCCN").Range("C2").Value
If Tensheet = "" Then MsgBox "Khong duoc de trong":Sheets("DCCN").Range("C2").Select: Exit Sub
If Tensheet = "PN" Then
    Sht = "NHAP"
Else
    Sht = "XUAT"
End If
Dcuoi = Sheets(Sht).Range("B1000000").End(xlUp).Row
ArrN = Sheets(Sht).Range("B3:N" & Dcuoi).Value
ReDim ArrD(1 To UBound(ArrN, 1), 1 To 10)
tungay = Sheets("DCCN").[E2].Value
denngay = Sheets("DCCN").[G2].Value
KH = Sheets("DCCN").[J2].Value
If tungay > denngay Then
    MsgBox "Tu ngay den ngay khong dung !"
    Sheets("DCCN").[E2].Select
    Exit Sub
End If
For i = 1 To UBound(ArrN, 1)
    If ArrN(i, 3) <> "" Then
    If tungay <= ArrN(i, 3) And ArrN(i, 3) <= denngay And ArrN(i, 4) = KH Then
        K = K + 1
        ArrD(K, 1) = K
        ArrD(K, 2) = ArrN(i, 2)
        ArrD(K, 3) = ArrN(i, 3)
        ArrD(K, 4) = ArrN(i, 8)
        ArrD(K, 5) = ArrN(i, 10)
        ArrD(K, 6) = ArrN(i, 11)
        ArrD(K, 7) = ArrN(i, 9)
        ArrD(K, 8) = ArrN(i, 12)
        ArrD(K, 9) = ArrN(i, 13)
        ArrD(K, 10) = ArrN(i, 1)
    End If
    End If
Next
If K = 0 Then
    MsgBox "Chua co phat sinh"
    Exit Sub
Else
    With Sheets("DCCN")
        .Range("B17:K" & Dcuoi).Clear
        .Range("G17").Offset(K, 0) = "C" & ChrW(7897) & "ng ti" & ChrW(7873) & "n hàng"
        .Range("G17").Offset(K + 1, 0) = "Ti" & ChrW(7873) & "n thu" & ChrW(7871) & " GTGT 10%"
        .Range("G17").Offset(K + 2, 0) = "T" & ChrW(7893) & "ng c" & ChrW(7897) & "ng ti" & ChrW(7873) & "n thanh toán"
        .Range("J17").Offset(K, 0) = "=SUM(R17C:R[-1]C)"
        .Range("J17").Offset(K + 1, 0) = "=ROUND(R[-1]C*10%,0)"
        .Range("J17").Offset(K + 1, 0).Font.Underline = xlUnderlineStyleSingle
        .Range("J17").Offset(K + 2, 0) = "=R[-2]C+R[-1]C"
        .Range("B17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("C17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("C17").Resize(K + 3, 1).NumberFormat = "0000"
        .Range("D17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("D17").Resize(K + 3, 1).NumberFormat = "dd/mm/yyyy"
        .Range("F17").Resize(K + 3, 1).NumberFormat = "#,##0.0"
        .Range("G17").Resize(K + 3, 1).NumberFormat = "#,##0.0000"
        .Range("H17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0"
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0"
        .Range("I17").Resize(K + 3, 2).NumberFormat = "#,##0;[Red](#,##0)"
        .Range("J17").Resize(K + 3, 2).NumberFormat = "#,##0;[Red](#,##0)"
        .Range("K17").Resize(K + 3, 1).HorizontalAlignment = xlCenter
        .Range("B17").Resize(K + 0, 9).Borders.ColorIndex = 16
        .Range("B17").Resize(K + 0, 9).Borders.LineStyle = 1
        .Range("B17").Offset(K, 0).Resize(3, 9).Font.Bold = True
        .Range("B17").Resize(K, 10) = ArrD
        .Range("D17").Offset(K + 3, 0) = "Thành ti" & ChrW(7873) & "n b" & ChrW(7857) & "ng ch" & ChrW(7919) & ":"
        .Range("D17").Offset(K + 3, 0).HorizontalAlignment = xlRight
        .Range("B17").Offset(K + 3, 0).Resize(1, 9).Font.Italic = True
        .Range("E17").Offset(K + 3, 0).Value = "=tvnd(R[-1]C[5])"
        .Range("D17").Offset(K + 5, 0) = "KH" & ChrW(193) & "CH H" & ChrW(192) & "NG"
        .Range("H17").Offset(K + 5, 0) = "NG" & ChrW(431) & ChrW(7900) & "I L" & ChrW(7852) & "P BI" & ChrW(7874) & "U"
        .Range("D17").Offset(K + 5, 0).Resize(3, 9).Font.Bold = True
        .Range("B17:K" & Dcuoi).VerticalAlignment = xlCenter
        .Range("B17:K" & Dcuoi).Font.Name = "Times New Roman"
        .Range("B17:K" & Dcuoi).Font.Size = 13
        .Range("B17:K" & Dcuoi).RowHeight = 30
        .Range("E17").Resize(K + 3, 1).InsertIndent 1
        .Range("B17").Offset(K + 4, 0).RowHeight = 8
    End With
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Bạn thay code này

Nhờ mọi người hỗ trợ giúp mình CODE này

tranhoai1368

Yêu THVBA

Binana

VIP

Binana

VIP

tranhoai1368

Yêu THVBA

Binana

VIP

tranhoai1368

Yêu THVBA

tranhoai1368

Yêu THVBA

Binana

VIP

tranhoai1368

Yêu THVBA

Binana

VIP