copy dữ liệu sang sheet khác (1 người xem)

[phulien1902]

Cảm ơn bạn giỏi quá. Mình mới tập tành làm nên chưa rành lắm

Bạn quá khen, tôi cũng chỉ học mót từ các thành viên khác mà thôi.
Rất vui vì đã giúp được bạn. Chúc bạn 1 ngày vui vẻ.

 

[thdanh]

Cảm ơn bạn giỏi quá. Mình mới tập tành làm nên chưa rành lắm

Nhưng bạn ơi mình có cách nào làm tiêu đề nó In đậm chỉ khi nó nằm ở Cell đó khi chuyển sang cell khác thì cell mói In đậm cell cũng chuyển laj bình thường. Còn cột tổng cộng nữa bạn ơi

 

[phulien1902]

Nhưng bạn ơi mình có cách nào làm tiêu đề nó In đậm chỉ khi nó nằm ở Cell đó khi chuyển sang cell khác thì cell mói In đậm cell cũng chuyển laj bình thường

Bạn nói rõ hơn, cụ thể trong File BANHANG?

 

[thdanh]

Bạn nói rõ hơn, cụ thể trong File BANHANG?

Trong file in HĐ BH đó bạn. vd: Khi mình In đậm(hoặc các định dạng khác) c11 của tiêu đề. đến mã hđ khác tiêu đề không nằm ơ C11 nữa mà nằm C50 thi fkhi đó C11 vẫn In đậm. mình chỉ muốn là nó in đậm lúc nào hiện tiêu đề thôi. Với lại bạn làm dùm mình cột tổng cộng đơn hàng ở cuối dòng dùm mình với

 

[phulien1902]

Trong file in HĐ BH đó bạn. vd: Khi mình In đậm(hoặc các định dạng khác) c11 của tiêu đề. đến mã hđ khác tiêu đề không nằm ơ C11 nữa mà nằm C50 thi fkhi đó C11 vẫn In đậm. mình chỉ muốn là nó in đậm lúc nào hiện tiêu đề thôi. Với lại bạn làm dùm mình cột tổng cộng đơn hàng ở cuối dòng dùm mình với

Tôi gán dòng "Tổng tiền", còn việc chữ In đậm, in nghiêng đơn giản lắm, bạn chịu ghi Macro là được.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
    If Target.Address = "$G$3" Then
        dk = [G3].Value
        a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
        Application.ScreenUpdating = False
        For i = 1 To UBound(a)
            If a(i, 1) = dk And dk <> Empty Then
                k = k + 1
                b(k, 1) = k
                b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
                b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
                b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
                b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
            End If
        Next
        If k Then
            Range("A11:I1000").ClearContents
            Range("A11").Resize(k, 9) = b
            Range("A11:I65000").Borders.LineStyle = xlNone
            Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
            Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
            Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 14
            LR = Range("A5000").End(xlUp).Row
             Range("G" & LR + 1) = "T" & ChrW(7893) & "ng ti" & ChrW(7873) & "n:"
              Range("I" & LR + 1).Formula = Application.Evaluate("=SUM(I11:I" & LR & ")")
            Range("G" & LR + 2) = Sheets("thongtin").Range("B1")
            Range("G" & LR + 2).Font.Italic = True
            Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
            Range("G" & LR + 3).Font.Bold = True
            Range("G" & LR + 7) = Sheets("thongtin").Range("B4")
        Else
            Range("A11:I65000").Borders.LineStyle = xlNone
        End If
    End If
    Range("A1:I" & LR + 8).Select
    'Range("A1:I" & LR + 8).PrintOut
End Sub

 

[thdanh]

Tôi gán dòng "Tổng tiền", còn việc chữ In đậm, in nghiêng đơn giản lắm, bạn chịu ghi Macro là được.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
    If Target.Address = "$G$3" Then
        dk = [G3].Value
        a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
        Application.ScreenUpdating = False
        For i = 1 To UBound(a)
            If a(i, 1) = dk And dk <> Empty Then
                k = k + 1
                b(k, 1) = k
                b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
                b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
                b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
                b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
            End If
        Next
        If k Then
            Range("A11:I1000").ClearContents
            Range("A11").Resize(k, 9) = b
            Range("A11:I65000").Borders.LineStyle = xlNone
            Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
            Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
            Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 14
            LR = Range("A5000").End(xlUp).Row
             Range("G" & LR + 1) = "T" & ChrW(7893) & "ng ti" & ChrW(7873) & "n:"
              Range("I" & LR + 1).Formula = Application.Evaluate("=SUM(I11:I" & LR & ")")
            Range("G" & LR + 2) = Sheets("thongtin").Range("B1")
            Range("G" & LR + 2).Font.Italic = True
            Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
            Range("G" & LR + 3).Font.Bold = True
            Range("G" & LR + 7) = Sheets("thongtin").Range("B4")
        Else
            Range("A11:I65000").Borders.LineStyle = xlNone
        End If
    End If
    Range("A1:I" & LR + 8).Select
    'Range("A1:I" & LR + 8).PrintOut
