返回列表 上一主題 發帖

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

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-9 17:44 | 只看該作者

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

如題
我已經有錄製取代的巨集，但是每次更新都要再按一次巨集，該如何把它改成自動變更
意思就是說  我按一次更新  ， 就會變台塑，可是DDE傳送是臺塑，所以我要把名字改成臺塑，用vlookup才找的到
  1. Sub 摩根取代名字()
  2. ' Macro4 Macro
  3. '
  4.     Cells.Replace What:="台塑", Replacement:="臺塑", LookAt:=xlWhole, _
  5.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  6.         ReplaceFormat:=False
  7.         
  8.     Cells.Replace What:="台化", Replacement:="臺化", LookAt:=xlWhole, _
  9.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  10.         ReplaceFormat:=False
  11.     Cells.Replace What:="遠紡", Replacement:="遠東新", LookAt:=xlWhole, _
  12.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  13.         ReplaceFormat:=False

  15. End Sub
複製代碼
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2012-2-10 11:42 | 只看該作者
回復 5# leefing


    複製網頁內容
  1. Sub Catch_Web()
  2. Set MyIE = CreateObject("InternetExplorer.Application")
  3. With MyIE
  4. .navigate "http://mis.tse.com.tw/market_index.html?market=1"
  5. Do Until .readyState = READYSTATE_COMPLETE: DoEvents: Loop
  6. .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
  7. .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
  8. Sheet1.Select
  9. Sheet1.[A1].Select
  10. Sheet1.Paste
  11. .Quit
  12. End With
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-2-10 07:09 | 只看該作者
回復 5# leefing
這有人提過   因他不是文字 無法匯入Excel

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
5#
發表於 2012-2-9 22:24 | 只看該作者
回復 4# GBKEE


    謝謝g大  ，這樣又多了一個方法可以使用了

問一個題外話，就是這個網站  證交所集中市場資訊
  我想要把這一頁的表格  匯到excel   ，現在的問題是我按匯進去  結果沒東西跑出來，  不知道能不能解決？

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-2-9 21:44 | 只看該作者
回復 1# leefing
不用 VBA   
如圖  拼字檢查 設定  

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
3#
發表於 2012-2-9 18:31 | 只看該作者
回復 2# register313

可以自動取代了，謝謝R大

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題