Các anh chị vui lòng giải thích giúp Lamtt code vẽ khung cho bảng!

[lamtt]

Các anh chị vui lòng giải thích giúp code vẽ khung cho bảng sau đây:

Sub DrawBorder(Rng As Range)
On Error Resume Next
With Rng
For i = 7 To IIf(Rng.Rows.Count = 1, 11, 12)
.Borders(i).LineStyle = 1
.Borders(i).Weight = IIf(i = 12, 1, 2)
Next
End With
End Sub
Cám ơn các anh, chị.

Lamtt

 

[concogia]

Các anh chị vui lòng giải thích giúp code vẽ khung cho bảng sau đây:

Sub DrawBorder(Rng As Range)
On Error Resume Next
With Rng
For i = 7 To IIf(Rng.Rows.Count = 1, 11, 12)
.Borders(i).LineStyle = 1
.Borders(i).Weight = IIf(i = 12, 1, 2)
Next
End With
End Sub
Cám ơn các anh, chị.

Lamtt

Sub này phải có một Sub nữa gọi nó mới chạy, thí dụ

Public Sub lamtt()
     DrawBorder ([b7:f23])
End Sub

Sub DrawBorder(Rng As Range)
Sub này sẽ chạy khi chạy Sub lamtt()
On Error Resume Next
Khi gặp lỗi thì làm công việc tiếp dưới
With Rng
Sử lý vùng Rng ( vùng B7:F23 theo ví dụ)
For i = 7 To IIf(Rng.Rows.Count = 1, 11, 12)
Cho biến i chạy từ 7 đến 11 nếu Rng chỉ có 1 dòng, còn không phải thì biến i chạy tới 12
.Borders(i).LineStyle = 1
Bạn cho chạy từng bước (bấm F8) để xem nó đóng khung
.Borders(i).Weight = IIf(i = 12, 1, 2)
Borders(i).Weight =1 nếu biến i có giá trị 12, còn không Borders(i).Weight =2
Next
Ra khỏi vòng lặp
End With
Hổng làm việc với Rng nữa
End Sub
Kết thúc thủ tục
Cám ơn các anh, chị.
Cái này........ mình hổng biết
Híc