Преобразование слов и цифр из ячеек в формулу

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Преобразование слов и цифр из ячеек в формулу (Формулы/Formulas)

Дата: Вторник, 16.04.2024, 15:43 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте, помогите пожалуйста с решением задачи. В общем имеется таблица с объемами работ. Справа от таблицы написаны параметры для расчета объема с пояснениями. В ячейке "F4" идет подсчет объема из данных справа от таблицы. В ячейке "К4" забита руками поясняющая формула расчета объема. Теперь сам вопрос, есть ли решение, чтобы формула в ячейке "К4" поясняющая формула появлялась автоматически (с помощью команд или других волшебных действий)? Как я вижу ход действия. В ячейке "К4" забивается какая-то формула, которая ссылается на ячейку "F4", а оттуда в свою очередь подтягиваются данные из ячеек справа от таблицы. Может не прав, поправьте. Помогите пожалуйста. Файл прикрепил.

К сообщению приложен файл: vor_primer.xlsx (17.5 Kb)

Ответить

bigor

Дата: Вторник, 16.04.2024, 17:09 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1105

Репутация: 210 ±

Замечаний: 0% ±

нет

DS, на большее фантазии не хватает

Код

="= Площадь сечения по автокаду, м2 ("&P4&") * Длина заполнения, м ("&R4&") * Кол-во опор, шт ("&T4&")"

Ответить

Nic70y

Дата: Среда, 17.04.2024, 07:58 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 8761

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

DS, мало информации для понимания,
результат немного отличается от Вашего, см
[vba]

Код

Function u_2(a As Range)
    b = a.FormulaR1C1
    x = a.Column
    y = a.Row
    c = Len(b)
    k = c - Len(Replace(b, "]", ""))
    h = "V ="
    For d = 1 To k
        e = InStr(b, "]")
        f = InStr(b, "[")
        g = Mid(b, f + 1, e - f - 1) - 1 + x
        i = Mid(b, f + 1, e - f - 1) + x
        j = Mid(b, e + 1, 1)
        h = h & " " & Cells(y, g) & " (" & Cells(y, i) & ") " & j
        b = Mid(b, e + 2, c)
    Next
    u_2 = h
End Function

[/vba]

К сообщению приложен файл: vor_primer.xlsm (24.9 Kb)

ЮMoney 41001841029809

Ответить

Дата: Среда, 17.04.2024, 08:41 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, вполне все как нужно, вы правильно поняли. Спасибо. Не сталкивался ни разу с программированием в эксель. Эту прогу как то нужно подгрузить в свой файл?