機能は、VBA

Question

を動作しない場合は色のような青が、他のコマンドになり

If (Year(n) - Year(d) >= 1) Then 
    MsgBox "Latest Fiscal Year Data is" & dd & "Days," & md & "Months," & yd & "Years Old" 
    Sheets("" & Filename).Cells(5, y2).Font.Italic = True 
    Sheets("" & Filename).Cells(5, y2).Font.Color = RGB(0, 0, 255) 
    Sheets("" & Filename).Cells(5, y2).Font.Bold = True 
    Sheets("" & Filename).Cells(5, y2).Font.FontStyle = Arial 

End If 

テキスト斜体太字これに

Answer 1

変更

Sheets("" & Filename).Cells(5, y2).Font.FontStyle = Arial 

実行されていません。

Sheets("" & Filename).Cells(5, y2).Font.Name = "Arial" 

Answer 2

GO TOコードの最初の行に次の行を追加します。

Option Explicit 

コードを実行しようとします。

変数Arialが定義されていないため、エラーが発生します。

これは、それはおそらくであることを、あなたをヒントになります。

Sheets("" & Filename).Cells(5, y2).Font.Name = "Arial" 

Answer 3

物事のカップル：

あなたが正しく、すべての変数を宣言した、あなたが持っている唯一の問題はということであると仮定すると、セルが期待どおりに書式設定されていません。

• としては、すでに指摘した - Arialは"Ariel"
• 、フォーマットの最初の行にフォントを設定する必要があります。太字、イタリック、青の書式を追加し、それを太字の&イタリック体を削除するArielに設定します。
  編集：私の間違い - それは.Font.FontStyle = "Arial"を使用しているからです。 FontStyleの変更により、太字の&イタリック体が削除されます。以前に適用された書式設定を保持するには、.Font.Name = "Arial"を使用します。
• セルに条件付き書式が設定されていないことを確認します。他の書式設定よりも優先されます。それはさておき

- 私はSheetNameにごFileName変数を更新することをお勧めしたい - あなたが望んでいたとExcelが気にしないだろうが、コードが中に再訪したとき、それは人間を混乱させる場合FileNameには何の問題も、あなたがPurple_Rock_Lobberを使用することができませんでした数年の時間。
FileNameの二重引用符を前に付けた理由もわかりませんか？