如何用程式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

複製代碼

Jared

TOP

linyancheng

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 235
主題: 78
精華: 2
積分: 345
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2026-6-1

3^#

發表於 2014-3-18 19:59 | 只看該作者

根據說明，結果不正確，for i 和 for j 是不是反了？
最後=AD直接用=Ar(j) & Format(i, "000")即可，AB, AC, AD三變數皆不需要。

TOP

Jared

中學生 Rank: 2

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

4^#

發表於 2014-3-19 09:28 | 只看該作者

回復 3# linyancheng

謝謝大大的修正
我想還是需要磨練 :D

Jared

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章