帖子: 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

樓主熱帖

mmggmm

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

9^#

發表於 2012-4-29 14:59 | 只看該作者

謝謝各位的詳細說明

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

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

Sub 取代()
Set Rng = Selection
S = Array(700, 1100, 1500, 2300)
R = Array("J07", "J11", "J15", "J23")
For I = 0 To UBound(S)
Rng.Replace S(I), R(I)
Next I
End Sub

複製代碼

或

Sub 取代()
Set Rng = Selection
S = Array(700, 1100, 1500, 2300)
For I = 0 To UBound(S)
Rng.Replace S(I), Application.Text(S(I) / 100, "J00")
Next I
End Sub

複製代碼

TOP

mmggmm

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

6^#

發表於 2012-4-29 14:23 | 只看該作者

原錄制巨集只取代選擇範圍內的資料
而執大大提供的後則取代了全部資料,不知那裡有問題.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 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

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

博士班 Rank: 6 Rank: 6

帖子: 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龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-4-27 19:48 | 只看該作者

本帖最後由 register313 於 2012-4-27 20:18 編輯

回復 1# mmggmm

Sub 取代()
Set Rng = ActiveSheet.UsedRange
S = Array(700, 1100, 1500, 2300)
R = Array("J07", "J11", "J15", "J23")
For I = 0 To UBound(S)
Rng.Replace S(I), R(I)
Next I
End Sub

複製代碼

Sub 取代()
Set Rng = ActiveSheet.UsedRange
S = Array(700, 1100, 1500, 2300)
For I = 0 To UBound(S)
Rng.Replace S(I), Application.Text(S(I) / 100, "J00")
Next I
End Sub

複製代碼

TOP

尋找&取代

尋找&取代

樓主熱帖

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]