Добрый день! Как составить формулы в Excel и заполнить таблицу, имея одно или два вводимых значений? Пример 1: С одним вводимым значением. (Например) В Листе1 в ячейку А4 вставляем значение - 10, необходимо составить такую формулу, чтобы это значение - 10 автоматически вставлялось в Листе ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА1 в ячейку Е6 (окрашенную в зеленый цвет), таблица начинает работать и полученный результат в ячейке Е8 - 50 (окрашенный в желтый цвет) автоматически переносит на Лист1 в ячейку В4. И соответственно точно также ниже. Пример 2: C двумя вводимыми значениями. (Например) В Листе1 в ячейку А16 вставляем число - 22 и в ячейку В16 вставляем число - 90, необходимо составить такую формулу, чтобы эти значения 22 и 90 автоматически вставлялись в Листе ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА2 в соответствующие ячейки Е6 - 22 и Е8 – 90 (окрашенные в зеленый цвет), таблица начинает работать и полученный результат в ячейке Е11 - 0,98789 (окрашенный в желтый цвет) автоматически переносит этот результат - 0,98789 в ячейку C16 Листа1. И соответственно точно также производим ниже. Прошу прощения если не так выражаюсь, но смысл по-своему объяснил. Заранее благодарю.
Добрый день! Как составить формулы в Excel и заполнить таблицу, имея одно или два вводимых значений? Пример 1: С одним вводимым значением. (Например) В Листе1 в ячейку А4 вставляем значение - 10, необходимо составить такую формулу, чтобы это значение - 10 автоматически вставлялось в Листе ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА1 в ячейку Е6 (окрашенную в зеленый цвет), таблица начинает работать и полученный результат в ячейке Е8 - 50 (окрашенный в желтый цвет) автоматически переносит на Лист1 в ячейку В4. И соответственно точно также ниже. Пример 2: C двумя вводимыми значениями. (Например) В Листе1 в ячейку А16 вставляем число - 22 и в ячейку В16 вставляем число - 90, необходимо составить такую формулу, чтобы эти значения 22 и 90 автоматически вставлялись в Листе ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА2 в соответствующие ячейки Е6 - 22 и Е8 – 90 (окрашенные в зеленый цвет), таблица начинает работать и полученный результат в ячейке Е11 - 0,98789 (окрашенный в желтый цвет) автоматически переносит этот результат - 0,98789 в ячейку C16 Листа1. И соответственно точно также производим ниже. Прошу прощения если не так выражаюсь, но смысл по-своему объяснил. Заранее благодарю.Сударь
Здравствуйте. Это задача для инструмента Анализ "что если" (вкладка Данные -- Анализ "что если" -- Таблица данных) Но на разных листах не получается сделать, поэтому таблицы перенесла на листы с формулами. В голубой ячейке ссылка на формулу. Для первого примера выделяете диапазон В12:С18 -- Данные -- Анализ "что если" -- Таблица данных -- ставите курсор в поле Подставлять значения по строкам в и кликаете на Е6 -- ОК Для двух параметров аналогично, но данные подставляются как по строкам, так и по столбцам
Здравствуйте. Это задача для инструмента Анализ "что если" (вкладка Данные -- Анализ "что если" -- Таблица данных) Но на разных листах не получается сделать, поэтому таблицы перенесла на листы с формулами. В голубой ячейке ссылка на формулу. Для первого примера выделяете диапазон В12:С18 -- Данные -- Анализ "что если" -- Таблица данных -- ставите курсор в поле Подставлять значения по строкам в и кликаете на Е6 -- ОК Для двух параметров аналогично, но данные подставляются как по строкам, так и по столбцамPelena
Sub u_127() Application.ScreenUpdating = False For Each c In Range("a4:a9") Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА1").Range("e6") = c c.Offset(0, 1) = Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА1").Range("e8").Value Next Application.ScreenUpdating = True End Sub Sub u_128() Application.ScreenUpdating = False For Each c In Range("a16:a19") Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА2").Range("e6") = c Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА2").Range("e8") = c.Offset(0, 1) c.Offset(0, 2) = Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА2").Range("e11").Value Next Application.ScreenUpdating = True End Sub
[/vba]
[vba]
Код
Sub u_127() Application.ScreenUpdating = False For Each c In Range("a4:a9") Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА1").Range("e6") = c c.Offset(0, 1) = Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА1").Range("e8").Value Next Application.ScreenUpdating = True End Sub Sub u_128() Application.ScreenUpdating = False For Each c In Range("a16:a19") Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА2").Range("e6") = c Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА2").Range("e8") = c.Offset(0, 1) c.Offset(0, 2) = Sheets("ТАБЛИЦА ДЛЯ РЕШЕНИЯ ПРИМЕРА2").Range("e11").Value Next Application.ScreenUpdating = True End Sub
Непонятно для чего нужен такой сложный способ решения простой задачи, с какими то дополнительными таблицами. Задача легко решается вставкой формул в желтые столбцы Листа 1. Сами формулы уже имеются в этом файле в желтых ячейках на двух других листах.
Непонятно для чего нужен такой сложный способ решения простой задачи, с какими то дополнительными таблицами. Задача легко решается вставкой формул в желтые столбцы Листа 1. Сами формулы уже имеются в этом файле в желтых ячейках на двух других листах.i691198
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
