Как создать графический интерфейс в excel

Ход урока

Объектно-ориентированный
язык программирования
Visual Basic for Application (VBA) является
версией языка
Visual Basic и предназначен
для использования
в среде приложений Microsoft Office (Word, Excel, Access и др.)

Существует достаточно простая
возможность создания программы (макроса) на
языке VBA с использованием
MacroRecorder.

MacroRecorder – это
транслятор, который переводит все действия
пользователя с момента запуска MacroRecorder до окончания записи макроса на язык VBA.

1. В рабочей книге должно быть
5 листов. Переименуйте листы следующим образом:

l Лист1 — “Меню”

l Лист2 – “Отель”

l Лист3 – “Фабрика”

l Лист4 – “Холдинг”

l Лист5 – “Турагенство”

2. С помощью коллекции WordArt подготовьте на созданном листе
“Меню” надписи “Меню” и “4 задания”.

3. Вызовите на экран
дополнительную панель “Рисование”.

4. Используя элемент “Автофигура”
нарисуйте на листе одну кнопку (всего кнопок
будет 4).

5. Используя
контекстно-зависимое меню этого объекта, добавьте надпись на кнопке “Турагенство”.

6.  Измените, дизайн кнопки, т.е. поменяйте фон
кнопки, а также начертание, название шрифта и
размер букв надписи на кнопке.

II этап —
Создание макросов.

1. Установим курсор на листе
“Меню”.

2. Активизируем MacroRecoder с помощью команды Сервис-Макрос-Начать
запись.
Появится диалоговое окно “Запись
макроса”. Это диалоговое окно позволяет
задать параметры макроса.

Рис. 2. Диалоговое окно
“Запись макроса”

По умолчанию макросам
присваиваются имена Макрос1, Макрос2 и т.д. Чтобы
легче было распознать макрос, лучше присвоить
ему имя, поясняющее его назначение. Присвоим
макросу имя “Турагенство” и нажмем кнопку Ок.
Появится плавающая панель инструментов с
кнопкой “Остановить запись”. Теперь все производимые нами
действия будут записываться до тех пор, пока не
будет нажата эта кнопка.
Не выполняйте никаких лишних
действий. Все ваши действия фиксируются и
записываются. Надо выполнить только одно
действие.

l Перейдите на лист “Турагенство”.

Остановите запись макроса,
нажав на кнопку “Остановить
запись”.

3. Просмотрите записанную
программу. Для этого выполните команду Сервис-Макрос-Макросы.
Созданная программа
записалась в Модуле1.

Рис. 3. Главное окно
редактора VBA

Таким образом, MacroRecorder записал нужную нам программу из
одной строки:
Sheets(“Турагенство”).Select – выбрать лист “Турагенство”.

III этап —
“Оживление” кнопок.

1. Для того чтобы эта
программа выполнялась, то
есть, происходил переход на
лист “Турагенство” при нажатии на одноименную
кнопку, выполните следующие действия:

l закройте окно редактора VBA;
l на листе
“Меню” вызовите контекстно-зависимое меню на
автофигуре с надписью “Турагенство”

Рис. 4.
Контекстно-зависимое меню автофигуры
“Турагенство”

l в появившемся меню выберите команду
“Назначить макрос”
l в
окне “Назначить макрос объекту”
выберите имя макрос “Турагенство” и
подтвердите выполнение операции, нажав на кнопку
ОК.
l снимите
выделение с кнопки и проверьте ее
работоспособность, щелкнув по ней.

2. Создайте и оживите оставшиеся
кнопки пользовательского интерфейса.

Постановка задачи

Сформируйте и заполните накопительную
ведомость по продаже путевок туристической
фирмой «Пять континентов» за май 2003 г.

Фирма имеет семь постоянных маршрутов.
Цена каждого маршрута и количество проданных
путевок представлены в таблице. Если количество
проданных путевок в месяц по каждому из
маршрутов более 50, то путевки, проданные сверх
этих пятидесяти, реализуются со скидкой в 15% от
указанной цены.

Рассчитайте по формулам стоимость
всех проданных путевок; количество
проданных путевок со скидкой; для путевок, проданных со скидкой, рассчитайте размер скидки в евро и
итоговую выручку по каждому туру.

Подведите итог за месяц по всем графам
таблицы: количество проданных путевок фирмой за
месяц, стоимость всех проданных путевок без
учета скидки, общая сумма скидки, итоговая
выручка за месяц по туристической фирме. Расчеты
производите в евро.

