Board logo

標題: 如何呼叫Excel內尋找及取代的【從儲存格選擇格式】 [打印本頁]
作者: clio    時間: 2018-7-24 17:45     標題: 如何呼叫Excel內尋找及取代的【從儲存格選擇格式】

Hi 各位前輩
小的想請問大家，是否知道怎麼樣可以開啟Excel內尋找及取代的【從儲存格選擇格式】，因為想用個來抓到FindFormat的格式，還請知道的前輩能給予指導，感謝您。
[attach]29063[/attach]
作者: a5007185    時間: 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
複製代碼
給你個參考
以上小弟拙見，若內容有誤，敬請賜教，謝謝！
作者: clio    時間: 2018-7-27 08:31

回復 2# a5007185
這個方法確實可以，但是就是針對有些已經特定的格式來說，若是要讓使用者自行選取某一個儲存格，以這個為標準來比對，也是可以自行寫一個小Function將所有的格式資訊一個個複製，但是我提到的那個方法，是可以直接複製格式，而且這種方法，可以針對貼上的格式來選擇，因為若是直接進行貼上格式的設定時，合併儲存格這一項是無法選取，但是若用上述方式，則可以，所以才想知道如何呼叫出那個視窗
作者: a5007185    時間: 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)