如何呼叫Excel內尋找及取代的【從儲存格選擇格式】
- 帖子
- 132
- 主題
- 31
- 精華
- 0
- 積分
- 167
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2011-4-14
- 最後登錄
- 2024-2-28
  
|
如何呼叫Excel內尋找及取代的【從儲存格選擇格式】
Hi 各位前輩
小的想請問大家，是否知道怎麼樣可以開啟Excel內尋找及取代的【從儲存格選擇格式】，因為想用個來抓到FindFormat的格式，還請知道的前輩能給予指導，感謝您。
|
|
|
clio
|
|
|
|
|
暱稱: 阿佐 頭銜: 上班無聊打怪去
中學生
- 帖子
- 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
你可以考慮先考慮你要用什麼樣的格式項目進行篩選，
之後直接引用該儲存格的格式作為條件就好。
例如如果是目標儲存格「字體大小」作為條件，
你可以這麼做- Application.FindFormat.Clear
- Application.FindFormat.Font.Size = Range("A1").Font.Size
- Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False , MatchByte:=False, SearchFormat:=True).Activate
以上小弟拙見，若內容有誤，敬請賜教，謝謝！ |
|
|
|
|
|
|
|
- 帖子
- 132
- 主題
- 31
- 精華
- 0
- 積分
- 167
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2011-4-14
- 最後登錄
- 2024-2-28
|
3#
發表於 2018-7-27 08:31
| 只看該作者
回復 2# a5007185
這個方法確實可以，但是就是針對有些已經特定的格式來說，若是要讓使用者自行選取某一個儲存格，以這個為標準來比對，也是可以自行寫一個小Function將所有的格式資訊一個個複製，但是我提到的那個方法，是可以直接複製格式，而且這種方法，可以針對貼上的格式來選擇，因為若是直接進行貼上格式的設定時，合併儲存格這一項是無法選取，但是若用上述方式，則可以，所以才想知道如何呼叫出那個視窗 |
|
|
clio
|
|
|
|
|
暱稱: 阿佐 頭銜: 上班無聊打怪去
中學生
- 帖子
- 108
- 主題
- 1
- 精華
- 0
- 積分
- 113
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 臺灣
- 註冊時間
- 2017-9-7
- 最後登錄
- 2019-2-27
|
4#
發表於 2018-7-27 08:39
| 只看該作者
就我的理解，
其實很多介面也是暗藏數項的指令，
只是他簡化成一鍵執行的效果，
我有稍微爬一下文，
目前都沒有看到【從儲存格選擇格式】相關的指令，
可能有也可能沒有，
這就需要其他大大提供相關資訊了~
另外，如果你是希望能夠找出合併儲存格，
你可以用以下cmd，- Sub FindMerge()
- Application.FindFormat.Clear
- Application.FindFormat.MergeCells = True
- Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
- SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=True).Activate
- End Sub
|
|
|
|
|
|
|
|
