Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Nhờ giúp đỡ code chuyển Reports sang Excel
#11
Nghe thì có vẻ đơn giản nhưng làm thì mới thấy khá rắc rối 024

-Để viết được chữ "Tổng:" vào file excel với VBA cần sử dụng hàm hỗ trợ Unicode hoặc lưu chữ "Tổng:" vào một bảng nào đó như trong các chủ đề về hiển thị thông báo bằng Tiếng Việt
Ở đây mình vẽ một label trên form với nhãn (Caption) là "Tổng:" rồi gán thuộc tính visible = false sau đó dùng một biến làm "xe" rước hắn vào file excel 014

Đây là yêu cầu của bạn mình đưa lên đây để mọi người cùng tham khảo: Download

Có nhiều cách để làm được như file Vidu, mình đưa ra hai cách bạn xem thử nhé

DemoXuatExcel3.rar

Thực ra mình cảm thấy hai cách trên cũng chưa thực sự tối ưu
Về VBA trong Excel nội công mình cũng kém lắm, bạn nào có cách hay hơn thì góp ý nha 015

P/s: mình vừa sửa code (bổ sung thêm chút xíu) và đã up lại link, thời điểm sửa bài cập nhật phía trên bài viết.
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn DoquangLam
#12
Nhờ câu hỏi của bạn, tối qua "bế quan luyện công" Excel, lên được đến tầng thứ... 2 014

Code của hai cách trên mình rút gọn được như sau:
(Có ghi chú cho các câu lệnh để các bạn có thể tham khảo và tùy biến)

Code1: Rút gọn từ 2 vòng lặp xuống còn 1 (Click to View)
Code2: Rút gọn từ 3 vòng lặp xuống còn 1 (Click to View)
Demo


Khi nào mình luyện tới tầng thứ 9 hay "Như lai thần chưởng" thì cho nó một phát dẹp lép còn lại vài dòng thui 014
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn DoquangLam
#13
Rất hay. Coi như đã đạt được 98% yêu cầu của mình rồi (Code1 là chuẩn rồi đó), còn một vấn đề này nữa mong bạn bổ sung : Khi chuyển sang Excel có cột Ngày tháng (Cột F trên Excel) => Mình muốn cột này được định dạng kiểu ngày tháng năm là "d/m/yyyy"
Chỉ như vậy nữa là đạt 100% yêu cầu của mình rồi.
Cám ơn bạn.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#14
Các bạn cho mình hỏi : Trong thư viện của access thiếu "Microsoft Excel 11.0 Object Library" thì phải làm sao ?
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#15
Đã hoàn thành và đạt yêu cầu 100% rồi.
Cám ơn tất cả các bạn, đặc biệt là bạn MatTroiNguQuen. 005034
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#16
Đưa vào ứng dụng mới phát sinh thêm, nhờ bạn sửa lại một chút như sau : Khi chuyển sang Excel có cột MS thuế (Cột H trên Excel) => Mình muốn cột này được định dạng kiểu "Text"
Cám ơn bạn.

Bạn thêm code vào chỗ nào vui long tô chữ màu đỏ nhé, rối lắm không mò được. 040
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#17
1-Định dạng cột F theo "d/m/yyyy":
wb.Worksheets(1).Columns(6).NumberFormat = "d/M/yyyy"

2-Định dạng cột H kiểu text:
wb.Worksheets(1).Columns(8).NumberFormat = "@"

Với wb là biến đối tượng Workbook đã khai báo như trong Demo của mình
Bạn thêm vào phía trên dòng code: End With

Mã:
With wb.Worksheets(1)
        .......
        Next i
        .Rows("1:16").Insert Shift:=xlDown    'Chèn vào 16 dòng tren dau trang
        .Columns.EntireColumn.AutoFit         'Tu dong chinh chieu rong cac cot
        .Columns.EntireRow.AutoFit            'Tu dong chinh chieu cao cac dong
        .Columns(6).NumberFormat = "d/M/yyyy" 'Dinh dang cot F kieu "d/M/yyyy"
        .Columns(8).NumberFormat = "@"        'Dinh dang cot H kieu Text
    End With
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn DoquangLam
#18
Cám ơn ! Chuẩn không cần chỉnh.007
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] OBDC Xin giúp atula77 10 273 01-12-16, 06:26 PM
Bài mới nhất: atula77
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 2,790 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 352 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan
  [Hỏi] Xuất dữ liệu từ Access ra Excel bị ẩn cột Minh Tiên 0 133 02-09-16, 05:38 PM
Bài mới nhất: Minh Tiên
  Export dữ liệu sang Word ( Nhiều dòng trong sub) danhxetnghiem 26 3,085 01-08-16, 11:08 AM
Bài mới nhất: jeck09nt

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