Вы можете сделать это с помощью собственного кода.
Go в свойствах отчета, щелкните вкладку «Код» и вставьте следующий код в окно пользовательского кода.
Public Function GetRowLetter(RowNum As Integer) As String
' stick the RowNum in a variable that we can reduce until it's zero
Dim r As Integer
Dim i As Integer
Dim s As String ' holds result
s = ""
r = RowNum
' we start at the right side so if the rownum is 28 we want to be back AB
' need to get 'B' first
Do While RowNum > 0
r = Int((RowNum - 1) / 26)
i = (RowNum - 1) Mod 26
s = Chr(i + 65) & s
RowNum = r
Loop
GetRowLetter = s
End Function
Это даст «A» для 1, «B» для 2 et. c, затем будет «AA» для 27, «AB» или 28 et. c ...
Если вы хотите вместо этого вернуть строчные буквы, замените 65
на 98
. В отчете установите для выражения значения текстового поля значение
=Code.GetRowLetter(RowNumber("myDataSetName"))
замените myDataSetName
на имя вашего набора данных или области, к которой вы хотите его применить. Помните, что имена наборов данных и области чувствительны к регистру и должны быть заключены в кавычки (")