Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Как в макрос в Excel передать адрес ячейки?  (Прочитано 12556 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Mefody
Сумасшедший программист
Участник

ru
Offline Offline
Пол: Мужской

« : 07-12-2005 12:57 » 

Подскажите пожалуйста, как передать в макрос адрес ячейки, на которой я находился, когда запустил макрос нажатием кнопки?
И параллельно второй вопрос: Как сделать так, чтобы макрос запускался от того, что я поставил курсор на некую определенную ячейку (Например, А7)?
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #1 : 08-12-2005 06:49 » 

Вопрос № 1:
Примерно так

Код:
Public Sub Macros1()
    Dim rng As Range
   
    Set rng = ActiveWindow.ActiveCell
    MsgBox rng.Address
   
End Sub
т.е передавать не надо, а можно получить текущую активную ячейку
выбери что тебе больше подходит из следующего
Код:
ActiveCell
Application.ActiveCell
ActiveWindow.ActiveCell
Application.ActiveWindow.ActiveCell

Вопрос 2: В нужном листе пишешь макрос
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Debug.Print Target.Address
    If Target.Address = "$A$7" Then
        MsgBox "Ура! Мы в нужной ячейке"
    End If
End Sub

« Последнее редактирование: 08-12-2005 06:51 от HandKot » Записан

I Have Nine Lives You Have One Only
THINK!
Mefody
Сумасшедший программист
Участник

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 09-12-2005 10:50 » 

HandKot, спасибо все работает!
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines