Hướng dẫn này sẽ chỉ ra cách điều chỉnh cài đặt đường viền ô trong VBA.
Định dạng đường viền
Đường viền trên cùng - Đường đôi
Trước tiên, hãy xem ví dụ về cách đặt đường viền trên cùng màu xanh lam, dày, gấp đôi cho ô B3 trên Trang tính1:
123456789 | Ví dụ phụSetBorder ()Với Trang tính ("Trang 1"). Phạm vi ("B3"). Đường viền (xlEdgeTop).LineStyle = xlDouble.Weight = xlThick.ColorIndex = 5Kết thúc vớiKết thúc Sub |
Lưu ý rằng chúng tôi sử dụng Câu lệnh với để đơn giản hóa việc mã hóa của chúng tôi.
Chúng tôi truy cập đường viền trên cùng với .Borders (xlEdgeTop).
Các ranh giới di động khác
Thay vào đó, bạn có thể truy cập các đường viền khác, bao gồm cả đường chéo:
123456 | Trang tính ("Trang 1"). Phạm vi ("B2"). Đường viền (xlEdgeTop). Màu = RGB (128, 0, 0)Trang tính ("Trang 1"). Phạm vi ("B2"). Đường viền (xlEdgeRight). Màu = RGB (0, 255, 0)Trang tính ("Trang 1"). Phạm vi ("B2"). Đường viền (xlEdgeBottom). Màu = RGB (0, 0, 128)Trang tính ("Trang 1"). Phạm vi ("B2"). Đường viền (xlEdgeLeft). Màu = RGB (255, 0, 0)Worksheets ("Sheet1"). Phạm vi ("B2"). Borders (xlDiricalDown) .Color = RGB (0, 0, 0)Trang tính ("Trang tính1"). Phạm vi ("B2"). Đường viền (xlDiricalUp). Màu = RGB (0, 0, 0) |
Viền trong
Bạn cũng có thể điều chỉnh đường viền ngang (xlInsideHorizontal) và dọc (xlInsideVertical) cho tất cả các ô trong một phạm vi:
12345 | Với Trang tính ("Trang 1"). Phạm vi ("B2: C6"). Đường viền (xlInsideHoriz ngang).LineStyle = xlDashDotDot.Weight = xlMedium.ColorIndex = 3Kết thúc với |
LineStyle
Thuộc tính LineStyle có thể được thay đổi thành xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot và xlLineStyleNone.
Thuộc tính Weight có thể là xlHariline, xlThin, xlMedium và xlThick. Bạn sẽ có kết quả này với đoạn mã dưới đây:
12345678 | Trang tính ("Trang 1"). Phạm vi ("C3"). Đường viền (xlEdgeTop) .Weight = xlHairlineTrang tính ("Trang 1"). Phạm vi ("C3"). Đường viền (xlEdgeBottom) .Weight = xlHairlineTrang tính ("Trang 1"). Phạm vi ("D3"). Đường viền (xlEdgeTop) .Weight = xlThinTrang tính ("Trang 1"). Phạm vi ("D3"). Đường viền (xlEdgeBottom) .Weight = xlThinTrang tính ("Trang 1"). Phạm vi ("E3"). Đường viền (xlEdgeTop) .Weight = xlMediumTrang tính ("Trang 1"). Phạm vi ("E3"). Đường viền (xlEdgeBottom) .Weight = xlMediumBảng tính ("Sheet1"). Phạm vi ("F3"). Đường viền (xlEdgeTop) .Weight = xlThickTrang tính ("Trang 1"). Phạm vi ("F3"). Đường viền (xlEdgeBottom) .Weight = xlThick |
Màu đường viền có thể được đặt thành ColorIndex hoặc Color (RGB, số sê-ri hoặc vbColor). Xem thêm thông tin về cài đặt màu tại đây.
Bạn cũng có thể thêm đường viền xung quanh một phạm vi bằng lệnh một dòng:
1 | Phạm vi ("B5: C7"). BorderAround LineStyle: = xlContinuous, Weight: = xlThick, Color: = vbRed |