Excel vba ile rakam ve harflerden 6 karakterli metin oluşturma

Mac filitrelemede kullanmak için ihityacım olan 000822 serisi mac adeslerinin son 6 karakterini dolduracak dizi serisi.

Private Sub CommandButton1_Click()

Dim dizi(1 To 36) As String

dizi(1) = “0”
dizi(2) = “1”
dizi(3) = “2”
dizi(4) = “3”
dizi(5) = “4”
dizi(6) = “5”
dizi(7) = “6”
dizi(8) = “7”
dizi(9) = “8”
dizi(10) = “9”
dizi(11) = “q”
dizi(12) = “w”
dizi(13) = “e”
dizi(14) = “r”
dizi(15) = “t”
dizi(16) = “y”
dizi(17) = “u”
dizi(18) = “o”
dizi(19) = “p”
dizi(20) = “a”
dizi(21) = “s”
dizi(22) = “d”
dizi(23) = “f”
dizi(24) = “g”
dizi(25) = “h”
dizi(26) = “j”
dizi(27) = “k”
dizi(28) = “l”
dizi(29) = “i”
dizi(30) = “z”
dizi(31) = “x”
dizi(32) = “c”
dizi(33) = “v”
dizi(34) = “b”
dizi(35) = “n”
dizi(36) = “m”

Dim filePath As String
Dim cellValue As String

cellValue = “”
filePath = Application.DefaultFilePath & “\auth.csv”

Open filePath For Output As #2
For q = 1 To UBound(dizi)
For w = 1 To UBound(dizi)
For e = 1 To UBound(dizi)
For r = 1 To UBound(dizi)
For t = 1 To UBound(dizi)
For y = 1 To UBound(dizi)
cellValue = “000822” & dizi(q) & dizi(w) & dizi(e) & dizi(r) & dizi(t) & dizi(y)
Write #2, cellValue
cellValue = “”

Next y
Next t
Next r
Next e
Next w
Next q
Close #2
MsgBox (“Bitti…”)
End Sub

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.