我有一個表，其中包含基于 excel 選單（資料->小計）創建的小計。現在我想將單元格涂成灰色，并使小計粗體的線條。vba代碼可以嗎？A 列顯示多個單元格，格式如下：總代碼“KKK Total”。
謝謝
uj5u.com熱心網友回復：
范圍的顏色行
- 假設資料“很好”地從單元格開始
A1并且有一行標題。
Option Explicit
Sub ColorLines()
Application.ScreenUpdating = False
Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
If ws.FilterMode Then ws.ShowAllData
Dim rg As Range: Set rg = ws.Range("A1").CurrentRegion
Dim drg As Range: Set drg = rg.Resize(rg.Rows.Count - 1).Offset(1)
rg.AutoFilter 1, "*Total" ' ends with or e.g. "*Total*" contains
Dim vrg As Range
On Error Resume Next
Set vrg = drg.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
ws.AutoFilterMode = False
If Not vrg Is Nothing Then vrg.Interior.Color = 13553360
Application.ScreenUpdating = True
MsgBox "Subtotals colored.", vbInformation
End Sub
uj5u.com熱心網友回復：
您想將哪些單元格涂成灰色？一切？然后更容易選擇所有內容（cntrl a）并使用填充單元格。您也可以使用宏記錄器進行記錄。
如果要使包含“小計”的單元格變為粗體，請使用以下命令：
Sub bold()
Dim Rng As Range
Application.ReplaceFormat.Font.FontStyle = "Bold"
With ThisWorkbook.Sheets("Sheet1")
Set Rng = .Range("A:A")
Rng.Cells.Replace What:="Subtotal", Lookat:=xlWhole, Replacement:="Subtotal",
SearchFormat:=False, ReplaceFormat:=True
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/440558.html
上一篇：VBAFileDialog將powerpoint保存為.ppt而不是.pptx
下一篇：回圈由VBA類制作的集合