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

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

12^#

發表於 2019-5-19 01:25 | 只看該作者

回復 11# Scott090
Scott090大大:您好!
沒有關係!只是小弟一向覺得For...Next一格格算，範圍大就會影響效率罷了^^"
謝謝您^^晚安!

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

11^#

發表於 2019-5-18 22:07 | 只看該作者

回復 10# Airman

我沒有其他想法，問看看其他高手大大們是否有其他解法。

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

10^#

發表於 2019-5-18 14:46 | 只看該作者

回復 6# Scott090
Scott090大大 :
再請教一下:
如果不用迴圈 For.....Next
還有其它的語法嗎?
謝謝您^^

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

9^#

發表於 2019-5-18 14:02 | 只看該作者

回復 6# Scott090
Scott090大大 :
OK了!謝謝您的不吝賜正^^

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

8^#

發表於 2019-5-18 12:49 | 只看該作者

回復 7# 准提部林

准大：
用 Switch 是一個很好的寫法，
謝謝提醒

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2836
主題: 10
精華: 0
積分: 2892
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-30

7^#

發表於 2019-5-18 12:27 | 只看該作者

回復 6# Scott090

試試這可不可
Rng.Interior.ColorIndex = Switch(i = 43, 40, i = 8, 39, i = 37, 45, i = i, i)))

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

6^#

發表於 2019-5-18 11:48 | 只看該作者

本帖最後由 Scott090 於 2019-5-18 11:51 編輯

回復 4# Airman

      在簡化試試看：
            With ActiveSheet
                     .Name = "前3小"
                     .Tab.Color = RGB(255, 255, 0)

                     For Each Rng In .Range("AZ1:CC1")
                           Rng.Value = Replace(Rng, "大", "小")
                          i = Rng.Interior.ColorIndex
      Rng.Interior.ColorIndex = IIf(i = 43, 40, IIf(i = 8, 39, IIf(i = 37, 45, i)))
                     Next
            End With

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2019-5-18 10:53 | 只看該作者

回復 4# Airman


         請參考，檢查看看這是不是你要的：
                  For Each Rng In .Range("AZ1:CC1")
                           Rng.Value = Replace(Rng, "大", "小")
                           If Rng.Interior.ColorIndex = 43 Then
                                 Rng.Interior.ColorIndex = 40
                           ElseIf Rng.Interior.ColorIndex = 8 Then
                                 Rng.Interior.ColorIndex = 39
                           ElseIf Rng.Interior.ColorIndex = 37 Then
                                 Rng.Interior.ColorIndex = 45
                           End If
                     Next

上面的就取代下面的囉；
''''                   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

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

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