Oscar có nhu cầu xác định phông chữ và cỡ chữ áp dụng cho văn bản trong một ô. Ví dụ: nếu văn bản trong ô A1 là Arial 12 pt, anh ta muốn một hàm có thể được sử dụng để trả về “Arial” trong ô B1 và ​​12 trong ô C1.

Không có gì được tích hợp sẵn trong Excel sẽ cho phép thu thập thông tin định dạng này. Tuy nhiên, bạn có thể tạo một macro rất đơn giản để thực hiện thủ thuật. Macro sau nhận, làm đối số, tham chiếu ô và tùy chọn là chỉ báo về dữ liệu bạn muốn trả về.

Function FontInfo1(Rn As Range, Optional iType As Integer)

Application.Volatile     If iType = 2 Then         FontInfo1 = Rn.Font.Size     Else         FontInfo1 = Rn.Font.Name     Endif End Function

Bạn sử dụng hàm bằng cách sử dụng công thức như thế này trong ô:

=FontInfo1(A1,1)

Tham số thứ hai (trong trường hợp này là 1) có nghĩa là bạn muốn tên phông chữ.

Nếu bạn thay đổi tham số thứ hai thành 2 thì kích thước phông chữ được trả về.

(Trên thực tế, bạn có thể có tham số thứ hai là bất kỳ thứ gì khác ngoài 2 — hoặc tắt hoàn toàn — và nó trả về tên phông chữ.)

Nếu bạn muốn trả về cả hai giá trị cùng một lúc, bạn có thể áp dụng một cách ít được biết đến hơn để trả về mảng thông tin từ một hàm do người dùng xác định. Hãy thử cách sau:

Function FontInfo2(c As Range) As Variant     Application.Volatile     FontInfo2 = Array(c.Font.Name, c.Font.Size)

End Function

Chọn hai ô liền kề theo chiều ngang (chẳng hạn như C7: D7) và nhập công thức sau:

=FontInfo(A1)

Vì hàm trả về một mảng, bạn cần kết thúc việc nhập công thức bằng cách nhấn Shift + Ctrl + Enter. Tên phông chữ xuất hiện trong ô đầu tiên (C7) và kích thước phông chữ xuất hiện trong ô thứ hai (D7).

_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 (7139) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: