Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Адрес ячейки в формулу - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Адрес ячейки в формулу (Формулы/Formulas)
Адрес ячейки в формулу
Oleg_Nik Дата: Воскресенье, 24.03.2019, 06:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день!
Скажите, как можно (и можно ли вообще) использовать в формуле адрес ячейки, или номер столбца, или номер строки которые определены макросом.
В файле-примере в зелёных ячейках номер активного столбика, его букву и адрес активной ячейки определяет макрос, нужно использовать эти данные (или одно из них) в формуле. При переходе по жёлтым ячейкам данные в зелёных будут меняться. Спасибо!
К сообщению приложен файл: 5002309.xlsm(18.5 Kb)
 
Ответить
СообщениеДобрый день!
Скажите, как можно (и можно ли вообще) использовать в формуле адрес ячейки, или номер столбца, или номер строки которые определены макросом.
В файле-примере в зелёных ячейках номер активного столбика, его букву и адрес активной ячейки определяет макрос, нужно использовать эти данные (или одно из них) в формуле. При переходе по жёлтым ячейкам данные в зелёных будут меняться. Спасибо!

Автор - Oleg_Nik
Дата добавления - 24.03.2019 в 06:25
Pelena Дата: Воскресенье, 24.03.2019, 07:54 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14087
Репутация: 3080 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Код
=ДЛСТР(ДВССЫЛ(ActCellsLetter&11))

Только зачем формула? Вычисляйте значение тоже в макросе. Не?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Код
=ДЛСТР(ДВССЫЛ(ActCellsLetter&11))

Только зачем формула? Вычисляйте значение тоже в макросе. Не?

Автор - Pelena
Дата добавления - 24.03.2019 в 07:54
Oleg_Nik Дата: Воскресенье, 24.03.2019, 14:40 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Только зачем формула? Вычисляйте значение тоже в макросе. Не?
Спасибо! Этот файл только для примера - задача сложнее, и макрос очень долго работает. (по крайней мере у меня и придуманный мной). Формула быстрее.
Спасибо!
 
Ответить
Сообщение
Только зачем формула? Вычисляйте значение тоже в макросе. Не?
Спасибо! Этот файл только для примера - задача сложнее, и макрос очень долго работает. (по крайней мере у меня и придуманный мной). Формула быстрее.
Спасибо!

Автор - Oleg_Nik
Дата добавления - 24.03.2019 в 14:40
_Boroda_ Дата: Воскресенье, 24.03.2019, 15:13 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15195
Репутация: 5972 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вы бы показали макрос, а мы бы его поправили
Например то, что у Вас было, можно переписать так
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub '
    If Not Intersect(Target, Cells(10, 1).Resize(1, 10)) Is Nothing Then
        If Target = Empty Then '
            Cells(10, 1).Resize(1, 20).ClearContents
            Target = "Привет!"
'            Range("ActSt") = Target.Column '
'            Range("ActCellsLetter") = Left(Target.Address(0, 0), 1)
'            Range("ActCellsAddress") = Target.Address
            Cells(11, 11) = Len(Cells(11, Target.Column))
         Else
            Target.ClearContents
        End If
    End If
End Sub
[/vba]
К сообщению приложен файл: 5002309_1.xlsm(20.2 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВы бы показали макрос, а мы бы его поправили
Например то, что у Вас было, можно переписать так
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub '
    If Not Intersect(Target, Cells(10, 1).Resize(1, 10)) Is Nothing Then
        If Target = Empty Then '
            Cells(10, 1).Resize(1, 20).ClearContents
            Target = "Привет!"
'            Range("ActSt") = Target.Column '
'            Range("ActCellsLetter") = Left(Target.Address(0, 0), 1)
'            Range("ActCellsAddress") = Target.Address
            Cells(11, 11) = Len(Cells(11, Target.Column))
         Else
            Target.ClearContents
        End If
    End If
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 24.03.2019 в 15:13
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Адрес ячейки в формулу (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!