如何使用Excel VBA 將儲存格內的值與顏色同步
- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 232
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-11-23
       
|
如何使用Excel VBA 將儲存格內的值與顏色同步
問題
1.D1~AH2(範圍)，每個月日期及星期都會有變動(手動key)
2.因每月份的假日或國定假日是不同的，故在假日的部分會再另外於儲存格標上粉紅色做為區別
3.是否可以使用VBA，將D1~AH2所輸入後的值，自動帶入D3~AH4 D17~AH18(輸入資料內容同步，以及儲存格標示顏色步)
再請各位先進指導我，感謝各位!
 Excel_儲存格顏色同步.rar (520.46 KB)
|
|
|
Just do it.
|
|
|
|
|
- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 232
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-11-23
|
6#
發表於 2017-3-24 07:59
| 只看該作者
回復 5# ML089
好的，謝謝你的回覆及教導。 |
|
|
Just do it.
|
|
|
|
|
- 帖子
- 2025
- 主題
- 13
- 精華
- 0
- 積分
- 2053
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office2007
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2011-3-2
- 最後登錄
- 2024-3-14
    
|
5#
發表於 2017-3-23 23:57
| 只看該作者
回復 4# jsc0518
沒有規律時用 For Each y In Array( ... )
Sub Macro2()
Range("D1:AH2").Select
Selection.Copy
For Each y In Array(3, 17, 37, 53, 67, 84, 98, 115, 129, 145, 159, 174, 188, 204, 220, 236, 251, 267)
Range("D" & y).Select
ActiveSheet.Paste
Next
End Sub
Sub Macro3()
For Each y In Array(3, 17, 37, 53, 67, 84, 98, 115, 129, 145, 159, 174, 188, 204, 220, 236, 251, 267)
Range("D1:AH2").Copy Range("D" & y)
Next
End Sub |
|
|
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式
|
|
|
|
|
- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 232
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-11-23
|
4#
發表於 2017-3-23 21:48
| 只看該作者
這是我用錄製的方式，但覺得程式碼太允長
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.
|
|
|
|
|
- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 232
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-11-23
|
3#
發表於 2017-3-23 21:19
| 只看該作者
回復 2# a_nanami
您好，附件檔案該如何使用呢?
謝謝您的回覆! |
|
|
Just do it.
|
|
|
|
|
- 帖子
- 29
- 主題
- 11
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- WINDOWS 10
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-31
- 最後登錄
- 2023-8-9
|
2#
發表於 2017-3-23 20:23
| 只看該作者
回復 1# jsc0518
好像不需要用到VBA，附檔看看是否符合你的需要
日曆.rar (25.99 KB)
|
|
|
|
|
|
|
|
