如果大於Excel中的某個數字，如何使單元格加粗？

假設您有一個數字範圍，並且如果單元格值大於某個特定數字（例如90），那麼您想以粗體顯示一些單元格，該怎麼辦？ 本文將詳細介紹實現它的三種方法。

使用條件格式，如果單元格大於一定數量，則使單元格加粗
如果單元格大於VBA代碼，則使單元格加粗
使用Kutools for Excel使單元格大於或等於一定數量時加粗

---

使用條件格式，如果單元格大於一定數量，則使單元格加粗

如果單元格的值大於Excel中的某個特定數字，則可以應用條件格式設置功能使單元格加粗。 請執行以下操作。

1.選擇要加粗大於特定數字的數字的單元格範圍，然後單擊 條件格式 > 新規則 下 首頁 標籤。 看截圖：

2。 在裡面 新格式規則 對話框，您需要：

3。 在裡面 單元格格式 對話框，單擊 膽大 在 字體樣式 盒子下 字體 選項卡，然後單擊 OK 按鈕。

4.返回時 新格式規則 對話框中，單擊 OK 按鈕。

然後，所有大於90的單元格將立即在選定範圍內以粗體格式設置。

---

如果單元格大於VBA代碼，則使單元格加粗

除上述方法外，如果大於Excel中的特定數量，則可以應用VBA代碼使單元格加粗。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口中，單擊 插入 > 模塊。 然後將下面的VBA代碼複製並粘貼到“模塊”窗口中。

VBA代碼：如果大於一定數量，則使單元格變為粗體

Sub BoldHighHours()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress                    = Application.ActiveWindow.RangeSelection.Address
	Set xRg                     = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg                     = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate                    = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg
			If VBA.IsNumeric(xCell.Value) Then _
			xCell.Font.Bold = (xCell.Value > 90)
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

備註：在代碼中，數字90是使單元格加粗所需的值。 請根據自己的需要進行更改。

3。 按 F5 鍵來運行代碼，在 Excel的Kutools 對話框，選擇您需要用粗體字體設置單元格格式的範圍，然後單擊 OK 按鈕。

然後，大於90的單元格將以粗體格式設置。

---

使用Kutools for Excel使單元格大於或等於一定數量時加粗

選擇特定的單元格 Kutools for Excel實用程序將幫助您輕鬆地一次選擇在指定範圍內大於一定數量的單元格，然後您可以手動使用粗體字體設置它們的格式。

1.選擇範圍，然後單擊 庫工具 > 選擇 > 選擇特定的單元格。 看截圖：

2。 在裡面 選擇特定的單元格 對話框中選擇 細胞 在選項 選擇類型 部分，並在 特定類型 部分，選擇 比...更棒 在下拉列表中，在文本框中輸入特定的數字，最後單擊 OK 按鈕。

3.然後彈出一個對話框，告訴您選擇了多少個單元格，單擊 OK 按鈕。 現在，僅選擇大於90的單元格，繼續選擇這些單元格，然後單擊 膽大 按鈕下 首頁 標籤以使其大膽。