如何使用Excel VBA 將儲存格內的值與顏色同步

jsc0518

問題
1.D1~AH2(範圍)，每個月日期及星期都會有變動(手動key)
2.因每月份的假日或國定假日是不同的，故在假日的部分會再另外於儲存格標上粉紅色做為區別
3.是否可以使用VBA，將D1~AH2所輸入後的值，自動帶入D3~AH4 D17~AH18(輸入資料內容同步，以及儲存格標示顏色步)

再請各位先進指導我，感謝各位!

下載 (80.13 KB)

2017-3-22 22:03

Excel_儲存格顏色同步.rar (520.46 KB)

下載次數: 5

2017-3-22 22:04

a_nanami

回復 1# jsc0518


好像不需要用到VBA，附檔看看是否符合你的需要   日曆.rar (25.99 KB)

下載次數: 6

2017-3-23 20:21

jsc0518

回復 2# a_nanami

您好，附件檔案該如何使用呢?
謝謝您的回覆!

jsc0518

這是我用錄製的方式，但覺得程式碼太允長

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

ML089

回復 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

jsc0518

回復 5# ML089

好的，謝謝你的回覆及教導。