Một trong (nhiều) điều khó chịu về Excel là nó sử dụng các đơn vị đo lường khác nhau để chỉ định chiều cao của hàng và chiều rộng của cột.

Chiều cao của hàng khá đơn giản — nó được đo bằng điểm. Chiều rộng cột, tuy nhiên, được đo bằng chiều rộng ký tự. Nếu kiểu Chuẩn của bạn được đặt thành Chuyển phát nhanh 10, thì chiều rộng cột là 12 có nghĩa là bạn có thể vừa đúng mười hai ký tự trong một cột nhất định. Đối với phông chữ tỷ lệ, ký tự 0 được sử dụng để đếm các ký tự. (Yup, thật vô lý.)

Điều này dẫn đến vấn đề nếu bạn muốn chiều cao và chiều rộng của một ô cụ thể khớp với nhau, do đó tạo thành hình vuông. May mắn thay, với một chút thủ thuật macro, bạn có thể vượt qua sự kỳ quặc này của Excel và đạt được kết quả mong muốn. Xem xét macro MakeSquare:

Sub MakeSquare()

Dim WPChar As Double     Dim DInch As Double     Dim Temp As String          Temp = InputBox("Height and width in inches?")

DInch = Val(Temp)

If DInch > 0 And DInch < 2.5 Then         For Each c In ActiveWindow.RangeSelection.Columns             WPChar = c.Width / c.ColumnWidth             c.ColumnWidth = ((DInch * 72) / WPChar)

Next c         For Each r In ActiveWindow.RangeSelection.Rows             r.RowHeight = (DInch * 72)

Next r     End If End Sub

Macro này nhắc bạn về kích thước của hình vuông bạn muốn tạo, sau đó tính toán chính xác độ rộng và chiều cao để đặt từng ô.

Bạn có thể chạy macro với một ô được chọn hoặc bạn có thể tạo một tập hợp lựa chọn lớn hơn.

Phép thuật toán học được thực hiện trong việc tính toán biến WPChar. Giá trị này được đặt thành giá trị có được bằng cách chia chiều rộng của cột theo điểm (do thuộc tính Chiều rộng trả về) cho chiều rộng của cột theo ký tự (do thuộc tính ColumnWidth trả về). Giá trị này, là số điểm trong một ký tự ở cài đặt hiện tại, sau đó được sử dụng để tính toán số lượng ký tự sẽ được sử dụng để đặt chiều rộng trong dòng chương trình tiếp theo.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (1943) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.