返回列表 上一主題 發帖

如何呼叫Excel內尋找及取代的【從儲存格選擇格式】

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2018-7-26 13:13 | 顯示全部帖子
本帖最後由 a5007185 於 2018-7-26 13:14 編輯

就目前我觀察錄製巨集的結果，
他是將該儲存格所有的格式屬性直接引用進FindFormat

你可以考慮先考慮你要用什麼樣的格式項目進行篩選，
之後直接引用該儲存格的格式作為條件就好。

例如如果是目標儲存格「字體大小」作為條件，
你可以這麼做
  1. Application.FindFormat.Clear
  2. Application.FindFormat.Font.Size = Range("A1").Font.Size
  3. Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False , MatchByte:=False, SearchFormat:=True).Activate
複製代碼
給你個參考
以上小弟拙見，若內容有誤，敬請賜教，謝謝！

TOP

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-7-27 08:39 | 顯示全部帖子
就我的理解，
其實很多介面也是暗藏數項的指令，
只是他簡化成一鍵執行的效果，
我有稍微爬一下文，
目前都沒有看到【從儲存格選擇格式】相關的指令，
可能有也可能沒有，
這就需要其他大大提供相關資訊了~

另外，如果你是希望能夠找出合併儲存格，
你可以用以下cmd，
  1. Sub FindMerge()
  2.     Application.FindFormat.Clear
  3.     Application.FindFormat.MergeCells = True
  4.     Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
  5.     SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=True).Activate
  6. End Sub
複製代碼

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題