Определить буквенное обозначение столбца — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Вариант I, II, III (исходя из адреса ячейки)
 
iClmIndex = ActiveCell.Column
iAddress = ActiveCell.Address
  
iColumn = Mid(iAddress, 2, IIf(iClmIndex > 26, 2, 1))
 
iClmIndex = ActiveCell.Column
iAddress = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
  
iColumn = Left(iAddress, IIf(iClmIndex > 26, 2, 1))
 
iAddress = ActiveCell.EntireColumn.Address(ColumnAbsolute:=False)
iPosition = InStr(iAddress, ":") - 1
  
iColumn = Left(iAddress, iPosition)
 
Вариант IV. (исходя из номера столбца)
 
iClmIndex = ActiveCell.Column
  
Select Case iClmIndex
Case 1 To 26
     iColumn = Chr(64 + iClmIndex)
Case 27 To 256
     iColumn = Chr(64 + (iClmIndex \ 26)) & _
     Chr(64 + iClmIndex - (iClmIndex \ 26) * 26)
End Select
 
iClmIndex = ActiveCell.Column
  
If iClmIndex < 27 Then
   iColumn = Chr(64 + iClmIndex)
Else
   iColumn = Chr(64 + (iClmIndex \ 26)) & _
   Chr(64 + iClmIndex - (iClmIndex \ 26) * 26)
End If
Примечание: активная ячейка использована исключительно в качестве примера

Похожие записи/страницы:

Leave a Comment