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

  • Thread starter Thread starter black0
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
thdanh đã viết:
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ấp chuột vào đây để mở rộng...
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
 
Lần chỉnh sửa cuối:
phulien1902 đã viết:
Bạn nói rõ hơn, cụ thể trong File BANHANG?
Nhấp chuột vào đây để mở rộng...
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
 
thdanh đã viết:
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
Nhấp chuột vào đây để mở rộng...
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.
PHP: 
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
 
phulien1902 đã viết:
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.
PHP: 
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
Nhấp chuột vào đây để mở rộng...
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.
 
Lần chỉnh sửa cuối:
thdanh đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Được voi sao không đòi tiên luôn hàm "Đọc số thành chữ".
 
thdanh đã viết:
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
Nhấp chuột vào đây để mở rộng...
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
 
Nghĩa là bạn vẫn chưa nhìn thấy dòng tiền bằng chữ phải không?
 
phulien1902 đã viế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.
Nhấp chuột vào đây để mở rộng...
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.
 

File đính kèm

Ba Tê đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Xin cảm ơn bác Ba tê
 
Ba Tê đã viết:
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.
Nhấp chuột vào đây để mở rộng...
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ê
 
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

H
Chuyển file *xml hóa đơn điện tử sang excel (2 người xem)
    • Thích
Trả lời
10
Đọc
393
htrunga2
H
D
Nhờ anh chị trên diễn đàn dùng hàm dò tìm dữ liệu trong bảng gửi kèm giúp ạ! (1 người xem)
Trả lời
4
Đọc
75
dangvanphu.it
D
Vu_Thi_Xuan
Lỗi tham chiếu khi dùng Vlookup trong VBA (2 người xem)
Trả lời
2
Đọc
64
SA_DQ
SA_DQ
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel (1 người xem)
Trả lời
3
Đọc
135
PNQC
P
E
Giúp em tạo gợi ý trong combobox sau khi đã lọc danh sách duy nhất trong combobox đó (2 người xem)
Trả lời
11
Đọc
3K
thepkun8x
T
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel
Trả lời
2
Đọc
134
nguyentuan1291
N
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER
    • Thích
Trả lời
1
Đọc
4K
GPE-Trợ Lý
GPE-Trợ Lý
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra (2 người xem)
Trả lời
3
Đọc
211
queluatb
queluatb
C
Tính tổng một khách hàng có nhiều mã hàng nhỏ
2
Trả lời
21
Đọc
301
Phuocam
Phuocam
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (1 người xem)
Trả lời
9
Đọc
228
Duy Tùng 9x
Duy Tùng 9x
K
Lỗi chèn ảnh hàng loạt trong excel 2024 (1 người xem)
Trả lời
2
Đọc
126
kenytien
K
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (3 người xem)
    • Thích
Trả lời
2
Đọc
1K
ptm0412
ptm0412
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
10
Đọc
364
VetMini
V
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
16
Đọc
347
pycckuu410
pycckuu410
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
32K
tuanktt3
T
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
219
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng (1 người xem)
Trả lời
7
Đọc
243
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT
Trả lời
8
Đọc
195
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
26K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
25
Đọc
991
befaint
befaint
Xem thêm…

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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom