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

如何用程式for迴圈

Jared

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-3-18 14:04 | 顯示全部帖子

如何用程式for迴圈

想請問大大
我現在想要利用For迴圈來跑程式
目的是將編號A001開始來累加
但問題就是無法顯示 "001"
而是一慮變成 "1"
有什麼辦法可以讓程式從A001、A002...A999、B001、B002....B999........Z999
希望能幫我指點迷津><

Dim i , AB
Ar = Array(A, B, C, D, E, F, G, H, i, J, K, L, M, N, O, P, Q, R, s, t, u, v, W, X, Y, Z)

For i = 0 to 999
Ab=Ar & 1

Next

樓主熱帖

Jared

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

2^#

發表於 2014-3-18 16:38 | 顯示全部帖子

回復 1# Jared

我後來寫了一個方式
但程式會跑完後又跑好幾次
要怎麼才能讓它跑完 A001、A010後跑B001、B010......Z010

Sub 測試()
Dim i, j, Ar(), AB, AC, AD
Ar = Array("A", "B", "C", "D", "E", "F", "G", "H", "i", "j", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
For i = 1 To 10
For j = 0 To 25
If AB = "A010" Then Exit Sub
AB = Ar(j) & AC
AC = Format(i, "000")
AD = AB & AC
Selection.TypeText Text:=AD
Next
Next
End Sub