Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Kẻ khung cell Excel với Access khai báo muộn
#1
Nhờ A/C/E Pro giúp.

Trong Access để mở file Excel, format Borders cho bên trái của cell khai báo:
     Range("A1:A5").Select
     Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
thì:
1. Mở thư viện Excel (Khai báo sớm) thì format OK.
2. Khai báo muộn (Không mở thư viện) thì không format được. Lỗi không hiểu Borders(xlEdgeLeft)
 
Ở khai báo muộn, nếu khai báo:
Selection.Borders.LineStyle= xlContinuous thì format OK nhưng format xung quanh cell luôn.

Nhờ A/C/E Pro chỉ giáo cách khai báo để Format bên trái, bên phải, trên, dưới cell trong trường hợp kết nối muộn.

Thanks !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#2
Theo tôi biết Late binding nó không tự động hiểu các hằng số nên bạn phải khai báo nó.
Const xlContinuous =1
Const xlEdgeLeft=7
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Minh Tiên
#3
Mình chuyển khai báo:

Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous

Thành: Selection.Borders(7).LineStyle = 1

Thì OK !

Thanks bạn !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
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
  Xuất dữ liệu từ Access ra Excel theo điều kiện Minh Tiên 13 669 25-05-18, 07:06 PM
Bài mới nhất: ongke0711
  [Thủ Thuật] Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access maidinhdan 23 6,670 24-04-18, 08:13 PM
Bài mới nhất: DooHoaangPhuuc
  [Hỏi] Khai báo function mrsiro 7 338 21-04-18, 04:27 PM
Bài mới nhất: ongke0711
  [Hỏi] Liệt Kê 3 Đơn Giá Gần Nhất (Access 2003) pherotao 4 332 11-01-18, 11:50 PM
Bài mới nhất: pherotao
  [Hỏi] Lỗi run-time 3421 trong Access pherotao 0 178 05-01-18, 01:31 PM
Bài mới nhất: pherotao

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line