На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение
Популярные разделы FAQ:    user posted image Общие вопросы    user posted image Особенности VBA-кода    user posted image Оптимизация VBA-кода    user posted image Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Модераторы: Old Bat, MIF
  
> косвенная адресация ячеек Excel , в ячейке сидит адрес
    Всем привет!

    Народ, подскажите, pls, какой функцией в Excel можно вытащить содержимое ячейки, ссылка на которую сидит в текстовом виде в другой ячейке?

    Т.е. в ячейке $A$1 программа формирует запись вида $C$3 мне нужна формула, у которой аргумент - ячека A1, а результат вычислений - содержимое ячейки $C$3.

    Весь help перерыл, ничего не нашел :wall: неужели такое простое дело в Excel не реализовано? :unsure:
      Не знаю, верно ли я понял Вашу задачу, но вот мой пример:
      ExpandedWrap disabled
        Sub Test()
        Dim xAddr As String, fmText As String
        xAddr = Columns(3).SpecialCells(xlCellTypeFormulas).Address
        fmText = Range(xAddr).FormulaLocal
        If fmText Like "=*A*1" Then
            MsgBox Range(xAddr).DirectPrecedents.Value
        End If
        End Sub
      В ячейке А1 - исходное значение, например, число. В ячейке С3 - формула =А1.
        =ДВССЫЛ($A$1)
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0301 ]   [ 16 queries used ]   [ Generated: 4.08.25, 07:49 GMT ]