wowick написал: Т.е. вы каждому помогающему предлагаете создать файл в котором заполнить таблицы двух столбцов минимум до 39 ячейки (78 значений) и на 2-м листе создать вам калькулятор???
на странице "Цены" - таблицы с ценами (2 колонки) На странице "Калькулятор" - собственной происходит всё действо. Вопрос лишь в том, как в VB прописать вместо жёсткой цены (555 или 333) значение ячейки (например, С15) с другого листа? Я вроде ясно выражался...
Как в данном примере цифру 555 заменить на значение ячейки С15 со страницы Цены в этой же книге?
И что произойдёт, если на странице Цены я перемещу данную ячейку?
Имеем на 1-м листе книги с ценами: массив (2 колонки) с данными: А1 - Товар 1, В1 - цена товара 1 А2 - Товар 2, В2 - цена товара 2 А3 - Товар 3, В3 - цена товара 3 и т.д...
Нужно получить: на 2-м листе книги, где расположен калькулятор: в определённой ячейке - селект с товаром, в определённой ячейке - цену данного товара, взятую из соответствующего значения на другом листе.
Если прописывать это "жёстко", то в режиме конструктора это выглядело бы так:
Код
Private Sub ComboBox1_Change()
If ComboBox1.Value = "Профнастил, кв.м" Then
Cells(39, 5) = 555 // Сюда вместо 555 нужно вставить данные ячейки С15 с другого листа
Else: ComboBox1.Value = "Металлочерепица, кв.м"
Cells(39, 5) = 333 // Сюда вместо 333 нужно вставить данные ячейки D15 с другого листа
End If
End Sub
Как прописать вместо жёсткого значения ячейку (например, С15) с листа "Цены"?