Hướng dẫn này sẽ chỉ ra cách định dạng ô bằng VBA.
Định dạng ô
Có nhiều thuộc tính có thể được đặt cho một (phạm vi) ô như sau:
| 1234567891011 | Sub SetCellFormat ()Với Worksheets ("Sheet1"). Phạm vi ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "In nghiêng".NumberFormat = "Chung".Interior.Color = RGB (128, 100, 250)Kết thúc vớiKết thúc Sub |
Hãy xem chúng theo thứ tự bảng chữ cái:
AddIndent
Bằng cách đặt giá trị của thuộc tính này thành True, văn bản sẽ tự động được thụt lề khi căn chỉnh văn bản trong ô được đặt, theo chiều ngang hoặc chiều dọc, thành phân phối bằng nhau (xem Căn chỉnh ngang và Căn chỉnh dọc).
| 12345 | Với Worksheets ("Sheet1"). Phạm vi ("A1").Orientation = xlVertical.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueKết thúc với |
Biên giới
Bạn có thể đặt định dạng đường viền của một ô. Xem ở đây để biết thêm thông tin về biên giới.
Ví dụ, bạn có thể đặt một đường đứt nét màu đỏ xung quanh ô B2 trên Trang tính 1 như sau:
| 1 | Worksheets ("Sheet1"). Range ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Nét chữ
Bạn có thể điều chỉnh định dạng phông chữ của ô bằng cách đặt tên phông chữ, kiểu, kích thước, màu sắc, thêm gạch dưới và hoặc hiệu ứng (gạch ngang, dấu phụ hoặc chữ trên). Xem ở đây để biết thêm thông tin về phông chữ ô.
Dưới đây là một số ví dụ:
| 12345 | Với Phạm vi ("A1: C5"). Phông chữ.Name = "Thế kỷ".FontStyle = "In đậm".Strikethrough = TrueKết thúc với |
FormulaHidden
Thuộc tính này trả về hoặc đặt một giá trị biến thể cho biết liệu công thức có bị ẩn khi trang tính được bảo vệ hay không. Ví dụ:
| 1 | Worksheets ("Sheet1"). Phạm vi ("A1: B1"). FormulaHidden = True |
Căn chỉnh ngang
Thuộc tính định dạng ô thuộc tính này trả về hoặc đặt một giá trị biến thể đại diện cho căn chỉnh theo chiều ngang cho đối tượng được chỉ định. Các hằng được trả về hoặc được đặt có thể là: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Ví dụ:
| 1 | Worksheets ("Sheet1"). Phạm vi ("D3"). HorizontalAlignment = xlRight |
IndentLevel
Nó trả về hoặc đặt một giá trị số nguyên từ 0 đến 15 đại diện cho mức thụt lề cho ô hoặc dải ô.
| 1 | Worksheets ("Sheet1"). Phạm vi ("A1"). IndentLevel = 7 |
Nội địa
Bạn có thể đặt hoặc nhận thông tin trả về về nội thất của ô: Màu, ColorIndex, Mẫu, MẫuColor, MẫuColorIndex, MẫuThemeColor, MẫuTintAndShade, ThemeColor, TintAndShade, như thế này:
| 123 | If Not Range ("A1"). Interior.ThemeColor = ThemeColorLight2 ThenPhạm vi ("A1"). Nội thất.Pattern = xlPatternUpKết thúc nếu |
Đã khóa
Thuộc tính này trả về True nếu ô hoặc dải ô bị khóa, False nếu đối tượng có thể được sửa đổi khi trang tính được bảo vệ hoặc Null nếu dải ô được chỉ định chứa cả ô bị khóa và không khóa. Nó cũng có thể được sử dụng để khóa hoặc mở khóa các ô.
Ví dụ này mở khóa các ô A1: B2 trên Trang tính1 để chúng có thể được sửa đổi khi trang tính được bảo vệ.
| 12 | Worksheets ("Sheet1"). Phạm vi ("A1: B2"). Đã khóa = SaiWorksheets ("Sheet1"). Bảo vệ |
MergeCells
Đặt thuộc tính này thành True nếu bạn cần hợp nhất một dải ô. Giá trị của nó là True nếu một phạm vi được chỉ định chứa các ô đã hợp nhất. Ví dụ: nếu bạn cần hợp nhất dải ô C5: D7, bạn có thể sử dụng mã này:
| 1 | Worksheets ("Sheet1"). Phạm vi ("C5: D7"). MergeCells = True |
Số định dạng
Bạn có thể đặt định dạng số trong (các) ô thành Chung, Số, Đơn vị tiền tệ, Kế toán, Ngày, Giờ, Phần trăm, Phân số, Khoa học, Văn bản, Đặc biệt và Tùy chỉnh.
Dưới đây là các ví dụ về các định dạng số phần trăm và khoa học:
| 12 | Phạm vi ("A1"). NumberFormat = "0,00E + 00"Phạm vi ("B1"). NumberFormat = "0,00%" |
NumberFormatLocal
Thuộc tính này trả về hoặc đặt một giá trị biến thể đại diện cho mã định dạng cho đối tượng dưới dạng một chuỗi trong ngôn ngữ của người dùng.
Sự định hướng
Bạn có thể đặt (hoặc trả lại) hướng văn bản trong (các) ô bằng thuộc tính này. Giá trị của nó có thể là một trong các hằng số sau: xlDownward, xlHorizontal, xlUpward, xlVertical hoặc một giá trị số nguyên từ -90 đến 90 độ.
| 1 | Worksheets ("Sheet1"). Phạm vi ("A1"). Định hướng = -60 |
Cha mẹ
Đây là thuộc tính chỉ đọc trả về đối tượng cha của một đối tượng được chỉ định.
Thu nhỏ để phù hợp với
Thuộc tính này trả về hoặc đặt một giá trị biến thể cho biết liệu văn bản có tự động thu nhỏ để vừa với chiều rộng cột có sẵn hay không.
| 1 | Worksheets ("Sheet1"). Phạm vi ("A1"). ShrinkToFit = True |
VerticalAlignment
Thuộc tính định dạng ô thuộc tính này trả về hoặc đặt một giá trị biến thể đại diện cho căn chỉnh dọc cho đối tượng được chỉ định. Các hằng được trả về hoặc được thiết lập có thể là: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Ví dụ:
| 1 | Worksheets ("Sheet1"). Phạm vi ("A1"). VerticalAlignment = xlTop |
Bao text
Thuộc tính này trả về True nếu văn bản được bao bọc trong tất cả các ô trong phạm vi đã chỉ định, Sai nếu văn bản không được bao bọc trong tất cả các ô trong phạm vi đã chỉ định hoặc Null nếu phạm vi được chỉ định chứa một số ô bao bọc văn bản và các ô khác không bao bọc.
Ví dụ: nếu bạn có phạm vi ô này:
mã này dưới đây sẽ trả về Null trong Cửa sổ ngay lập tức:
| 1 | ? Worksheets ("Sheet1"). Phạm vi ("A1: B1"). WrapText |
