[發問] VBA 更改選中儲存格之數值

wei9133

VBA 更改選中儲存格之數值

版本：excel 2003
需求：將選中的儲存格加粗上色，並更改內文

目前用的是這個錄製的，但只能一次改一格
原本只要加粗上色的時候多格同時處理是沒問題，但加上要改內文就不行了。
(選中的儲存格可能不連貫)

下載 (5.73 KB)

2019-11-15 01:48

1. Sub 加粗上色()
   
2. '
   
3. ' Macro1 Macro
   
4. ' wei9133 在 2019/11/7 錄製的巨集
   
5. '
   
6. ' 快速鍵: Ctrl+e
   
7. '加粗上色
   
8.     Selection.Font.Bold = True
   
9.     Selection.Font.ColorIndex = 3
   
10. '獲取當前儲存格位置
    
11. i = ActiveCell.Row
    
12. j = ActiveCell.Column
    
13. 'MsgBox i & "/" & j
    
14. '將選中的儲存格資料改為W
    
15. ActiveSheet.Cells(i, j) = "W"
    
16. 
    
17. End Sub

複製代碼

有查到Selection.Address可以顯示目前所有選中格子位置
例如：
MsgBox "目前被選取儲存格" & Selection.Address

但我不會把上面的程式，改成把目前選中儲存格全部加粗上色&更改內文
還是能夠把Selection.Address得到的位置全部拆出來
再一個一個去改過來?

准提部林

With Selection
     .Font.Bold = True
     .Font.ColorIndex = 3
     .Value = "W"
End With

wei9133

With Selection
     .Font.Bold = True
     .Font.ColorIndex = 3
     .Value = "W"
End With
准提部林 發表於 2019-11-15 09:26

    確實可用了，萬分感謝