VPF::Как получить адрес выделенного столбца

Гость_Darksquall

Дата 3.3.2004, 09:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Помогите плиз.Нужно получить адрес(номер) в виде буквы выделенного столбца.Очччччччень надо.Не могу найти функцию,самому чтоли писать вырезая из Address

Guest

Дата 12.4.2004, 15:26 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  d = Target.Column
End Sub

Возвращает номер столбца в типе лонг
А уж буковку подсчитать и сам сможешь

Darksquall

Дата 12.4.2004, 15:59 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 22.1.2004
Где: Москва

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

Странно что нет функции автоматом переводить номер в букву столбца

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

www.bankcards.su

Guest

Дата 13.4.2004, 10:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну думать же надо.......

Taget - есть ексель.ренджь
почитай его свойства, например свойство Target.Address возвращает адрес ячейки целиком в виде строки формата $A$№ , где А - столбец, № - строка.
Потом ты эту строку парсишь

Код


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim d As String
Dim s As String

d = Target.Address
s = Mid(d, 2, 2)

If Right(s, 1) = "$" Then
   s = Left(s, 1)
End If

End Sub

В s записывается буква столбца.......
Что то в этом роде, не очень изящно, за то работает!

Darksquall

Дата 13.4.2004, 10:11 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 22.1.2004
Где: Москва

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

Да понятно это.Я говорю что,раз язык высокоуровневый,и расчитан не на программеров а скорее на какого нить офисного менеджера,то он не будет думать.Странно что разработчики не позаботились

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

www.bankcards.su

Guest

Дата 13.4.2004, 10:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Darksquall
Вай.....да ты что......
Наличие подобной функции совершенно не обязательно

Staruha

Дата 5.3.2005, 23:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        Dim c As Integer
        Dim e As Integer
        Dim A As String
        Dim s As String
        Dim k As Integer
        Dim i As Integer
        Dim m As String
        c = Target.Column
    For r = 1 To c
    Range("A1").Value = Target.Address ' 
    MsgBox c & " " & "столбец" 
 Exit For
 Next r
 A = (Range("A1").Value)

   e = Len(A)
   m = Left(A, 1)
   
    For j = 1 To e
     
     
     If Mid(A, j, 1) = m Then
     i = i + 1
     Else
     k = k + 1
       End If
       If i = 2 Then
    s = Mid(A, 2, k)
    MsgBox "Столбец " & s 'буква столбца
    Exit Sub
    End If
   
   Next j
    
End Sub

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

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

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