Определите максимальное количество
путевок, проданных со скидкой.

Определите минимальную стоимость
тура.

Рассчитайте среднюю скидку за
проданные путевки.

1. Круговую
диаграмму по графе «Количество проданных
путевок».

2. Гистограмму по
графе «Итоговая выручка».

Требования:

1. Процент скидки (15%) и
пограничное количество путевок (50) вынесите в
отдельные ячейки с комментариями.

2. При расчете
количества путевок, проданных со скидкой,
используйте логическую функцию ЕСЛИ.

3. Создайте макросы для
расчета максимального, минимального и среднего
значений. Нарисуйте автофигуры. Привяжите
созданные макросы к этим автофигурам. А также
создайте еще один дополнительный макрос и кнопку
для очистки ячеек с результатами вычислений этих
значений.

4. На листе
“Турагенство” создайте кнопку для перехода на
лист “Меню”.

5. Создайте копию листа “Турагенство”.
Переименуйте лист в “Формулы” и выведите в
созданной таблице формулы расчета.

Образец выполненной работы
представлен на рис. 5. Работу выполнила ученица
Ломоносовской школы 10 класса “В” Дубровская
Ксения.

Проверка выполненного задания

При проверке выполненного задания
учащиеся должны представить:

1. Таблицу со
значениями.

2. Таблицу с формулами
(рис.6). Уметь объяснить работу
формулы ЕСЛИ и применение абсолютной адресации в
формулах.

Рис. 6. Выполненная работа с формулами

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

Sub Средняя_цена()
Range(«C14»).Select
ActiveCell.FormulaR1C1 = «=AVERAGE(R[-11]C[3]:R[-5]C[3])»
End Sub

Sub Максимум ()
Range(«A14»).Select
ActiveCell.FormulaR1C1 = «=MAX(R[-11]C[4]:R[-5]C[4])»
End Sub

Sub Минимум()
Range(«B14»).Select
ActiveCell.FormulaR1C1 = «=MIN(R[-11]C:R[-5]C)»
End Sub

Sub Очистка()
Range(«A14:C14»).Select
Selection.ClearContents
End Sub

4. Уметь объяснить адресацию ячеек в Excel. Для ссылок на ячейки используются
два формата. Формат А1 (ссылка
состоит из имени строки и номера столбца). Формат R1C1
– этот формат мы видим в
созданных макросах при нахождении среднего
значения, максимума и минимума. В формате R1C1, после буквы “R”
указывается номер строки ячейки, после буквы
“С” — номер столбца. Например, абсолютная ссылка R1C1 эквивалента абсолютной ссылке $A$1 для формата А1. Для задания
относительной ссылки указывается смещение по
отношению к активной ячейке. Смещение
указывается в квадратных скобках. Знак указывает
направление смещения. Например, R[-11]C:R[-5]C) (фрагмент адресации взят из нашего
макроса Минимум). Активной
ячейкой в этом макросе является ячейка B14.
R[-11]C – обозначает
относительную ссылку на ячейку, расположенную на
11 строк выше в том же столбце, т. е. ячейку B3.
R[-5]C) — обозначает относительную
ссылку на ячейку, расположенную на 5 строк выше в том же столбце, т. е.
ячейку B9. Таким образом, формируется диапазон В3:В9 для
нахождения минимального
значения.

На остальных листах также должны быть
выполнены аналогичные задания. Условия задания в
электронной таблице подбираются созвучно именам
листов в созданной книге.

l реализация книг издательствами
холдинга «Спутник» по кварталам за 2003 год и т.д.;

Этот материал можно использовать на
факультативных занятиях, в классах с углубленным
изучением информационных технологий, для
выполнения проектов и курсовых работ.

Темой для проекта можно выбрать
создание информационной системы
“Торгово-закупочное предприятие”, в котором
применение макросов необходимо, также как и
написание программ на языке VBA. На рис.7 показан пользовательский
интерфейс для названного проекта.

Рис. 7. Меню
“Торгово-закупочное предприятие”

Рис.8 . Таблица с формулами

import pandas as pd

from tkinter import *

from tkinter import filedialog

from tkinter import messagebox as msg

from pandastable import Table

from tkintertable import TableCanvas

