如何製作單元格中的特定文本粗體和加下劃線

strProject = Trim(ThisWorkbook.Sheets("Proposed").Cells(i, 2).Value) 
     On Error Resume Next 
     Set objWorkSheet = objWorkbook.Sheets("" & strProject & "") 
     If Not objWorkSheet Is Nothing Then 
      ThisWorkbook.Sheets("Proposed").Cells(i, 5).Value = Trim(objWorkSheet.Cells(12, 6).Value) 
      ThisWorkbook.Sheets("Proposed").Cells(i, 6).Value = "Highlights for current week:" + Chr(10) + Trim(objWorkSheet.Cells(22, 2).Value) + Chr(10) + Chr(10) + "Action Plan for next Week:" + Chr(10) + Trim(objWorkSheet.Cells(27, 2).Value)

如何製作「本週亮點：」粗體和下劃線？如何製作單元格中的特定文本粗體和加下劃線

來源

2016-02-10 Suganthan Srinivasan

你的問題沒有任何意義 - 一個字符串不會使單元格變成粗體或下劃線，並且單元格中還有其他文字，如果你想更改也沒有說過 –

我只需要特定文本「Highlights爲當前星期：「在單元格中要加粗並加下劃線您可以硬編碼上述屬性並回復嗎？ –

是的，你可以。粗體和斜體屬性屬於Font object，可通過range object訪問。

例

ActiveCell.Font.Bold = True 
ActiveCell.Font.Italic = True

此示例更新當前激活的細胞。

更新

如果你只想一個樣式應用到一個小區的部分語法有一點不同。

偏格式化例

ActiveCell.Characters(Start:=1 Length:=10).Font.Bold = True

的開始和長度參數的控制哪些字符以粗體顯示。

您知道Excel可以爲您編寫VBA嗎？在左下角尋找宏錄像機。當活動Excel將您的手動操作轉換爲VBA時。這是發現所需代碼的好方法。

來源

2016-02-10 13:38:04

我只需要特別的文本「本週精華：」在單元格中加粗和加下劃線你可以硬編碼上述屬性並回復嗎？ –

我編輯了我的答案。 –

如何製作單元格中的特定文本粗體和加下劃線

回答

相關問題