尋找&取代

返回列表下一主題上一主題發帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 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

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 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

register313