返回列表 上一主題 發帖

[發問] 請問該如何自動取代

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-2-9 18:05 | 顯示全部帖子
回復 1# leefing

工作表內任一儲存格之值有變動時自動執行取代程式

工作表模組
  1. Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
  2.     Cells.Replace What:="台塑", Replacement:="臺塑", LookAt:=xlWhole, _
  3.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  4.         ReplaceFormat:=False
  5.         
  6.     Cells.Replace What:="台化", Replacement:="臺化", LookAt:=xlWhole, _
  7.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  8.         ReplaceFormat:=False
  9.     Cells.Replace What:="遠紡", Replacement:="遠東新", LookAt:=xlWhole, _
  10.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  11.         ReplaceFormat:=False
  12. End Sub
複製代碼

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題