class csv_to_excel:

    def __init__(self, root):

        self.root = root

        self.file_name = ''

        self.f = Frame(self.root,

                       height = 200,

                       width = 300)

        self.f.pack()

        self.message_label = Label(self.f,

                                   text = 'GeeksForGeeks',

                                   font = ('Arial', 19,'underline'),

                                   fg = 'Green')

        self.message_label2 = Label(self.f,

                                    text = 'Converter of CSV to Excel file',

                                    font = ('Arial', 14,'underline'),

                                    fg = 'Red')

        self.convert_button = Button(self.f,

                                     text = 'Convert',

                                     font = ('Arial', 14),

                                     bg = 'Orange',

                                     fg = 'Black',

                                     command = self.convert_csv_to_xls)

        self.display_button = Button(self.f,

                                     text = 'Display',

                                     font = ('Arial', 14), 

                                     bg = 'Green',

                                     fg = 'Black',

                                     command = self.display_xls_file)

        self.exit_button = Button(self.f,

                                  text = 'Exit',

                                  font = ('Arial', 14),

                                  bg = 'Red',

                                  fg = 'Black', 

                                  command = root.destroy)

        self.message_label.grid(row = 1, column = 1)

        self.message_label2.grid(row = 2, column = 1)

        self.convert_button.grid(row = 3, column = 0,

                                 padx = 0, pady = 15)

        self.display_button.grid(row = 3, column = 1, 

                                 padx = 10, pady = 15)

        self.exit_button.grid(row = 3, column = 2,

                              padx = 10, pady = 15)

    def convert_csv_to_xls(self):

        try:

            self.file_name = filedialog.askopenfilename(initialdir = '/Desktop',

                                                        title = 'Select a CSV file',

                                                        filetypes = (('csv file','*.csv'),

                                                                     ('csv file','*.csv')))

            df = pd.read_csv(self.file_name)

            if(len(df) == 0):      

                msg.showinfo('No Rows Selected', 'CSV has no rows')

            else:

                with pd.ExcelWriter('GeeksForGeeks.xls') as writer:

                        df.to_excel(writer,'GFGSheet')

                        writer.save()

                        msg.showinfo('Excel file created', 'Excel File created')     

        except FileNotFoundError as e:

                msg.showerror('Error in opening file', e)

    def display_xls_file(self):

        try:

            self.file_name = filedialog.askopenfilename(initialdir = '/Desktop',

                                                        title = 'Select a excel file',

                                                        filetypes = (('excel file','*.xls'),

                                                                     ('excel file','*.xls')))

            df = pd.read_excel(self.file_name)

            if (len(df)== 0):

                msg.showinfo('No records', 'No records')

            else:

                pass

            self.f2 = Frame(self.root, height=200, width=300) 

            self.f2.pack(fill=BOTH,expand=1)

            self.table = Table(self.f2, dataframe=df,read_only=True)

            self.table.show()

        except FileNotFoundError as e:

            print(e)

            msg.showerror('Error in opening file',e)

root = Tk()

root.title('GFG---Convert CSV to Excel File')

obj = csv_to_excel(root)

root.geometry('800x600')

root.mainloop()

Рассмотрим создание
интерфейса пользователя на простом
примере. Пусть на листе Excel
размещены столбцы чисел. Требуется,
чтобы проектируемое приложение позволяло
пользователю выбрать столбец для
сортировки, выбрать вариант сортировки
(по возрастанию или по убыванию) и,
наконец, выполнить саму сортировку. Из
поставленной задачи следует, что наше
приложение надо “оснастить” элементами
управления (см. подраздел 2.2) для выбора
номера столбца (поле во взаимосвязи
со счетчиком), варианта сортировки
(переключатели) и для запуска
событийной процедуры сортировки
(командная кнопка). С помощью VBA
эти элементы управления можно разместить
или прямо на листе Excel
(рис. 10.1), или же на диалоговой форме,
которая будет появляться в диалоговом
окне (поверх листа Excel)
при нажатии на кнопку Сортировать
– кнопку целесообразно оставить на
листе Excel и в этом случае.
Рассмотрим первый вариант.

С помощью пункта
меню Вид/Панели инструментов/Visual
Basic разместим панель
инструментов VBA рядом с
другими панелями инструментов Excel
(см. рис.10.1). На этой панели нас будут
интересовать два значка: Элементы
управления (значок в виде молоточков)
и Редактор Visual
Basic (соседний слева).
Второй значок нам понадобится позже,
во время разработки процедур, для
переключения на окно редактора. А нажатие
на кнопку с первым значком приведет к
появлению в пределах листа Excel
окна, содержащего палитру элементов
управления (на рис. 10.1 – справа) и три
кнопки: Режим конструктора, Свойства
и Исходный текст.

