Oscarは、セル内のテキストに適用されるフォントとフォントサイズを決定する必要があります。たとえば、セルA1のテキストが12ポイントのArialにある場合、セルB1の「Arial」とセルC1の12を返すために使用できる関数が必要です。

このフォーマット情報を取得できるようにするExcelには何も組み込まれていません。ただし、このトリックを実行する非常に単純なマクロを作成することはできます。次のマクロは、引数として、セル参照と、オプションで返されるデータのインジケーターを受け取ります。

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

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

この関数は、セルで次のような数式を使用して使用します。

=FontInfo1(A1,1)

2番目のパラメーター（この場合は1）は、フォント名が必要であることを意味します。

2番目のパラメータを2に変更すると、フォントサイズが返されます。

（実際には、2番目のパラメーターを2以外にするか、完全に省略して、フォント名を返すことができます。）

両方の値を一度に返したい場合は、ユーザー定義関数から情報の配列を返すあまり知られていない方法を適用できます。次のことを試してください：

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

End Function

水平方向に隣接する2つのセル（C7：D7など）を選択し、次の数式を入力します。

=FontInfo(A1)

関数は配列を返すため、Shift + Ctrl + Enterを押して数式エントリを終了する必要があります。フォント名は最初のセル（C7）に表示され、フォントサイズは2番目のセル（D7）に表示されます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（11358）は、Microsoft Excel 2007、2010、2013、および2016に適用されます。

Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります：

link：/ excel-Determining_Font_Formatting [Determining FontFormatting]。