Скажите мне пожалуйста обсолютно не разбираещемуся в VB с таким вопросом.
мне в Excel 2003 нужно вывести ячейку D1 в зависимости от значения ячейки A1, т.е. если значение A1 < 100, то вывести снизился на (100-А1)%, а если значение > 100, то вывести увеличился на (А1-100)%.
И тому подобное. Просто мне надо разобраться в самых азах, а остальное попробую уже сам догнать. Просьба, если ответите сделать это очень разборчиво. В принципе я знаю PHP, а все языки программирования чем-то похожи

Вы имеете ввиду программирование макросов в помощью VB?

Код

Option Explicit Private Sub CommandButton1_Click() Dim inp As Integer 'объявляем переменную inp = Cells(1, 1) 'берем значение из a1 cells(номер строки, номер столбца) If (inp < 100) Then 'Сравниваем с помощью If     'Теперь выводим в d1 необходимое. & - операция конкатенации. Типы преобразуются автоматом     Cells(1, 4) = "Синизился на " & (100 - Cells(1, 1)) & "%" Else     Cells(1, 4) = "Увеличился на " & (100 - Cells(1, 1)) & "%" End If End Sub

Открываем новую книгу Excel
Из панели элементов управления кидаем кнопку на лист.
Дважды нажимаем на эту кнопку (или правой кнопкой - исходный текст)
Открывается окно редактора для VBA
В нем уже прописано

Код

Private Sub CommandButton1_Click() End Sub

Это процедура, которая будет выполняться при клике мышью на кнопке.
В редакторе сразу над текстом - два комбо бокса.
В первом выбираем объект, во втором действие.
И он нам автоматически генерит функцию - которая будет вызываться при наступлении данного события.
Далее смотри в комментах кода.
Для того, чтобы на кнопку можно было нажать нужно выйти из режима конструктора, для этого на панели эдементов управления - есть соответствующая кнопка.

Есть еще формула =ЕСЛИ(сюда пишешь все ,что перечислил выше)
Формула вводится прямо в ячейку=ЕСЛИ(если да;если нет)

Alexandr87, вроде понятно. VB я открыл, но у меня сразу не было никакой функции, а в списке из "родных" функций есть только действие на двойной клик и на клик правой кнопкой. А так думаю, что если руками прописать, то ничего страшного.
Я вписал эту функцию, что дальше делать н понял

Ну хотя бы используй событие selectionChange к примеру.(Справа, чуть сверху выпадающий список).Хотя это для VBA

Это сообщение отредактировал(а) Staruha - 28.11.2005, 00:43

Staruha, а для чего это. Изменить селекцию?

Это при изменении выделения. Была одна ячейка выделена, стала - другая. Тогда и вызывается функция.

Можешь отрыть excel, нажать alt+f11
Справа в окошке Project .....
Выбрать интерисующий лист.
Затем на основным полем редактора(для ввода текста) в левом комбобоксе выбрать worksheet, а в правом @selection change@
Он тебе нарисует, вот что.

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub

Теперь вставляешь ранее написанный код, получаешь

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim inp As Integer 'объявляем переменную inp = Cells(1, 1) 'берем значение из a1 cells(номер строки, номер столбца) If (inp < 100) Then 'Сравниваем с помощью If     'Теперь выводим в d1 необходимое. & - операция конкатенации. Типы преобразуются автоматом     Cells(1, 4) = "Синизился на " & (100 - Cells(1, 1)) & "%" Else     Cells(1, 4) = "Увеличился на " & (100 - Cells(1, 1)) & "%" End If End Sub

Теперь сохраняешь, переходишь в excel. Вводишь в a1 необходимое значение. И кликаешь мышью по любой другой ячейке.(изменяешь выделение).

Цитата

Staruha, а для чего это. Изменить селекцию?

Тебе ко мне на сайт зайти надо.

Alexandr87, получилось. Спасибо огромное
Правда пришлось подправить 8 строку кода, но это не значительно