End Sub

Bạn siêu thật. Mình không rành về macro bạn có thể chỉ giúp mình luôn không. Ủa sao bạn không đưa cột tổng tiền vào khung luôn giống ở trên cho đẹp. Mình rất cảm kích bạn.

 

[phulien1902]

Ủa sao bạn không đưa cột tổng tiền vào khung luôn giống ở trên cho đẹp. Mình rất cảm kích bạn.

Bạn xem File

 

[be_09]

Bạn siêu thật. Mình không rành về macro bạn có thể chỉ giúp mình luôn không. Ủa sao bạn không đưa cột tổng tiền vào khung luôn giống ở trên cho đẹp. Mình rất cảm kích bạn.

Được voi sao không đòi tiên luôn hàm "Đọc số thành chữ".

 

[thdanh]

Bạn xem File

Quá hay nhưng mà nó còn phần định dạng In đậm đó bạn

 

[phulien1902]

Được voi sao không đòi tiên luôn hàm "Đọc số thành chữ".

Cái vụ này em hổng có biết đâu bác nhé, khà khà.

 

[thdanh]

Cái vụ này em hổng có biết đâu bác nhé, khà khà.

Kakakak. Bác giúp mình như vậy là quí lắm rồi. Chân thành cảm ơn và chúc bác và gia đình dồi dào sức khỏe

 

[thdanh]

Kakakak. Bác giúp mình như vậy là quí lắm rồi. Chân thành cảm ơn và chúc bác và gia đình dồi dào sức khỏe

Bạn cho mình hỏi. Mình có code đổi số ra chữ rồi bây giờ mình muốn đưa vào dòng cuối kế dòng tổng tiền như thế nào vậy bạn

 

[phulien1902]

Bạn cho mình hỏi. Mình có code đổi số ra chữ rồi bây giờ mình muốn đưa vào dòng cuối kế dòng tổng tiền như thế nào vậy bạn

Bạn xem File:

 

[thdanh]

Bạn xem File

Bạn xem File:

Bạn đã trở lại và lợi hại hơn xưa.kakakakak. Nhưng mà sao nó báo lỗi dòng đầu tiên bạn ơi

 

[phulien1902]

Bạn đã trở lại và lợi hại hơn xưa.kakakakak. Nhưng mà sao nó báo lỗi dòng đầu tiên bạn ơi

Bạn chụp hình lên xem nào. Máy tôi chưa phát hiện ra lỗi.

 

[thdanh]

Bạn chụp hình lên xem nào. Máy tôi chưa phát hiện ra lỗi.

Nó báo lỗi 13

 

[phulien1902]

Nghĩa là bạn vẫn chưa nhìn thấy dòng tiền bằng chữ phải không?

 

[Ba Tê]

Bạn chụp hình lên xem nào. Máy tôi chưa phát hiện ra lỗi.

Mấy cái "đuôi" bên dưới định dạng đủ thứ thì nên để nó ở "phương trời nào đó" phía dưới, Format nó 1 lần do "chủ nhơn" làm, code chỉ làm nhiệm vụ lọc dữ liệu cho gọn.
Dòng nào không có dữ liệu thì ẩn nó đi.
Đừng chiều theo ý của "chủ nhơn" cho mệt.
Sửa code của bạn lại 1 chút.

 

[phulien1902]

Mấy cái "đuôi" bên dưới định dạng đủ thứ thì nên để nó ở "phương trời nào đó" phía dưới, Format nó 1 lần do "chủ nhơn" làm, code chỉ làm nhiệm vụ lọc dữ liệu cho gọn.
Dòng nào không có dữ liệu thì ẩn nó đi.
Đừng chiều theo ý của "chủ nhơn" cho mệt.
Sửa code của bạn lại 1 chút.

Xin cảm ơn bác Ba tê

 

[thdanh]

Mấy cái "đuôi" bên dưới định dạng đủ thứ thì nên để nó ở "phương trời nào đó" phía dưới, Format nó 1 lần do "chủ nhơn" làm, code chỉ làm nhiệm vụ lọc dữ liệu cho gọn.
Dòng nào không có dữ liệu thì ẩn nó đi.
Đừng chiều theo ý của "chủ nhơn" cho mệt.
Sửa code của bạn lại 1 chút.

Rất cảm ơn bạn Ba Tê đã giúp mình rút gọn lại code. Đa tạ sự giúp đỡ của 2 bạn
phulien1902,
Ba Tê