麻辣家族討論版版 » Excel程式區 » VBA_如何簡化此程式碼。謝謝!

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

[發問] VBA_如何簡化此程式碼。謝謝!

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: WIN7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2015-11-20
最後登錄: 2022-9-27

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-11-25 10:12 | 只看該作者

[發問] VBA_如何簡化此程式碼。謝謝!

小弟本版首次提問,請大大們賜教
程式碼如下
Sub test()

Sheets("aaa").Select
Range("A1").Select
k = Range(Selection, Selection.End(xlDown)).Count          '計算A欄位筆數

For ii = 2 To k
Range("P" & ii) = VBA.Replace(Range("P" & ii), "1", "一課")
Range("P" & ii) = VBA.Replace(Range("P" & ii), "2", "二課")
Range("P" & ii) = VBA.Replace(Range("P" & ii), "3", "三課")
Range("P" & ii) = VBA.Replace(Range("P" & ii), "4", "四課")
Range("P" & ii) = VBA.Replace(Range("P" & ii), "5", "五課")
Range("P" & ii) = VBA.Replace(Range("P" & ii), "6", "A課")
Range("P" & ii) = VBA.Replace(Range("P" & ii), "7", "B課")
Range("P" & ii) = VBA.Replace(Range("P" & ii), "8", "C課")
Next ii                                                                                                    '如果 P欄的數值符合1,則取代為"一課";2則為"二課",以此類推

  End Sub

簡化需求的原因:萬一下次不只8筆,20筆VBA程式碼不就"漏漏長"了 ><

以上感恩並學習 Jukom

收藏

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2015-11-25 10:37 | 只看該作者

小弟本版首次提問,請大大們賜教
程式碼如下
Sub test()

Sheets("aaa").Select
Range("A1"). ...
jukom 發表於 2015-11-25 10:12

有點不解你的 Range("P" & ii) 內容直到底是什麼？

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: WIN7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2015-11-20
最後登錄: 2022-9-27

3^#

發表於 2015-11-25 11:00 | 只看該作者

有點不解你的 Range("P" & ii) 內容直到底是什麼？
c_c_lai 發表於 2015-11-25 10:37

Range("P" &ii)內容的值是1~8的變數 (這個部份是ERP系統自行產生的), 目前是1~8,
對應的關係如下
1  一課
2  二課
3  三課
4  四課
5  五課
6  A課
7  B課
8  C課

以上感謝 Jukom

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

4^#

發表於 2015-11-25 11:30 | 只看該作者

Dim Arr,i%
Arr = Array("一", "二", "三", "四", "五", "人事", "會計", "業務")
For i = 0 To UBound(Arr)
　　[A:A].Replace i + 1, Arr(i) & "課", Lookat:=xlWhole
Next

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: WIN7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2015-11-20
最後登錄: 2022-9-27

5^#

發表於 2015-11-25 11:36 | 只看該作者

Dim Arr,i%
Arr = Array("一", "二", "三", "四", "五", "人事", "會計", "業務")
For i = 0 To UBound(A ...
准提部林發表於 2015-11-25 11:30

感謝准提部林大大, 原來是要用 UBound, 懂了懂了 ><

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

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