Распечатайте эту страницу, откройте Excel и откройте новую книгу. Используйте ALT / F11, чтобы открыть редактор Visual Basic, как вы узнали на уроке 1.
Большинство макросов разрабатываются в окне кода модулей. Для этого упражнения дважды щелкните «Лист1» в окне проекта.
Введите sub proTest () без использования заглавной буквы «S» в качестве начала «sub». После ввода закрывающей скобки нажмите «Enter». Вы получаете эти две строки кода:
Sub proTest ()
End Sub
VBE добавляет строку «End Sub» и заглавные буквы «S» в «Sub». VBE заглавные буквы соответственно, когда слово написано правильно. Это одна интересная функция, которую вы всегда должны использовать при написании макросов. Сделайте это привычкой никогда не использовать заглавные буквы при написании кода. Таким образом, всякий раз, когда неожиданно VBE не удается написать букву, вы поймете, что что-то не так.
Двумя исключениями из вашего последовательного использования строчных букв являются: (1) когда вы объявляете переменные (урок 19); и (2), когда вы называете макросы (как вы делали выше). Вы поймете почему в последующих уроках.
Теперь вы можете написать процедуру в двух строках кода выше. Например, ваша процедура VBA может выглядеть следующим образом. Вы можете скопировать / вставить приведенный ниже макрос из браузера в окно кода VBE или ввести его. Убедитесь, что все есть, включая все кавычки и точки, скобки, знаки равенства и пробелы.
Примечание. Убедитесь, что вы скопировали / вставили этот код в НОВУЮ рабочую книгу, а не в созданную в предыдущем упражнении.
Sub proTest ()
Листы («Лист1»). Выберите
диапазон («С1»). Выберите
Сделать до Selection.Offset (0, -2) .Value = «»
Selection.Value = Selection.Offset (0, -2) .Value & «» & Selection.Offset (0, -1)
Selection.Offset (1, 0). Выберите
цикл
Range ( «A1»). Выберите
End Sub
Приведенная выше процедура пойдет вниз по столбцу «C» и соберет имена столбцов «A» и фамилии столбцов «B» с пробелом между ними. Он будет выполнять эту задачу до тех пор, пока в столбце «А» не останется никаких имен. Затем он поместит курсор в ячейку «А1».
Чтобы проверить этот макрос (процедура VBA), выполните следующие действия:
Шаг 1: Перейдите в Excel (ALT / F11) и введите имена в ячейки с A1 по A5.
Шаг 2: Введите фамилии в ячейках с B1 по B5.
Шаг 3: Вернитесь к VBE (ALT / F11) и щелкните внутри макроса в окне кода.
Шаг 4: В строке меню выберите «Run / Run Sub / Userform».
Шаг 5: Вернитесь в Excel и посмотрите результат.
Вы можете стереть все в столбце C Excel и повторить попытку с другими именами и фамилиями.
Попробуйте еще раз, удалив имя в ячейке A3. Обратите внимание, что макрос останавливается на строке 2.
