VB中字母怎么自动递增,如A--B,B--C,C--D....Z--AA,AA--AB.....
发布网友
发布时间:2022-05-07 03:37
我来回答
共2个回答
热心网友
时间:2023-10-14 01:17
Private Sub Command1_Click()
Static n(3) As Integer
Dim i As Integer, j As Integer
For i = 0 To UBound(n)
If n(i) < 26 Then
n(i) = n(i) + 1
Exit For
Else
n(i) = 1
End If
Next
Text1.Text = ""
For i = UBound(n) To 0 Step -1
If n(i) = 0 Then
Text1.Text = Text1.Text & " "
Else
Text1.Text = Text1.Text & Chr(Asc("A") + n(i) - 1)
End If
Next
End Sub
以上代码需要一个Command1和Text1
以上代码产生A到ZZZZ的序列(点一下按钮产生一个)
如果需要增加位数,修改第二行n(3)中的数字即可(3表示0到3共4位数)
热心网友
时间:2023-10-14 01:18
你是不是在VBA for Excel 里,碰到这样的需求了?
是要循环获得数据表的列标?
这是一个针对最多256列的,计算方法:
excel 2010应该最多有16384列。