返回列表 上一主題 發帖

尋找&取代

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-27 19:34 | 只看該作者

尋找&取代

各位:以下我用錄制的巨集,請問如何簡單一點,謝謝.

Sub 取代()
    ActiveSheet.UsedRange

    Selection.Replace What:="700", Replacement:="J07", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="1500", Replacement:="J15", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="1100", Replacement:="J11", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="2300", Replacement:="J23", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
  
End Sub
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-27 19:48 | 只看該作者
本帖最後由 register313 於 2012-4-27 20:18 編輯

回復 1# mmggmm
  1. Sub 取代()
  2. Set Rng = ActiveSheet.UsedRange
  3. S = Array(700, 1100, 1500, 2300)
  4. R = Array("J07", "J11", "J15", "J23")
  5. For I = 0 To UBound(S)
  6.   Rng.Replace S(I), R(I)
  7. Next I
  8. End Sub
複製代碼
  1. Sub 取代()
  2. Set Rng = ActiveSheet.UsedRange
  3. S = Array(700, 1100, 1500, 2300)
  4. For I = 0 To UBound(S)
  5.   Rng.Replace S(I), Application.Text(S(I) / 100, "J00")
  6. Next I
  7. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-4-28 08:09 | 只看該作者
回復 2# register313
請問您為何用 Rng.Replace S(I), Application.Text(S(I) / 100, "J00") 的方式處理？
它與下列處理方式，差別在於一個以陣列、一個以直接替換的方式做異動。
R = Array("J07", "J11", "J15", "J23")
Rng.Replace S(I), R(I)
但我好奇的是 Application.Text(S(I) / 100, "J00") 是如何運作的？
謝謝您！

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-4-28 10:06 | 只看該作者
回復 3# c_c_lai

         Application.Text(S(I) / 100, "J00")   設定S(I) / 100之格式為J00
亦可用         Format(S(I) / 100, "J00")   設定S(I) / 100之格式為J00

I=0時,S(I)=700,Format(S(I) / 100, "J00") =Format(7, "J00") =J07
I=1時,S(I)=1100,Format(S(I) / 100, "J00") =Format(11, "J00") =J11
I=2時,S(I)=1500,Format(S(I) / 100, "J00") =Format(15, "J00") =J15
I=3時,S(I)=2300,Format(S(I) / 100, "J00") =Format(23, "J00") =J23

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2012-4-28 10:36 | 只看該作者
回復 4# register313
我用了     Range("D5").Value = Format(11, "J00") 來做測試，竟然答案會是 J11，
Amazing!  
Thanks a lot.

TOP

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
6#
發表於 2012-4-29 14:23 | 只看該作者
原錄制巨集只取代選擇範圍內的資料
而執大大提供的後則取代了全部資料,不知那裡有問題.

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
7#
發表於 2012-4-29 14:39 | 只看該作者
回復 6# mmggmm
  1. Sub 取代()
  2. Set Rng = Selection
  3. S = Array(700, 1100, 1500, 2300)
  4. R = Array("J07", "J11", "J15", "J23")
  5. For I = 0 To UBound(S)
  6.   Rng.Replace S(I), R(I)
  7. Next I
  8. End Sub
複製代碼
或
  1. Sub 取代()
  2. Set Rng = Selection
  3. S = Array(700, 1100, 1500, 2300)
  4. For I = 0 To UBound(S)
  5.   Rng.Replace S(I), Application.Text(S(I) / 100, "J00")
  6. Next I
  7. 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兔年全勤獎章
8#
發表於 2012-4-29 14:45 | 只看該作者
本帖最後由 GBKEE 於 2012-4-29 14:48 編輯

回復 6# mmggmm
Rng.Replace S(I), R(I)    沒指明 LookAt := xlWhole 或 LookAt :=  xlPart
會依上次的 LookAt  
vba 的 說明
Replace 方法
Range 物件時用 Replace 方法。
傳回 Boolean 值，此值表示指定範圍內儲存格中的字元。使用此方法不會變更選定範圍和目前儲存格。
expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)
以下是參數的說明
What     必選的 Variant。您要 Microsoft Excel 尋找的字串。
Replacement     必選的 Variant。要置換的字串。
LookAt      選擇性的 Variant。可為下列 XlLookAt 常數之一：xlWhole 或 xlPart。
SearchOrder      選擇性的 Variant。可為下列 XlSearchOrder 常數之一：xlByRows 或 xlByColumns。
MatchCase     選擇性的 Variant。若指定為 True，則搜尋時大小寫視為相異。
MatchByte     選擇性的 Variant。如果在 Microsoft Excel 中選擇或安裝二位元語言支援，您僅可以使用此引數。若指定為 True，就使雙位元組字元僅符合雙位元組字元。若指定為 False，則雙位元組字元可符合其等價的單位元組字元。
SearchFormat     選擇性的 Variant。方法的搜尋格式。
ReplaceFormat     選擇性的 Variant。方法的取代格式。
你用錄製可查看 參數的變化
LookAt := xlWhole  如圖 所勾選的 選項
LookAt :=  xlPart      圖中 所勾選的 選項會取消

TOP

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
9#
發表於 2012-4-29 14:59 | 只看該作者
謝謝各位的詳細說明

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題