ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Из номера столбца - получить букву столбца
36 сообщений из 36, показаны все 2 страниц
  все  
Из номера столбца - получить букву столбца
    #34358343
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Подскажите пожалуйста как лучше имея номер столбца получить букву столбца. Например "2" преобразовать в "B". Имеется ввиду в макросе.
...
Рейтинг: 0 / 0
27.02.2007, 16:56
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358474
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Сам додумался до следующего, может улучшите или может я совсем из далека зашёл?
Мне бы жедательно покороче.

Код: plaintext
1.
2.
3.
4.
5.
Sub primer0()

x =  10 
Debug.Print Mid(Cells( 1 , x).Address,  2 , WorksheetFunction.Find("$", Cells( 1 , x).Address,  2 ) -  2 )

End Sub


Код: plaintext
1.
2.
3.
4.
5.
Sub primer1()

x =  28 
Debug.Print Mid(Cells( 1 , x).Address,  2 , Len(Cells( 1 , x).Address) -  3 )

End Sub

Второе проще!
...
Рейтинг: 0 / 0
27.02.2007, 17:27
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358490
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
второй вариант дает неверный результат
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub primer0()

x =  254 
y =  112 
Debug.Print Mid(Cells(y, x).Address,  2 , WorksheetFunction.Find("$", Cells(y, x).Address,  2 ) -  2 )

End Sub

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub primer1()

x =  254 
y =  112 
Debug.Print Mid(Cells(y, x).Address,  2 , Len(Cells(y, x).Address) -  3 )

End Sub
...
Рейтинг: 0 / 0
27.02.2007, 17:33
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358512
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Я же не использую строчки, строка у меня всегда первая. Если строчку менять, то так

Sub primer1()

x = 254
y = 112
Debug.Print Mid(Cells(y, x).Address, 2, Len(Cells(y, x).Address) - 2 - Len(y))

End Sub

А нет ли чего нибуть попроще, а то как то очень длинно получается?
...
Рейтинг: 0 / 0
27.02.2007, 17:39
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358610
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
пару лет назад такое тоже понадобилось.
написал так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Function getColNameByNum(colNum As Long, Optional bAbsolute As Boolean = True) As String
'возвращает имя столбца в стиле A1 по его номеру
'проверка на 255 отсутствует.
'если bAbsolute=True то имя столбца предваряется знаком абсолютной ссылки $
  Const numCh As Long =  26 &
  Const charOffset As Long =  64 &

  Dim fL As Long, sL As Long
  If bAbsolute Then getColNameByNum = "$"
  
  fL = colNum \ numCh 
  sL = colNum Mod numCh 
  
  If (sL =  0 &) Then
    sL = numCh
    fL = fL -  1 &
  End If
  
  If (fL >  0 &) Then
    getColNameByNum = getColNameByNum & VBA.Chr$(fL + charOffset)
  End If
  
  getColNameByNum = getColNameByNum & VBA.Chr$(sL + charOffset)
  
End Function
...
Рейтинг: 0 / 0
27.02.2007, 18:03
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358626
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Арифметику в школе уже совсем ну учат....
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    x = номер колонки
    If x >  26  Then
        c = Chr( 64  + x /  26 ) & Chr( 64  + x Mod  26 )
    Else
        c = Chr( 64  + x)
    End If
    Debug.Print c
или в одну строку:
Код: plaintext
1.
2.
    c = IIf(x >  26 , Chr( 64  + x /  26 ) & Chr( 64  + x Mod  26 ), Chr( 64  + x))
    Debug.Print c
...
Рейтинг: 0 / 0
27.02.2007, 18:08
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358707
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
White OwlАрифметику в школе уже совсем ну учат....

Код: plaintext
1.
2.
    c = IIf(x >  26 , Chr( 64  + x /  26 ) & Chr( 64  + x Mod  26 ), Chr( 64  + x))
    Debug.Print c


Для этого как минимум нужно знать:
1) Что такое Mod
2) Что такое Chr

Ну и наверное ещё:
3) Сколько букв в английском алфавите
4) Какая закономерность наименований столбцов в Exel

Тогда уже и об арифметике можно говорить
А так мне ещё учиться и учиться
...
Рейтинг: 0 / 0
27.02.2007, 18:38
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358716
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
White Owl
Код: plaintext
1.
2.
    c = IIf(x >  26 , Chr( 64  + x /  26 ) & Chr( 64  + x Mod  26 ), Chr( 64  + x))
    Debug.Print c
