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

 

= Мир MS Excel/Преобразование слов и цифр из ячеек в формулу - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Преобразование слов и цифр из ячеек в формулу
DS Дата: Вторник, 16.04.2024, 15:43 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - DS
Дата добавления - 16.04.2024 в 15:43
bigor Дата: Вторник, 16.04.2024, 17:09 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1369
Репутация: 267 ±
Замечаний: 0% ±

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

Автор - bigor
Дата добавления - 16.04.2024 в 17:09
Nic70y Дата: Среда, 17.04.2024, 07:58 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация: 2415 ±
Замечаний: 0% ±

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

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

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


ЮMoney 41001841029809
 
Ответить
Сообщение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 = hEnd Function
[/vba]

Автор - Nic70y
Дата добавления - 17.04.2024 в 07:58
DS Дата: Среда, 17.04.2024, 08:41 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - DS
Дата добавления - 17.04.2024 в 08:41
Nic70y Дата: Среда, 17.04.2024, 08:51 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
Цитата DS, 17.04.2024 в 08:41, в сообщении № 4 ( писал(а)):
подгрузить в свой файл?

сначала сохраните свой файл с поддержкой макросов,
затем нажмите одновременно Alt и F11
далее

вставьте функцию в модуль
К сообщению приложен файл: 7271765.png (37.5 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 17.04.2024, 08:52
 
Ответить
Сообщение
Цитата DS, 17.04.2024 в 08:41, в сообщении № 4 ( писал(а)):
подгрузить в свой файл?

сначала сохраните свой файл с поддержкой макросов,
затем нажмите одновременно Alt и F11
далее

вставьте функцию в модуль

Автор - Nic70y
Дата добавления - 17.04.2024 в 08:51
  • Страница 1 из 1
  • 1
Поиск:

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