返回列表 上一主題 發帖

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

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-7-24 17:45 | 只看該作者

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

Hi 各位前輩
小的想請問大家，是否知道怎麼樣可以開啟Excel內尋找及取代的【從儲存格選擇格式】，因為想用個來抓到FindFormat的格式，還請知道的前輩能給予指導，感謝您。
收藏 分享
clio

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

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 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

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
3#
發表於 2018-7-27 08:31 | 只看該作者
回復 2# a5007185
這個方法確實可以，但是就是針對有些已經特定的格式來說，若是要讓使用者自行選取某一個儲存格，以這個為標準來比對，也是可以自行寫一個小Function將所有的格式資訊一個個複製，但是我提到的那個方法，是可以直接複製格式，而且這種方法，可以針對貼上的格式來選擇，因為若是直接進行貼上格式的設定時，合併儲存格這一項是無法選取，但是若用上述方式，則可以，所以才想知道如何呼叫出那個視窗
clio

TOP

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

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
4#
發表於 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

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題