Board logo

標題: [發問] VBA 更改選中儲存格之數值 [打印本頁]
作者: wei9133    時間: 2019-11-15 01:49     標題: VBA 更改選中儲存格之數值

VBA 更改選中儲存格之數值

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

目前用的是這個錄製的，但只能一次改一格
原本只要加粗上色的時候多格同時處理是沒問題，但加上要改內文就不行了。
(選中的儲存格可能不連貫)
[attach]31414[/attach]
  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"

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

但我不會把上面的程式，改成把目前選中儲存格全部加粗上色&更改內文
還是能夠把Selection.Address得到的位置全部拆出來
再一個一個去改過來?
作者: 准提部林    時間: 2019-11-15 09:26

With Selection
     .Font.Bold = True
     .Font.ColorIndex = 3
     .Value = "W"
End With
作者: wei9133    時間: 2019-11-16 02:22

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



    確實可用了，萬分感謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)