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

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 238
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-3-22 22:05 | 只看該作者

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

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

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

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

樓主熱帖

Just do it.

a_nanami

中學生 Rank: 2

帖子: 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)

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 238
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2017-3-23 21:19 | 只看該作者

回復 2# a_nanami

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

Just do it.

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 238
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

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.

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

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
點名: 238
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

6^#

發表於 2017-3-24 07:59 | 只看該作者

回復 5# ML089

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

Just do it.