標題: 清除指定範圍紅色數字問題 [打印本頁]

---

作者: msmplay    時間: 2016-7-2 12:08     標題: 清除指定範圍紅色數字問題

[attach]24600[/attach]

需求:
希望按下【清除】鈕後，可清除A20:K100範圍內，紅字的數字

說明:
因A:K欄內數字，每天的欄列均可能調整，且用字顏色非紅字均需清除
故希望可以自行鎖定想清除的範圍內的紅色數字即可

求解~~~~~~~~~~~

[attach]24601[/attach]

---

作者: GBKEE    時間: 2016-7-2 14:03

回復 1# msmplay
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Application.FindFormat.Font.ColorIndex = 3
   
4.     Columns("A:K").Replace What:="*", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
5.         xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
   
6. End Sub

複製代碼

---

作者: msmplay    時間: 2016-7-2 16:25

回復 2# GBKEE

G大~~~~~非常感謝幫忙!!!但可以請教一下如果我想指定清除範圍為A20:K100，該如何修改呢!?
因為不是所有的紅色數字都要清除，非常感謝喔!!!!!

---

作者: PKKO    時間: 2016-7-3 10:46

回復 3# msmplay

1. Sub Ex()
   
2.     Application.FindFormat.Font.colorIndex = 3
   
3.     Range("A20:K100").Replace What:="*", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
4.         xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
   
5. End Sub

複製代碼

以後要更改範圍
就更改RANGE( ) 裡面的部分就可以了

---

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