Получение номера выделенной колонки

@gas1979 · Регистрация: 16.09.2010

Author24 — интернет-сервис помощи студентам

Как получить номер выделенной колонки, т.е. выделил колону 'С', а он мне выдал, колонка '3', а не 'C:C'
Заранее спасибо

@palva · 21.03.2011, 14:03

Selection.Column возвращает номер самой левой колонки выделения. Если выделение состоит из нескольких областей, то возвращается информация о первой выделенной области.

@Masalov · 21.03.2011, 14:38

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

Visual Basic

Function НомерКолонкиСимволами(N)
  If N > 0 And N < 27 Then
    НомерКолонкиСимволами = Chr(N + 64)
    Exit Function
  End If
  x = Fix(N / 26)
  t = N - x * 26
  If t = 0 Then
    t = 26
    x = x - 1
  End If
  НомерКолонкиСимволами = Chr(x + 64)
  НомерКолонкиСимволами = НомерКолонкиСимволами & Chr(t + 64)
End Function

@Laidi · 21.03.2011, 16:08

Мне кажется так проще :-)

Visual Basic

1 2	n = Selection.Column() MsgBox n

@pashulka · 21.03.2011, 16:16

В некоторых случаях, даже при вводе формул(функций) можно использовать номер столбца, например :

Использование WorksheetFunction :

Visual Basic

iCellsOne = Cells(1, 1).Address
iCellsTwo = Cells(5, 1).Address
xRange = Range(iCellsOne & ':' & iCellsTwo)
iWFS = Application.Sum(xRange)
 
'или так :
 
iWFS = Application.Sum(Range(Cells(1, 1).Address & ':' & Cells(5, 1).Address))
 
'Ввод формулы/функции :
 
iCellsOne = Cells(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
iCellsTwo = Cells(5, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
 
Cells(6, 1).Value = '=SUM(' & iCellsOne & ':' & iCellsTwo & ')'
Cells(6, 1).Formula = '=SUM(' & iCellsOne & ':' & iCellsTwo & ')'
Cells(6, 1).FormulaLocal = '=СУММ(' & iCellsOne & ':' & iCellsTwo & ')'

@pashulka · 21.03.2011, 20:42

Для получения буквенного обозначения столбца, можно использовать ActiveCell (более подробно можно прочитать в самом первом ответе)

Visual Basic

'Вариант I(a).
 
iClmn = ActiveCell.Column
iAdr = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
 
If iClmn > 26 Then
   iClmNa = Left(iAdr, 2)
Else
   iClmNa = Left(iAdr, 1)
End If
 
'Вариант I(b).
 
iClmn = ActiveCell.Column
iAdr = ActiveCell.Address
 
If iClmn > 26 Then
   iClmNa = Mid(iAdr, 2, 2)
Else
   iClmNa = Mid(iAdr, 2, 1)
End If

To Laidi
Нет не проще, так как несмотря на постановку вопроса, автору как раз и НЕ НУЖЕН номер столбца ... прочитайте более внимательно сам вопрос, а не его заголовок

@gas1979 · 22.03.2011, 10:30 **[ТС]**

всем спасибо

@mmos · 22.03.2011, 12:04

Проверенный преобразователь номера столбца в его текстовое обозначение:

Visual Basic

If NomerStolbca < 27 Then
NaimenStolbca = Chr(64 + NomerStolbca)
Else
NaimenStolbca = Chr(64 + (NomerStolbca - 1)  26) & Chr(65 + (NomerStolbca - 1) Mod 26)
End If

Носи на здоровье!

@palva · 22.03.2011, 12:48

Можно так:

Visual Basic

1 2	s = ActiveCell.Address s = Mid(s, 2, InStr(2, s, '$') - 2)

23.01.2013, 11:09

Может, кому будет полезно:
Скрытие диапазона столбцов при номирации столбцов числом:

Скрывает только один столбец (как указать «с до» не нашёл)

Visual Basic

1	YYYY.Columns (ХХХХ).EntireColumn.Hidden = True

Где YYYY – что-нибудь
ХХХХ – колонка из YYYY
Кое-кто перебирает все значения, скрывая столбцы

Разбирался всего день. Но ответ нашел.
Вот как надо.

Visual Basic

 With Worksheets("YYYY")
               .Range(.Cells(7, столбец_от), _
               .Cells(7, столбец_до)).EntireColumn.Hidden = True
End With

@ilich87 · 22.01.2014, 11:35

Топик древний, но всё же.

Visual Basic

1	Set rngRange = wsSheet.Columns(wsSheet.Cells(1, 1).Column)

В итоге а rngRange именно область с адресом "A:A", а для того что бы убрать $ не нужно ни чего придумывать

Visual Basic

1	addressmy = rngTRange.Address(0, 0)

даст вам именно строку "A:A" а не "$A:$A".

@snipe · 22.01.2014, 13:41

Сообщение от gas1979

т.е. выделил колону 'С'

Visual Basic

1	asd = Replace(Selection.Address, "$", "")

@gas1979 0 / 0 / 0 Регистрация: 16.09.2010 Сообщений: 9
		1
	Excel Получение номера выделенной колонки 21.03.2011, 13:50. Показов 30837. Ответов 11 Метки нет (Все метки) Как получить номер выделенной колонки, т.е. выделил колону 'С', а он мне выдал, колонка '3', а не 'C:C' Заранее спасибо 0

@palva 4253 / 2949 / 688 Регистрация: 08.06.2007 Сообщений: 9,855 Записей в блоге: 4
	21.03.2011, 14:03	2
	Selection.Column возвращает номер самой левой колонки выделения. Если выделение состоит из нескольких областей, то возвращается информация о первой выделенной области. 0

@gas1979 0 / 0 / 0 Регистрация: 16.09.2010 Сообщений: 9
	22.03.2011, 10:30 [ТС]	7
	всем спасибо 0