Vba в приложении к Excel

Прежде чем перейти непосредственно к задачам, необходимо открыть Microsoft Excel и разрешить выполнение всех действий с макросами.

Вид  Макрос  Изменить.

*если у Вас уже создан таковой, если нет – создаём и потом изменяем его

Открывается стандартное окно для записи программы в VB

Создание программ vb для Excel

Для начала, создадим кнопку « Решение». В окне редактирования макроса запускаем Вставка, Форма (Insert, Form) или нажатием кнопки Вставить UserForm (Insert UserForm). В результате на экран выводится незаполненная форма с панелью инструментов Панель элементов (Toolbox)

Теперь тут уже создаём кнопку, вставляем в неё текст или же просто меняем её название в Caption (Заглавие).

Задача №1 Добавить на лист личные данные, имя файла, дату и отобразить их на экране

Решение

Для этой программы нам понадобится столько переменных, сколько пожелаете. Нам главное просто суметь ввести данные, а потом правильно вставить все данные в ответ (MsgBox). (Т.о. весь текст должен бать в “”, а все переменные должны быть соединены символом & . Не забываем о пробелах.) Собственно вот и вся программа:

Private Sub CommandButton_Click()

Dim name, surname, age, group, fac, uni As String

name = InputBox("Введите Ваше имя: ")

surname = InputBox("Введите Вашу фамилию: ")

age = InputBox("Введите Ваш возраст: ")

group = InputBox("Введите Вашу группу: ")

fac = InputBox("Вы учитесь на факультете … ")

uni = InputBox("Введите название Вашего университета: ")

MsgBox ("Привет, " & name & surname & " . Ты являешься почётным членом группы " & group & ",факультета " & fac & " в " & uni & " . Тебе " & age & " лет. Делай что-то для своей группы!! ")

End Sub

Смотрим:)

1.1.Кнопка для задачи 1.2.Одно из вводимых данных

1.3. Ответ на экране Задача №2 Выделить зону (Ввести начальную и конечную координаты не через Excel, а через vba)

Решение.

Опять-таки начнём с того, что создадим кнопку, которая будет решать всю нашу задачу, и подумаем, что мы конкретно хотим от задачи.

Здесь нам поможет оператор String (на любой символ - От 0 до 65535 символов), через который мы и вводим переменные, которые впоследствии будем использовать. Также создаём InputBox через который вводим уже нужные нам данные.

Через Range(s). Select мы показываем, что заданную зону нам нужно выделить. И завершаем программу:

Private Sub CommandButton1_Click()

Dim a As String

Dim b As String

Dim s As String

a = InputBox(" Введите первую координаты выд. зоны")

b = InputBox(" Введите вторую координату выд. зоны")

s = a & ":" & b

Range(s).Select

End Sub

Смотрим:

2.1. – 2.2. Вводим координаты выд. зоны

2.3. Ответ Задача №3 Разукрасить выделенную зону (выполняется после задачи №2)

Решение.

Эта задача очень простая и выполняется буквально в 1 действие.

Нам нужно ввести номер цвета, которым будем раскрашиваться выделенная зона. Для этого нам надо ввести переменную, которая будет отвечать номеру цвета ( Переменная «с»).

Нам надо задать компьютеру эту раскраску через оператор With – то есть полному выделению мы задам цвет «с». Вот как такая программа будет выглядеть:

Private Sub CommandButton2_Click()

Dim c As String

c = InputBox(" Введите код цвета")

With Selection.Interior

.ColorIndex = c

End With

End Sub

Смотрим