[發問] 增加【取代】的語法。

測試檔 :[attach]30620[/attach]

備註︰本題提供6個測試檔案。

在目前已經將$B$1︰$AX$1標示開獎號碼的底色之後，在增加下列的需求~
需求︰
1_將第2個工作表(="前3小")的AZ$1︰CC$1的"大"取代為"小"。

2_將第2個工作表(="前3小")的AZ$1︰CC$1的~
"43號底色(圖示)"格式"取代為"40號底色(圖示)"；
"8號底色(圖示)"格式"取代為"39號底色(圖示)"；
"37號底色(圖示)"格式"取代為"45號底色(圖示)"；

以上懇請各位先進惠予賜教為禱！謝謝！

增加取代的語法.rar (124.67 KB)

樓主熱帖

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

2^#

發表於 2019-5-17 20:14 | 顯示全部帖子

回復 1# Airman
不好意思，1#的測試檔放錯了^^"

更新測試檔~

增加取代的語法(2).rar (123.67 KB)
謹供參考!謝謝!

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

3^#

發表於 2019-5-17 20:59 | 顯示全部帖子

本帖最後由 Airman 於 2019-5-17 21:08 編輯

回復 1# Airman

在目前已經將$B$1︰$AX$1標示開獎號碼的底色之後，在增加下列的需求~
補充完整的說明~
在目前已經將(檔案日期的下一列開獎號碼之$B$1︰$AX$1標示底色和增加"前3小"的工作之後，再增加下列的需求~
謝謝!

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

4^#

發表於 2019-5-18 04:19 | 顯示全部帖子

本帖最後由 Airman 於 2019-5-18 04:28 編輯

回復 3# Airman

測試主檔 :

(主檔)增加取代的語法.rar (58.53 KB)

在列40~列56插入
                  Range("AZ1:CC1").Replace "大", "小"

                  Range("AZ1:CC1").Select
                  Application.FindFormat.Interior.ColorIndex = 43
                  Application.ReplaceFormat.Interior.ColorIndex = 40
                  Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
                  :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

                  Application.FindFormat.Interior.ColorIndex = 8
                  Application.ReplaceFormat.Interior.ColorIndex = 39
                  Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
                  :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

                  Application.FindFormat.Interior.ColorIndex = 37
                  Application.ReplaceFormat.Interior.ColorIndex = 45
                  Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
                  :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

請問 :要如何簡化錄製部分的程式碼?
還有~放置的列位正確嗎?
懇請各位大大不吝賜正是幸!謝謝!

TOP

Airman