Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для для дробления формулы по ссылкам
 
#1
19.02.2018 10:09:44
Добрый день форумчане! Помогите плиз написать макрос. Я в этом деле дилетант если честно. Какой макрос написать чтобы от ячейки где формула собирает с разных листов данные справа в ячейке выводились ссылки на каждый лист по отдельности? Буду благодарен!
 
 
 
#2
19.02.2018 10:15:29
макрофункция =ПОЛУЧИТЬ.ЯЧЕЙКУ(6;B4), а потом текстовыми функциями обработать
Лень двигатель прогресса, доказано!!!
 
 
 
#3
19.02.2018 10:26:47
Для такой исходной формулы как у Вас подойдет следующий код. Правда непонятно, зачем там плюсы сразу после равно
Код
Sub SplitFormula()
Dim cl As Range
Dim lRow&, I&, J&, N&
Dim iFormula
lRow = Cells(Rows.Count, 2).End(xlUp).Row
For Each cl In Range("B4:B" & lRow)
    If cl.HasFormula Then
        iFormula = Split(cl.Formula, "+")
        For J = 0 To UBound(iFormula)
            If iFormula(J) Like "*!*" Then
                cl.Offset(, 2 + N).Formula = "=" & Replace(iFormula(J), "=", "")
                N = N + 1
            End If
        Next
    End If
Next
End Sub
Изменено: Sanja - 19.02.2018 10:42:29
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
19.02.2018 15:03:02
Огромное Спасибо Sanja! Только как указать ячейку куда буду выгружаться данные? В макросе сразу прописать можно?
 
 
 
#5
19.02.2018 15:13:09
11-ю строку кода замените на такую
Код
Range("D4").Offset(, N).Formula = "=" & Replace(iFormula(J), "=", "")
Ссылки будут вставляться начиная с ячейки 'D4' вправо
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
20.02.2018 09:29:41
Цитата
Sanja написал:
Ссылки будут вставляться начиная с ячейки 'D4' вправо
Все супер братан, только как можно сделать так чтобы начинаю с д4 только формулу каждой строки выгружать именно на ту строку( например ниже если д5 то на д5)????
 
 
 
#7
20.02.2018 09:34:16
Цитата
Алмас написал: как указать ячейку куда буду выгружаться данные?....формулу каждой строки выгружать именно на ту строку
Слышь, братан, ты уж определись чё те надо
Изменено: Sanja - 20.02.2018 09:44:58
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
20.02.2018 10:37:14
да, все правильно просто он у меня те формулы что строчкой ниже ни в соседней ячейке справа а на той же где начал выгружать выгружает, то есть на д4 все....
 
 
 
#9
20.02.2018 10:59:50
Оставьте первоначальный вариант кода (сообщение #3) , почитайте справку по .Offset() и настройте смещение по Вашей задаче
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
20.02.2018 14:28:14
Я все сделал, в офсет 26 столбец поставил.... теперь не могу понять как сделать реплэйс чтобы он обратно в нижней строке в тот же 26 столбец пошел выгружать а не крайний ниже последнего(((
 
 
 
#11
20.02.2018 15:16:18
Цитата
Алмас написал: Я все сделал
Код
Sub SplitFormula()
Dim cl As Range
Dim lRow&, I&, J&, N&
Dim iFormula
lRow = Cells(Rows.Count, 2).End(xlUp).Row
For Each cl In Range("B4:B" & lRow)
    If cl.HasFormula Then
        iFormula = Split(cl.Formula, "+")
        For J = 0 To UBound(iFormula)
            If iFormula(J) Like "*!*" Then
                cl.Offset(, 26 + N).Formula = "=" & Replace(iFormula(J), "=", "")
                N = N + 1
            End If
        Next
        N = 0
    End If
Next
End Sub
Изменено: Sanja - 20.02.2018 15:23:48
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
21.02.2018 06:45:50
Sanja ты гений! Спасибо!
 
 
 
Страницы: 1
Наверх