после 191 колонки не работает
...
Рейтинг: 0 / 0
27.02.2007, 18:40
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358814
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
vbapro White Owl
Код: plaintext
1.
2.
    c = IIf(x >  26 , Chr( 64  + x /  26 ) & Chr( 64  + x Mod  26 ), Chr( 64  + x))
    Debug.Print c
после 191 колонки не работаетА, ну да... iif же оба выражения вычисляет....
Вот так должно быть:
Код: plaintext
c = IIf(x >  26 , Chr( 64  + Int((x -  1 ) /  26 )) & Chr( 65  + ((x -  1 ) Mod  26 )), ChrW( 64  + x))
...
Рейтинг: 0 / 0
27.02.2007, 19:15
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358929
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Попробовал с арифметикой

Код: plaintext
   c = IIf(x >  26 , Chr( 64  + Int(x /  26 )), "") & Chr( 65  + (x -  1 ) Mod  26 )

Но и так вроде ничё

Код: plaintext
Mid(Cells(y, x).Address,  2 , Len(Cells(y, x).Address) -  2  - Len(y))
...
Рейтинг: 0 / 0
27.02.2007, 20:32
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358937
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Спасибо всем большое
...
Рейтинг: 0 / 0
27.02.2007, 20:42
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358959
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
DeggasadНо и так вроде ничё
Код: plaintext
Mid(Cells(y, x).Address,  2 , Len(Cells(y, x).Address) -  2  - Len(y))
До тех пор, пока ты делаешь одно преобразование номер-буква в минуту это ниче. Запихнешь это в цикл - повесишься
...
Рейтинг: 0 / 0
27.02.2007, 21:05
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358979
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
я бы так решил эту проблему
Код: plaintext
1.
2.
Function getColNameByNum(colNum As Long) As String
 getColNameByNum = Replace(Mid(Columns(colNum).Address(ColumnAbsolute:=False),  1 ,  2 ), ":", "")
End Function
...
Рейтинг: 0 / 0
27.02.2007, 21:20
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34358983
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
или чуть короче
Код: plaintext
1.
2.
Function getColNameByNum(colNum As Long) As String
 getColNameByNum = Replace(Mid(Columns(colNum).Address,  2 ,  2 ), ":", "")
End Function
...
Рейтинг: 0 / 0
27.02.2007, 21:25
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34359139
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
sergeyvgили чуть короче
Код: plaintext
1.
2.
Function getColNameByNum(colNum As Long) As String
 getColNameByNum = Replace(Mid(Columns(colNum).Address,  2 ,  2 ), ":", "")
End Function


и еще короче:

Код: plaintext
1.
2.
Function ColLetter(i As Integer) As String
    ColLetter = Replace(Cells( 1 , i).Address( 0 ,  0 ),  1 , "")
End Function

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
28.02.2007, 00:30
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34359337
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Мне больше понравилось с IIF ()

Sub primer_f_sad()
x = номер столбца

Debug.Print Mid(Cells(1, x).Address, 2, IIf(x > 26, 2, 1))

Debug.Print Mid(Columns(x).Address, 2, IIf(x > 26, 2, 1))

Debug.Print Left(Columns(x).Address(0, 0), IIf(x > 26, 2, 1))

Debug.Print Right(Columns(x).Address, IIf(x > 26, 2, 1))

End Sub
...
Рейтинг: 0 / 0
28.02.2007, 08:44
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34359338
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Мне больше понравилось с IIF ()

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub primer_f_sad()
x = номер столбца

Debug.Print Mid(Cells( 1 , x).Address,  2 , IIf(x >  26 ,  2 ,  1 ))

Debug.Print Mid(Columns(x).Address,  2 , IIf(x >  26 ,  2 ,  1 ))

Debug.Print Left(Columns(x).Address( 0 ,  0 ), IIf(x >  26 ,  2 ,  1 ))

Debug.Print Right(Columns(x).Address, IIf(x >  26 ,  2 ,  1 ))

End Sub
...
Рейтинг: 0 / 0
28.02.2007, 08:45
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34359433
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadМне больше понравилось с IIF ()

это решение не будет работать в Office 2007

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
28.02.2007, 09:28
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34359746
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL) DeggasadМне больше понравилось с IIF ()

это решение не будет работать в Office 2007

KL
[MVP - Microsoft Excel]
Почему?
...
Рейтинг: 0 / 0
28.02.2007, 10:47
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34361197
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadПочему?

A - XFD

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
28.02.2007, 16:22
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34361249
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
KL (XL) DeggasadПочему?

A - XFD

