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

Создание программ 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

СмотримJ

3.1. Вводим код цвета для раскраски выд. зоны

3.2. Видим ответ

Задача №4

Дата добавления: 2017-02-01; Просмотров: 60; Нарушение авторских прав?; Мы поможем в написании вашей работы!