Đá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 MTNQ 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 MTNQ 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 MTNQ 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
  Hỏi có cách nào chuyển Access Windowse sang Mac OS trungminh 6 197 17-10-17, 11:39 PM
Bài mới nhất: ongke0711
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 45 2,730 09-09-17, 11:39 PM
Bài mới nhất: maidinhdan
  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 4,315 29-04-17, 05:16 PM
Bài mới nhất: conmeocon
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 51 19,732 10-03-17, 10:49 PM
Bài mới nhất: nhatpc
  [Help] Xuất dữ liệu access sang excel doandinhtam 11 1,196 20-12-16, 10:10 PM
Bài mới nhất: maidinhdan

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ơ