YOMEDIA
Sổ chi tiết khách hàng (chọn khách hàng bằng combobox)
Chia sẻ: Nguyen Quy
| Ngày:
| Loại File: PDF
| Số trang:3
207
lượt xem
30
download
Download
Vui lòng tải xuống để xem tài liệu đầy đủ
Tiếp theo bài trên, tôi làm 1 báo cáo chi tiết từng khách hàng cũng bằng Pivot table, dùng 1 Combobox để chọn khách hàng, dùng VBA để lọc Pivot table với khách hàng đó. Câu lệnh lọc theo tên khách hàng và refresh pivot table là:
PHP Code:
With ActiveSheet.PivotTables("PivotTable1")
.PivotFields("Mskh").CurrentPage = [J1].Value
.PivotCache.Refresh
End With
Với J1 là linkedCell của combobox.
Tôi có dùng VBA để:
- Đánh số thứ tự - Kẻ khung, tô đậm, tính số dư cuối kỳ.
- tính thêm 2 cột Dư nợ, dư có - Set Print Area (để khỏi in mấy object)
- Đánh số trang trong Page Footer -...
AMBIENT/
Chủ đề:
Nội dung Text: Sổ chi tiết khách hàng (chọn khách hàng bằng combobox)
- Sổ chi tiết khách hàng
(chọn khách hàng bằng combobox)
Tiếp theo bài trên, tôi làm 1 báo cáo chi tiết từng khách hàng cũng bằng Pivot
table, dùng 1 Combobox để chọn khách hàng, dùng VBA để lọc Pivot table với
khách hàng đó.
Câu lệnh lọc theo tên khách hàng và refresh pivot table là:
PHP Code:
With ActiveSheet.PivotTables("PivotTable1")
.PivotFields("Mskh").CurrentPage = [J1].Value
.PivotCache.Refresh
End With
Với J1 là linkedCell của combobox.
- Tôi có dùng VBA để:
- Đánh số thứ tự
- Kẻ khung, tô đậm, tính số dư cuối kỳ.
- tính thêm 2 cột Dư nợ, dư có
- Set Print Area (để khỏi in mấy object)
- Đánh số trang trong Page Footer
- Gán Page Footer bằng tên khách hàng vừa chọn.
- Định dạng trang in vừa với bề ngang trang A4
Những code này có cái trên GPE đã có, có cái chưa. Các bạn cứ tham khảo và tuỳ
biến mà dùng. (Cũng là record macro thôi, không có gì ghê gớm).
- ________________________
Thêm tài liệu vào bộ sưu tập có sẵn:
Báo xấu
LAVA
ERROR:connection to 10.20.1.98:9315 failed (errno=111, msg=Connection refused)
ERROR:connection to 10.20.1.98:9315 failed (errno=111, msg=Connection refused)
Đang xử lý...