Kẻ đường (...) khi dùng VBA (1 người xem)

[longlt08]

Xin chào ACE trên diễn đàn !
Tôi muốn nhờ mọi người viết giúp câu lênh VBA để kẻ dòng (...) thay vào câu lênh dưới đây (đang kẻ nét đậm):
"For i = 7 To 12
If i = 11 Then i = 12
.Borders(i).LineStyle = 1
.Borders(i).Weight = IIf(i = 12, 2, 2)
next
Mong được mọi người giúp đỡ. Tôi xin chân thành cảm ơn !

 

[PhanTuHuong]

Đối tượng can thiệp là range hả bác, nếu vậy cò thiếu code

 

[M@trixs]

Nghiên cứu thay đổi chổ này xem sao:

LineStyle = 1

Line : Đường thẳng
Style: Kiểu đường (Đường liền, đứt....)

 

[longlt08]

Đoạn VBA đầy đủ để kẻ ô cho cột A
With Range("A10:A" & eRw)
For i = 7 To 12
If i = 11 Then i = 12
.Borders(i).LineStyle = 1
.Borders(i).Weight = IIf(i = 12, 1, 2)
Next
End With
Ai chỉ giúp cho mình tìm LineStyle để ra được đường kẻ (...). Xin cảm ơn !

 

[ChanhTQ@]

Bạn tự ghi 1 macro định dạng bằng đường . . . . gì đó là được;

Chúc thành công.

 

[dhn46]

Bạn Record Macro là có điều mong muốn

[COLOR=#000000].Borders(i).LineStyle=[/COLOR]xlDot

 

[ptm0412]

1. LineStyle:
xlContinuos = 1 (đường liền nét)
xlDash = 2 (Đường gạch gạch ----)
xlDashDot = 4 (đường gạch chấm _ . _ . _)
xlDashDotDot = 5 (đường gạch chấm chấm _.._.._)
...

2. LineWeight:
xlHairLine = 1 (rất mảnh, khi zoom lớn dường như là đường chấm chấm nhưng không phải)
xlThin = 2 (bình thường và mặc định)
xlMedium = 3 (trung bình)
xlThick = 4 (đậm)

Ghi chú:

LineWeight xlHairLine không thể hiện được Dot, DashDot, DashDotDot, vì độ phân giải.

Bình thường tôi sử dụng HairLine cho các đường kẻ ngang, Thin cho đường kẻ dọc và chung quanh, để nhìn và in đỡ rối.

Trường hợp của anh Long nếu muốn chấm chấm tất cả thì sửa:

For i = 7 To 12
        If i = 11 Then i = 12
        .Borders(i).LineStyle = 2
        .Borders(i).Weight = 2
    Next