ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Из номера столбца - получить букву столбца
11 сообщений из 36, страница 2 из 2
  2  все
Из номера столбца - получить букву столбца
    #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
| Ответить | Цитировать | Написать  
11 сообщений из 36, страница 2 из 2
  2  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Из номера столбца - получить букву столбца
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34464991&tid=2174548]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 324ms
total:  448ms
созд. / загр.: 448ms
x
x
Закрыть


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