如果功能不工作VBA

-1

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

文本顏色變成喜歡藍色，但其它命令粗斜體不執行如果功能不工作VBA

來源

2017-07-31 Shekhar Nalawade

如果你手動選擇單元格，並使用帶命令手動更改，會發生什麼？ –

ActiveSheet.Cells（7,1）= .Font.Color RGB（0，0，255） ActiveSheet.Cells（7,1）.Font.FontStyle = 「粗斜體」 ActiveSheet.Cells（7,1）。 Font.Name =「Arial」 – BData

變化

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

這樣：

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

來源

2017-07-31 06:59:50

問題解決感謝您的幫助 –

轉到你的第一行代碼，並添加此行：

Option Explicit

現在嘗試運行您的代碼。

你會得到一個錯誤，因爲變量Arial沒有定義。

這會暗示你，這也許應該是：

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

來源

2017-07-31 08:42:10

幾件事情：

假設你已經正確聲明所有的變量，你遇到的唯一問題是，該單元沒有按預期格式化。

正如已指出 - Arial必須"Ariel"
設置字體爲格式的第一道防線。您可以添加粗體，斜體和藍色格式，然後將其設置爲Ariel，以去除粗體&斜體設置。
編輯：我的錯誤 - 那是因爲你使用.Font.FontStyle = "Arial"。 FontStyle中的更改將刪除粗體&斜體。使用.Font.Name = "Arial"保留以前應用的格式。
檢查你沒有任何條件格式對單元格設置，因爲它會覆蓋任何其他格式，你給它。

除此之外 - 我建議你FileName變量更新到SheetName - 沒有錯FileName，你可以使用Purple_Rock_Lobber如果你想和Excel不會在意，但是當代碼中重新審視它會混淆人類幾年的時間。
也不確定爲什麼你有雙引號FileName？

來源

2017-07-31 09:09:06

如果功能不工作VBA

回答

相關問題