Первая из этих
кнопок позволяет перейти в режим
конструктора. В этом режиме работа
пользователя с таблицей Excel
блокируется, но есть возможность
создавать приложение VBA.
Вторая кнопка позволяет открыть окно
Свойства – оно показано на рисунке
для счетчика, имеющего имя SpinButton1
(он выделен щелчком мыши). Третья кнопка
позволяет переключиться в окно редактора,
причем именно на процедуру обработки
события, связанного с выделенным
элементом управления – на рис.10.2 это
событийная процедура, срабатывающая в
тот момент, когда пользователь изменяет
значение счетчика.

Итак, теперь на
листе Excel имеется весь
необходимый инструментарий для создания
интерфейса приложения. Само создание
интерфейса сводится к выбору элемента
управления из палитры (на рис. 10.1 –
справа), к размещению этого элемента с
помощью мыши на листе Excel,
к установке свойств элемента и к написанию
событийной процедуры, если она требуется
для данного элемента управления. В
интерфейс нашего приложения включены
следующие элементы управления:

• Надпись
  со статическим текстом, для которой
  установлено свойство Caption
  (Заголовок) – Номер столбца;

• поле,
  для которого установлено свойство
  Value (Значение) – 1;
  если пользователь не изменит это
  значение, то сортироваться будет первый
  столбец;

• счетчик;
  для него установлены свойства Min=1,
  Max=100, Value=1;

• переключатели,
  для которых установлены свойства
  Caption и Value;
  у одного из переключателей заголовок
  — По возрастанию, а у второго – По
  убыванию; у одного свойство Value=True
  (истина – истинным считается утверждение
  о выборе этого переключателя), у второго
  Value=False
  (ложь);

• командная
  кнопка; для нее установлено свойство
  Caption=Сортировать.

Каждому элементу
управления VBA присваивает
имя по умолчанию. Например, первому
переключателю – OptionButton1,
второму – OptionButton2, счетчику –
SpinButton1, т.е. берется
английское название элемента, и к нему
присоединяется порядковый номер. Имя
можно изменить, как всякое свойство
объекта. Например, переключатели можно
назвать короче: Option1,
Option2. Имена
элементов управления участвуют в
образовании имен событийных процедур.
Так, при двойном щелчке мышью по элементу
SpinButton1 произойдет
переключение на окно Visual
Basic (Рис. 10.2), в котором
автоматически появится пустая событийная
процедура:

Private Sub
SpinButton1_Change( )

End Sub

Правила записи
процедур мы рассмотрим в следующих
подразделах. Сейчас важно понять, что
процедура SpinButton1_Change
будет автоматически выполняться, как
только пользователь изменит значение
счетчика (Change – изменять).

Панель
инструментов

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

Everybody in this country should learn how to program a computer... because it teaches you how to think." -Steve Jobs

Я хотел бы расширить мудрые слова Стива Джобса и сказать, что все в мире должны научиться программировать компьютер. Возможно, вам совсем не обязательно работать программистом или писать программы, но это научит вас думать.

В этом уроке мы рассмотрим следующие темы.

• Что такое VBA?
• Почему VBA?
• Личные и бизнес приложения VBA в Excel
• Visual Basic для приложений Основы VBA
• Пошаговый пример создания простого калькулятора электромагнитных помех в Excel

Что такое VBA?

VBA означает Visual Basic для приложений . Прежде чем мы углубимся в детали, давайте посмотрим, что такое компьютерное программирование на языке неспециалиста. Предположим, у вас есть горничная. Если вы хотите, чтобы горничная убиралась в доме и стирала. Вы говорите ей, что делать, скажем, на английском, и она сделает всю работу за вас. Работая с компьютером, вы захотите выполнить определенные задачи. Точно так же, как вы сказали горничной делать домашние дела, вы также можете сказать компьютеру, чтобы он выполнял задачи за вас.

Процесс сообщения компьютеру о том, что вы хотите, чтобы он делал для вас, называется компьютерным программированием. Точно так же, как вы использовали английский, чтобы сказать горничной, что делать, вы также можете использовать английские операторы, чтобы сказать компьютеру, что делать. Заявления, подобные английскому, относятся к категории языков высокого уровня. VBA – это язык высокого уровня, который вы можете использовать, чтобы превзойти свою мощь.

