VPF::VBA Excel Номер ваделенной колонки

gas1979

Дата 11.1.2005, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 5.10.2004

Репутация: нет
Всего: нет

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

Alexandr87

Дата 11.1.2005, 18:03 (ссылка)

(нет голосов)

Загрузка ...

дыкий псых

Профиль
Группа: Завсегдатай
Сообщений: 1459
Регистрация: 27.11.2004
Где: Алматы, Казахстан

Репутация: 2
Всего: 39

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

Staruha

Дата 11.1.2005, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Код


 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        Dim c As Integer
        c = Target.Column
                   For r = 1 To c
                           MsgBox c
          Exit Sub
    Next r
End Sub

Если не пдойдет, дай знать что нибудь придумаем еще smile

--------------------

Возмездие настигнет

Staruha

Дата 11.1.2005, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Код


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        Dim c As Integer
        c = UsedRange.Columns.Count
   
    MsgBox c

    Next r
End Sub

Я думаю лучше уже не придумаешь. smile

Только если хлопать будешь по чистому листу. smile

Это сообщение отредактировал(а) Старуха - 11.1.2005, 22:54

--------------------

Возмездие настигнет

gas1979

Дата 12.1.2005, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 5.10.2004

Репутация: нет
Всего: нет

всем спасибо

Staruha

Дата 25.3.2005, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Оказывается есть лучше.Ну это я думаю последний

Код


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     MsgBox Selection.Columns.Column & "Столбец"
     MsgBox Selection.Rows.Row & "Строка"
End Sub

--------------------

Возмездие настигнет

gas1979

Дата 28.3.2005, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 5.10.2004

Репутация: нет
Всего: нет

Тоже вариант, спасибо

bopoha

Дата 14.4.2009, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 21

У объекта Range есть методы Address и AddressLocal, чтобы получить буквенное представление адреса области.

Это сообщение отредактировал(а) bopoha - 14.4.2009, 09:37

--------------------

Как создавать приложения на MS Access

gas1979

Дата 14.4.2009, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 5.10.2004

Репутация: нет
Всего: нет

Цитата(bopoha @ 14.4.2009, 09:35)

У объекта Range есть методы Address и AddressLocal, чтобы получить буквенное представление адреса области.

Дата 28.3.2005, 09:42
но все равно спасибо smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »