Страницы: 1
RSS
VBA Поиск в строке ссылки на ячейку и замена значения из этой ссылки
 
Коллеги, добрый день.
Подскажите, как сделать такую вещь:
Есть ячейки с значениями:
H15
G15 / F10
(G15 + 10) / I5

Мне нужно понять в каждой ячейке где ссылка и забрать по этой ссылке значение и вставить в формулу

Предположим G15 хранит значение 10, а I5 хранит 2

По последнему варианту мне надо выдать 10
(10 + 10) / 2
 
Код
Sub Main()
    Dim r As Range
    On Error Resume Next
        Set r = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
    On Error GoTo 0
    If Not r Is Nothing Then
        Dim c As Range
        For Each c In r
            cell_job c
        Next
    End If
End Sub
'
Sub cell_job(c As Range)
    Dim i As Byte
    Dim j As Byte
    Dim p As Range
    Dim s As String
    Dim t As String
    s = c.FormulaLocal
    For Each p In c.Precedents
        t = p.Text
        For i = 0 To 1
        For j = 0 To 1
            s = Replace(s, p.Address(i, j), t)
            Debug.Print s
        Next
        Next
    Next
    c.FormulaLocal = s
End Sub
 
Не знаю как этот макрос адаптировать.

У меня есть файл, который содержит ячейки типа тех, что я указывал в 1 посте. Это просто значение. напротив них ссылка на файл, я отрываю этот файл и забираю данные из этих ячеек


Т.е. если в ячейке указанно H15, я открываю файл и из него забираю из этой ячейки данные. Это легко
Но если в ячейке указано это G15 / F10 или это (G15 + 10) / I5, то мне нужно открыть файл найти значения в ячейках G15, F10 и I5 и сделать вычесления по формуле. или хотя бы подставить.
Я не могу понять как и строчного значения найти все ссылки на ячейки  
Изменено: Александр - 19.02.2020 10:39:08
 
Готовый вариант, там все расписано с примером: Отобразить в формулах вместо ссылок на ячейки значения ячеек
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх