返回列表 上一主題 發帖

[發問] 取代問題請教(公式內容不取代)

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-1-23 08:34 | 顯示全部帖子

[發問] 取代問題請教(公式內容不取代)

DEAR ALL大大
1如圖一為  ALL取代.
2若想"公式"內容之 FX-XGA 不取代為 ABFS
3請問如何修改.煩不吝賜教  THANKS*10000

圖一
Sub ALL取代()
    Sheet1.Select
    Range("A1").Select
    Cells.Replace What:="FC-XGA", Replacement:="ABFS", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
End Sub
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2015-1-26 08:11 | 顯示全部帖子
DEAR fantersy SIR
感謝您之回覆
小弟是需要將原EXCEL內之文字 "FC-XGA" 全自動 轉換為 "ABFS"
使用原有功能鍵 "編籍"-"取代"-"全部替換"可達成此功能
但會將公式內之  "FC-XGA" 也自動 轉換為 "ABFS"
需求是公式不轉換.只轉換文字.
羅

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2015-1-29 09:37 | 顯示全部帖子
DEAR  准提部林
   小弟測試OK 完全符合需求  感謝您  THANKS*10000

Cells.SpecialCells(xlCellTypeConstants, 23).Replace "FC-XGA", "ABFS", Lookat:=xlPart
羅

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題