как в Екселе получить букву текущего столбца?

[compositum]

как в Екселе получить букву текущего столбца?

[Nicky]

select case activecell.column
case 1: sColumn = "A"
case 2: sColumn = "B"
...
case 256: sColumn = "IV"
end select

[$€rg]

может не надо получать букву то,
2Nicky, case256 это жэсть

[Avtopic]

Далеко его послали.
Доставай если так хочется мучиться, из адреса текущей ячейки
Чем перебирать его в таком длинном select case
В первие встречаю случаю, когда, хорошо что количество столбцов ограничено в 256 а не 65000

To compositum
Что-то мне твоя птичка знакома.

[uhm]

Извратный способ:

s=Replace$(Left$(ActiveCell.Address(ColumnAbsolute:=False), 2), "$", "")

ЗЫ А гифы я лучше обрабатываю

[compositum]

насчет CASE - мне будет проще застрелиться... а извратный способ.... щас гляну... =)

[compositum]

а специальной функции нет? как-то не верится... =) неужели такую элементарную вещь в ВБА не предусмотрели???

[alibek]

Самописная есть, пишется за 10 минут.

[compositum]

спасибо за "конкретный" ответ...

[Avtopic]

а специальной функции нет? как-то не верится... =) неужели такую элементарную вещь в ВБА не предусмотрели???

Вы напишите, для чего эта буква нужно вам и я 90% уверен,
что будет ясно, что правильно сделали, что не предусмотрели.
Я в том смысле, это не такая важная функция чтобы его
поставлять в готовом виде.

[alibek]

Попробуй поискать по vbskb num.

[Nicky]

Код: Выделить всё

Function GetColumnName(lCol As Long) As String
  Dim lColDiv As Long, lColMod As Long, sColumn As String
 
  lColDiv = lCol \ 26
  lColMod = lCol Mod 26
  If lColMod = 0 Then lColDiv = lColDiv - 1: lColMod = 26
  GetColumnName = IIf(lColDiv > 0, Chr(Asc("A") + lColDiv - 1), "") & Chr(Asc("A") + lColMod - 1)
End Function


О!

Код: Выделить всё

MsgBox Replace$(Mid$(ActiveCell.Address, 2, 2), "$", "")


Блин, это ж uhm'а код...

[Annushka]

а специальной функции нет? как-то не верится... =) неужели такую элементарную вещь в ВБА не предусмотрели???

А чем это не элементарно?

Код: Выделить всё

Mid(ActiveCell.Address, 2, InStrRev(ActiveCell.Address, "$") - 2)

И почему не подходит просто номер столбца?

Код: Выделить всё

ActiveCell.Column

[ZlydenGL]

Вопрос посложнее - как получить букву ПРОИЗВОЛЬНОГО столбца?

Самописная процедура в общем-то невелика:

Код: Выделить всё

Function GetColLetter(ColNum As Integer) As String
Dim temp as Byte
If ColNum < 27 Then
    GetColLetter = Chr(64 + ColNum)
Else
    temp = Int(ColNum / 26)
    GetColLetter = Chr(64 + temp) & Chr(64 + ColNum - temp * 26)
End If
End Function

Но может есть что штатное?

[GSerg]

Не могу представить ни одной ситуации, когда могло бы понадобиться узнавать букву столбца.
Но, к примеру, columns(55).address(false,false,xla1)
Но тебе это на самом деле не нужно, т.к. ты наверняка делаешь всё неправильно, раз понадобилась буква...

[Nicky]

Вопрос посложнее - как получить букву ПРОИЗВОЛЬНОГО столбца?...

Вылей воду из чайника

[KL]

еще вариант:

Split(ActiveCell.Address,"$")(1)

[ZlydenGL]

GSerg, Nicky, зря вы так... Нужен пример ситуации, когда нужно получить букву произвольного столбца? Запросто!

Есть здоровенная матрица MxN, где N - число колонок - стремительно приближается к 200. M ПОКА не превышает 100, но в будущем их будет ой-ой-ой сколько. Есть макрос, который проверяет эту матрицу на наличие определенных ячеек (0 или значение, отличающееся от диапазона). Пользователя надо как-то оповестить, в каком именно столбце есть такая бага.

Какие варианты? Условное форматирование? Неудобно на таком большом количестве столбцов. Трехэтажную формулу, чтобы закрашивать допустим заголовки столбцов и строк? Тоже неудобно. Да и нужна вся эта шняга только ИНФОРМАТИВНО, чтоб юзверь САМ СЕБЯ проверил, что он не наоставлял таких значений - соответственно реализовать это автопереходом на соответствующую ячейку будет неудобно.

Согласен, ситуевина далека от идеальной... Но клиент требует именно такого функционала, а он как известно всегда прав!

Так что за columns(J).address(false,false,xla1) - ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО

[Pavel55]

А я пользуюсь этим

Код: Выделить всё

'узнаем название столбца (например, М)
ColName$ = Left(ActiveCell.AddressLocal(True, False, xlA1), _
InStr(1, ActiveCell.AddressLocal(True, False, xlA1), "$") - 1)
Msgbox ColName$


[Avtopic]

И, в каких целях ты используешь полученный результат?

[Pavel55]

Avtopic, вы просто "бывалый" программыст VBA, а я только "начинающий" ( Поэтому я пока использую это в своих процедурах, но обещаю со временим уходить от этого )

[Avtopic]

Не надо обижаться. До моего ответа два раза было написано что, это дурная затея искать алфавитное обозначение столбца,
это значит, что выбран не совсем хороший (или совсем нехороший) путь, обращения столбцами.
Range и F1 предлагают очень много вариантов для этого.

[ZlydenGL]

До моего ответа два раза было написано что, это дурная затея искать алфавитное обозначение столбца,
это значит, что выбран не совсем хороший (или совсем нехороший) путь, обращения столбцами.
Range и F1 предлагают очень много вариантов для этого.

Сколько пафоса... А реальных идей нет. На ситуацию, описанную в моем посте, что ответишь?

[Krasnaja Shapka]

На ситуацию, описанную в моем посте, что ответишь?

ситуация немного за уши притянута...

во-первых, если бага есть в определенных ячейках, то и юзеру надо сообщить список ячеек (а не столбцов) с багами..
во-вторых, если уж очень нужно показать столбик (например там сумма значений ячеек неправильная), то его можно селектом выделить и показать юзеру - просто прокрутить на экране таблицу и остановиться около нужного столбца... помоему очень будет эффектно

[ZlydenGL]

Krasnaja Shapka, даже комментировать не буду. Есть задача, которую поставил КЛИЕНТ. ЕМУ это надо. Здесь описана только часть глобальной задачи (которую я естессно не буду описывать - слишком много времени потребуется), но как функциональная часть нужна именна та штука, что я описывал выше.