KL
[MVP - Microsoft Excel]
¿qué significa?
...
Рейтинг: 0 / 0
28.02.2007, 16:34
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34361321
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL) DeggasadПочему?

A - XFD

KL
[MVP - Microsoft Excel]
Что простите?
...
Рейтинг: 0 / 0
28.02.2007, 16:51
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34361560
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
:-) название столбца может содержать до 3-х букв.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
28.02.2007, 18:02
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34361612
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL):-) название столбца может содержать до 3-х букв.

KL
[MVP - Microsoft Excel]

Я просто Exel2007 ещё не видел, а может и не увижу! Как переведут всех на OpenOffice!
Ну дома то понятно, но всё равно не удобно!
...
Рейтинг: 0 / 0
28.02.2007, 18:22
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34369076
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadКак переведут всех на OpenOffice! Мое личное мнение:
Как только возникнет тенденция к переходу всех на OpenOffice, он перестанет быть бесплатным и потеряет свое единственное преимущество :-) На сегодня, в профессиональном плане, между Excel и Calc такая же разница как между Calc и VisiCalc (первым прототипом Excel). Другие преимущества перед Excel, рекламируемые автором OpenOffice, частично неправда и в целом смехотворны. Обе программы установлены на моих компьютерах.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
03.03.2007, 18:39
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34454182
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Новыми глазами на старую проблему!

Буква столбца по номеру столбца
Код: plaintext
Split(Columns(x).Address, ":$")( 1 )

Буква столбца любой ячейки
Код: plaintext
Split(Cells(y, x).Address, "$")( 1 )
...
Рейтинг: 0 / 0
11.04.2007, 19:23
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34461966
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadНовыми глазами на старую проблему!

Буква столбца по номеру столбца
Код: plaintext
Split(Columns(x).Address, ":$")( 1 )

Буква столбца любой ячейки
Код: plaintext
Split(Cells(y, x).Address, "$")( 1 )


У функции Split есть одна небольшая (а для России возможно большая) проблема - она не работает в версии Excel97 и ранее. Для совместимости можно добавлять:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
#If Not VBA6 Then
    Public Function Split(ByVal sIn As String, Optional sDelim As _
          String, Optional nLimit As Long = - 1 , Optional bCompare As _
           VbCompareMethod = vbBinaryCompare) As Variant
        Dim sRead As String, sOut() As String, nC As Integer
        If sDelim = "" Then
            Split = sIn
        End If
        sRead = ReadUntil(sIn, sDelim, bCompare)
        Do
            ReDim Preserve sOut(nC)
            sOut(nC) = sRead
            nC = nC +  1 
            If nLimit <> - 1  And nC >= nLimit Then Exit Do
            sRead = ReadUntil(sIn, sDelim)
        Loop While sRead <> ""
        ReDim Preserve sOut(nC)
        sOut(nC) = sIn
        Split = sOut
    End Function
#End If

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
15.04.2007, 20:46
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34462291
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL) DeggasadНовыми глазами на старую проблему!

Буква столбца по номеру столбца
Код: plaintext
Split(Columns(x).Address, ":$")( 1 )

Буква столбца любой ячейки
Код: plaintext
Split(Cells(y, x).Address, "$")( 1 )


У функции Split есть одна небольшая (а для России возможно большая) проблема - она не работает в версии Excel97 и ранее. Для совместимости можно добавлять:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
#If Not VBA6 Then
    Public Function Split(ByVal sIn As String, Optional sDelim As _
          String, Optional nLimit As Long = - 1 , Optional bCompare As _
           VbCompareMethod = vbBinaryCompare) As Variant
        Dim sRead As String, sOut() As String, nC As Integer
        If sDelim = "" Then
            Split = sIn
        End If
        sRead = ReadUntil(sIn, sDelim, bCompare)
        Do
            ReDim Preserve sOut(nC)
            sOut(nC) = sRead
            nC = nC +  1 
            If nLimit <> - 1  And nC >= nLimit Then Exit Do
            sRead = ReadUntil(sIn, sDelim)
        Loop While sRead <> ""
        ReDim Preserve sOut(nC)
        sOut(nC) = sIn
        Split = sOut
    End Function
#End If

KL
[MVP - Microsoft Excel]


Сразу не разобрался, сохранил, потом посмотрю
...
Рейтинг: 0 / 0
16.04.2007, 08:21
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34463126
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Deggasad[quot KL (XL)][quot Deggasad]Сразу не разобрался, сохранил, потом посмотрю

