Hướng dẫn này sẽ trình bày cách sử dụng VBA để Căn giữa Văn bản trong một Ô theo cả Chiều ngang và Chiều dọc.
Chúng ta có thể sử dụng nhóm Alignment trong Home Ribbon trong Excel để căn giữa văn bản theo cả chiều ngang và chiều dọc trong một ô. Nếu chúng tôi đang viết macro để định dạng văn bản, chúng tôi có thể tạo lại chức năng này bằng cách sử dụng Mã VBA.
Văn bản ở giữa theo chiều ngang
Để Căn giữa Văn bản theo chiều ngang trong một ô, chúng ta có thể sử dụng mã sau:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterKết thúc Sub |
Ngoài ra, để căn giữa văn bản theo chiều ngang trong mỗi ô của một dải ô đã chọn, chúng ta có thể sử dụng đối tượng Selection và thực hiện như sau:
| 123 | Sub CenterText ()Lựa chọn.HorizontalAlignment = xlCenterKết thúc Sub |
Chúng tôi cũng có thể thay đổi căn chỉnh sang phải hoặc trái bằng cách sử dụng xlLeft và xlRight các hằng số.
Do đó, để căn phải văn bản trong một ô, chúng ta có thể sử dụng mã sau:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightKết thúc Sub |
Văn bản chính giữa theo chiều dọc
Căn giữa văn bản theo chiều dọc cũng giống như theo chiều ngang.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterKết thúc Sub |
Như là căn giữa văn bản theo chiều dọc trên một lựa chọn:
| 123 | Sub CenterTextVerently ()Selection.VerticalAlignment = xlCenterKết thúc Sub |
Chúng tôi cũng có thể thay đổi văn bản thành Trên cùng hoặc Dưới cùng của ô hoặc vùng chọn bằng cách sử dụng xlTop hoặc xlBottom các hằng số.
| 123 | Sub TopAlignVerently ()ActiveCell.VerticalAlignment = xlTopKết thúc Sub |
Văn bản ở giữa theo chiều ngang và chiều dọc cùng một lúc
Nếu chúng ta muốn căn giữa văn bản cả Theo chiều ngang và Chiều dọc cùng một lúc, có một số cách chúng ta có thể làm như vậy.
| 1234 | Trung tâm phụBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterKết thúc Sub |
Ngoài ra, để cắt giảm mã lặp lại, chúng ta có thể sử dụng câu lệnh With và End With.
| 123456 | Trung tâm phụBoth2 ()Với sự lựa chọn.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterKết thúc vớiKết thúc Sub |
Đoạn mã trên sẽ áp dụng cho tất cả các ô trong Excel được chọn vào thời điểm đó.
Sử dụng With và End With rất hiệu quả khi chúng ta có nhiều định dạng phải thực hiện trong vùng chọn, chẳng hạn như hợp nhất các ô hoặc thay đổi hướng.
| 12345678 | Sub MergeAndCenter ()Với sự lựa chọn.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientation = -36.MergeCells = TrueKết thúc vớiKết thúc Sub |
