標題: 如何使用Excel VBA 將儲存格內的值與顏色同步 [打印本頁]

---

作者: jsc0518    時間: 2017-3-22 22:05     標題: 如何使用Excel VBA 將儲存格內的值與顏色同步

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

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

[attach]26849[/attach]


[attach]26850[/attach]

---

作者: a_nanami    時間: 2017-3-23 20:23

回復 1# jsc0518


好像不需要用到VBA，附檔看看是否符合你的需要  [attach]26871[/attach]

---

作者: jsc0518    時間: 2017-3-23 21:19

回復 2# a_nanami

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

---

作者: jsc0518    時間: 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

---

作者: ML089    時間: 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

---

作者: jsc0518    時間: 2017-3-24 07:59

回復 5# ML089

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

---

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