返回列表 上一主題 發帖

清除指定範圍紅色數字問題

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-7-2 12:08 | 只看該作者

清除指定範圍紅色數字問題



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

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

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

清除紅色數字.rar (9.15 KB)
收藏 分享
*宅女一枚無誤*

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
3#
發表於 2016-7-2 16:25 | 只看該作者
回復 2# GBKEE

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

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 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( ) 裡面的部分就可以了
PKKO

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題