先試一過簡單.
問左GPT, 想在 EXCEL 中行 VBA, 自動改 FONT = ARIAL, TEXT = 12.
佢教左係 文件 按 ALT+F11 打開.
跟住 執行, 輸入
Sub Changefont()
Dim cell As Range
For Each cell In ActiveSheet.usedrange.Cells
If cell.Font.Name = "arial" Then
cell.Font.Name = "times new roman"
cell.Font.Size = 12
End If
Next cell
End Sub
跟住按 F5.
沒有問題.
咁關左個 VBA.
按 ALT + F8 運行. 但什麼反應都沒有. 一個 FONT 都沒改. 大細也沒有不同.
是呢組 CODE 係錯? 還是 按 F5 的 STEP 錯. 應該再要做什麼 STEP ?
GPT 用簡體中文或大陸版的 OFFICE 術語, 有些看不明, 什麼 "宏".......
還有呢一組.
Sub Changefont()
Dim rng As Range
Dim cell As Range
Set rng = ActiveSheet.UsedRange
For Each cell In rng
If cell.Font.Name = "arial" Then
cell.Font.Name = "times new roman"
cell.Font.Size = 12
End If
Next cell
End Sub |