如何使用Excel VBA 將儲存格內的值與顏色同步
- 帖子
- 450
- 主題
- 110
- 精華
- 0
- 積分
- 557
- 點名
- 103
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-5-20
       
|
如何使用Excel VBA 將儲存格內的值與顏色同步
問題
1.D1~AH2(範圍)，每個月日期及星期都會有變動(手動key)
2.因每月份的假日或國定假日是不同的，故在假日的部分會再另外於儲存格標上粉紅色做為區別
3.是否可以使用VBA，將D1~AH2所輸入後的值，自動帶入D3~AH4 D17~AH18(輸入資料內容同步，以及儲存格標示顏色步)
再請各位先進指導我，感謝各位!
 Excel_儲存格顏色同步.rar (520.46 KB)
|
|
|
Just do it.
|
|
|
|
|
- 帖子
- 450
- 主題
- 110
- 精華
- 0
- 積分
- 557
- 點名
- 103
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-5-20
|
回復 2# a_nanami
您好，附件檔案該如何使用呢?
謝謝您的回覆! |
|
|
Just do it.
|
|
|
|
|
- 帖子
- 450
- 主題
- 110
- 精華
- 0
- 積分
- 557
- 點名
- 103
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-5-20
|
這是我用錄製的方式，但覺得程式碼太允長
Sub Macro1()
Range("D1").Select
Range("D1:AH2").Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Range("D17").Select
ActiveSheet.Paste
Range("D37").Select
ActiveSheet.Paste
Range("D53").Select
ActiveSheet.Paste
Range("D67").Select
ActiveSheet.Paste
Range("D84").Select
ActiveSheet.Paste
Range("D98").Select
ActiveSheet.Paste
Range("D115").Select
ActiveSheet.Paste
Range("D129").Select
ActiveSheet.Paste
Range("D145").Select
ActiveSheet.Paste
Range("D159").Select
ActiveSheet.Paste
Range("D174").Select
ActiveSheet.Paste
Range("D188").Select
ActiveSheet.Paste
Range("D204").Select
ActiveSheet.Paste
Range("D220").Select
ActiveSheet.Paste
Range("D236").Select
ActiveSheet.Paste
Range("D251").Select
ActiveSheet.Paste
Range("D267").Select
ActiveSheet.Paste
End Sub |
|
|
Just do it.
|
|
|
|
|
- 帖子
- 450
- 主題
- 110
- 精華
- 0
- 積分
- 557
- 點名
- 103
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-5-20
|
回復 5# ML089
好的，謝謝你的回覆及教導。 |
|
|
Just do it.
|
|
|
|
|
發表於 2017-3-22 22:05
| 