VBA на самом деле к югу набор Visual Basic 6.0 BASIC означает B eginners LL-Purpose S при ymbolic I nstruction C ода.

Почему VBA?

• Для написания инструкций используются английские выражения.
• Создание пользовательского интерфейса похоже на использование программы рисования. Вы просто должны перетащить, перетащить и выровнять элементы управления графического интерфейса пользователя.
• Короткая кривая обучения. С первого дня, когда вы начинаете учиться, вы можете сразу начать писать простые программы.
• Расширяет функциональность Excel, позволяя заставить Excel вести себя так, как вы хотите

Личные и бизнес приложения VBA в Excel

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

Для бизнес-целей вы можете создавать полноценные мощные программы на базе Excel и VBA. Преимущество этого подхода в том, что вы можете использовать мощные функции Excel в своих собственных программах.

Visual Basic для приложений Основы VBA

Прежде чем мы сможем написать какой-либо код, мы должны сначала знать основы. Следующие основы помогут вам начать.

• Переменная – в старших классах мы узнали об алгебре. Найдите (x + 2y), где x = 1 и y = 3. В этом выражении x и y являются переменными. Им могут быть назначены любые номера, то есть 1 и 3 соответственно, как в этом примере. Они также могут быть изменены, чтобы сказать 4 и 2 соответственно. Короче говоря, переменные являются ячейками памяти. Поскольку вы работаете с VBA, вам потребуется также объявлять переменные, как в классах алгебры.

• Правила создания переменных

  • Не используйте зарезервированные слова – если вы работаете студентом, вы не можете использовать титул лектора или директора. Эти названия зарезервированы для преподавателей и администрации школы. Зарезервированные слова – это те слова, которые имеют особое значение в Vba, и поэтому их нельзя использовать в качестве имен переменных.
  • Имена переменных не могут содержать пробелов – вы не можете определить переменную с именем first number. Вы можете использовать firstNumber или first_number.
  • Используйте описательные имена – очень заманчиво назвать переменную после себя, но избегайте этого. Используйте описательные имена, например количество, цену, промежуточную сумму и т. Д., Чтобы ваш код VBA был легко читаем

• Арифметические операторы. Применяются правила сложения и вычитания в скобках деления умножения (BODMAS), поэтому не забывайте применять их при работе с выражениями, использующими несколько различных арифметических операторов. Как и в Excel, вы можете использовать

  • + для дополнения
  • – для вычитания
  • * для умножения
  • / для деления.

• Логические операторы. Концепция логических операторов, описанная в предыдущих руководствах, также применяется при работе с VBA. К ним относятся

  • Если заявления
  • ИЛИ
  • НЕ
  • А ТАКЖЕ
  • ПРАВДА
  • ЛОЖНЫЙ

Включить опцию разработчика

• Создать новую рабочую книгу
• Click on the ribbon start button
• Select options
• Click on customize ribbon
• Select the developer checkbox as shown in the image below
• Click OK

You will now be able to see the DEVELOPER tab in the ribbon

VBA Hello world

Now we will demonstrate how to program in VBA. All program in VBA has to start with “Sub” and end with “End sub”. Here the name is the name you want to assign to your program. While sub stands for a subroutine which we will learn in the later part of the tutorial.

Sub name()
.
.
. 
End Sub

We will create a basic VBA program that displays an input box to ask for the user’s name then display a greeting message

This tutorial assumes you have completed the tutorial on Macros in excel and have enabled the DEVELOPER tab in excel.

• Create a new work book
• Save it in an excel macro enabled worksheet format *.xlsm
• Нажмите на вкладку РАЗРАБОТЧИК
• Нажмите на раскрывающийся список INSERT под панелью управления
• Выберите командную кнопку, как показано на рисунке ниже

Нарисуйте командную кнопку в любом месте листа

Вы получите следующее диалоговое окно

Dim name As String
name = InputBox("Enter your name")
MsgBox "Hello " + name

=PMT(rate,nper,pv)

Dim monthly_rate As Single, loan_amount As Double, number_of_periods As Single, emi As Double
monthly_rate = Range("B6").Value / Range("B5").Value
loan_amount = Range("B3").Value
number_of_periods = Range("B4").Value * Range("B5").Value 
emi = WorksheetFunction.Pmt(monthly_rate, number_of_periods, -loan_amount)
Range("B9").Value = emi