Разбираться особо тут невчем. Этот код надо поместить в любой стандартный модуль (типа Модуль1) как отдельную функцию (а не внутри другой процедуры) и voila!

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
16.04.2007, 12:29
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34463330
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL) Deggasad[quot KL (XL)][quot Deggasad]Сразу не разобрался, сохранил, потом посмотрю

Разбираться особо тут невчем. Этот код надо поместить в любой стандартный модуль (типа Модуль1) как отдельную функцию (а не внутри другой процедуры) и voila!

KL
[MVP - Microsoft Excel]

То-то понятно! Не зазобрался что такое ReadUntil() и что означают решётки #If...#End If ?
...
Рейтинг: 0 / 0
16.04.2007, 13:24
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34464878
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadНе зазобрался что такое ReadUntil() и что означают решётки #If...#End If ?

Пардон, потерял кусок кода:

Код: plaintext
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.
      Public Function Split(ByVal sIn As String, Optional sDelim As _
            String, Optional nLimit As Long = - 1 , Optional bCompare As _
             VbCompareMethod = vbBinaryCompare) As Variant
          Dim sRead As String, sOut() As String, nC As Integer
          If sDelim = "" Then
              Split = sIn
          End If
          sRead = ReadUntil(sIn, sDelim, bCompare)
          Do
              ReDim Preserve sOut(nC)
              sOut(nC) = sRead
              nC = nC +  1 
              If nLimit <> - 1  And nC >= nLimit Then Exit Do
              sRead = ReadUntil(sIn, sDelim)
          Loop While sRead <> ""
          ReDim Preserve sOut(nC)
          sOut(nC) = sIn
          Split = sOut
      End Function

      Public Function ReadUntil(ByRef sIn As String, _
            sDelim As String, Optional bCompare As VbCompareMethod _
          = vbBinaryCompare) As String
          Dim nPos As String
          nPos = InStr( 1 , sIn, sDelim, bCompare)
          If nPos >  0  Then
              ReadUntil = Left(sIn, nPos -  1 )
              sIn = Mid(sIn, nPos + Len(sDelim))
          End If
      End Function

Источник здесь: http://support.microsoft.com/default.aspx?scid=kb;en-us;188007

Решетки нужны для того, чтобы условие проверялось на уровне проекта.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
16.04.2007, 22:58
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34464991
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
KL (XL)Решетки нужны для того, чтобы условие проверялось на уровне проекта.ээээ...
вообще-то, это называется "Условной компиляцией"
...
Рейтинг: 0 / 0
17.04.2007, 01:46
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34465100
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL)
Public Function ReadUntil(ByRef sIn As String, _
sDelim As String, Optional bCompare As VbCompareMethod _
= vbBinaryCompare) As String
Dim nPos As String
nPos = InStr(1, sIn, sDelim, bCompare)
If nPos > 0 Then
ReadUntil = Left(sIn, nPos - 1)
sIn = Mid(sIn, nPos + Len(sDelim))
End If
End Function[/src]KL
[MVP - Microsoft Excel]

Это тоже внутри #IF...#End IF вставить?
...
Рейтинг: 0 / 0
17.04.2007, 08:06
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34466035
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
White Owl KL (XL)Решетки нужны для того, чтобы условие проверялось на уровне проекта.ээээ...
вообще-то, это называется "Условной компиляцией"

а кто спорит? вопрос был "для чего", а не "как обзывается" :-)

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
17.04.2007, 12:25
| Ответить | Цитировать | Написать  
Из номера столбца - получить букву столбца
    #34467451
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
KL (XL) White Owl KL (XL)Решетки нужны для того, чтобы условие проверялось на уровне проекта.ээээ...
вообще-то, это называется "Условной компиляцией"
а кто спорит? вопрос был "для чего", а не "как обзывается" :-)Ну с таким ответом на "для чего" я тоже не согласен. При чем здесь уровень проекта то?
...
Рейтинг: 0 / 0
17.04.2007, 18:16
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Из номера столбца - получить букву столбца
    #38397123
msleg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
msleg
Гость
Код: vbnet
1.
2.
3.
4.
Sub io()
MsgBox Columns(1).Address '// По цифре букву
MsgBox Columns("A").Column '// По букве цифру
End Sub
...
Рейтинг: 0 / 0
15.09.2013, 20:26
| Ответить | Цитировать | Написать  
36 сообщений из 36, показаны все 2 страниц
  все  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Из номера столбца - получить букву столбца
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=61&tid=2174548]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 305ms
total:  436ms
созд. / загр.: 436ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]