макросів потрібно спочатку записати макрос і зробити якісь операції на аркуші. Після запису можна подивитися код. Нижче наведені листинги макросів.
Лістинг 2.1. Код макросу введення даних
. FormulaR1C1= Оріпова
Range ( B3 ). Select
ActiveCell.FormulaR1C1= Маніже
Range ( C3 ). Select
ActiveCell.FormulaR1C1= Джамоловна
Range ( D3 ). Select
ActiveCell.FormulaR1C1= 8
Range ( E3 ). Select
ActiveCell.FormulaR1C1= 11/1/+1974
Range ( F2 ). Select
ActiveCell.FormulaR1C1= 4/27/2011
В результаті даного макросу в таблицю в Excel-е, в зазначені в лістингу осередку вводилися дані співробітників. Результат даного макросу наведено на малюнку 2.1.
Рис.2.1 Результат виконання макросу
Таким же шляхом були створені ще 6 макросів. Їх функція теж «введення даних» в таблицях. Макроси полегшують роботу з даними.
Крім макросів в Excel-е також можна створювати модулі, де можна написати код для зміни даних на аркуші. Кожен модуль виконує окрему функцію. Нижче наведена модуль на лістингу 2.2.
Лістинг 2.2. Код зміни типу шрифту
день_2 ()
ActiveWorkbook.ActiveSheet.Cells.Font.Name= Times New Roman
End Sub
Даний код змінює шрифт на аркуші.
Лістинг 2.3 Код зміни колір фону в діапазоні
Sub день_2 (). Worksheets ( Аркуш1 ). Range ( B2: D3, H7 ). Interior.Color=vbRed
End Sub
В результаті виконання даного коду змінюється колір в зазначеному діапазоні. Таким же шляхом були створені ще 5 модулів в Excel-е.
2.2 Використання ADO з даними MS Excel
За допомогою VB Net можна управляти даними в Excel-е. За допомогою форми та елементів управління можна вводити дані в Excel. Приклад наведено на лістингу 2.4
Лістинг 2.4 Код введення даних за допомогою VB Net
Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickxl As New Excel.Applicationxlwb As Excel.Workbook=xl.Workbooks.Open ( C: Users zulol Desktop База даних - 2 день 2БД день_2_1 )
Тепер потрібно вибрати діапазон для введення даних.
Лістинг 2.5 Вибір осередків на робочому листі
xlwb.Worksheets ( лист1 ). range ( o2 ). value= разом .Worksheets ( Аркуш2 ). range ( A8 ). value = Олімов .Worksheets ( Аркуш2 ). range ( b8 ). value= Умед .Save (). Close (). Quit ()
MsgBox ( ok )
За допомогою даного коду можна вводити дані співробітника в таблиці на аркушах в Excel-е. Результат наведено на малюнку 2.2.
Рис. 2.2 Результат лістингу 2.4
Можна також створити гістограму за допомогою VB Net. Код створення наведено на лістингу 2.5.
Лістинг 2.5. Код створення гістограми Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickex As New Excel.Application.Workbooks.Add ()
. ex.Range ( A1 ). Value= Зарплата
. ex.Range ( A2 ). Value= Декан
. ex.Range ( B1 ). Value= Посади
. ex.Range ( B2 ). Value=TextBox1.Text
. ex.Charts.Add ()
Вище в кожній осередках ввели значення обох осей гістограми. Значення ми видаємо в Textbox-ах, після чого гістограма створюється в Excel-е.
Лістинг 2.6 Вибір листа і типу гістограми
With ex.ActiveChart
. ChartType=51
. SetSourceData (ex.Sheets ( Аркуш1 ). Range ( A1: B5 ), lotBy:=2)
. HasLegend=False
. HasTitle=True
. ChartTitle.Characters.Text= Зарплата співробітників
. Axes (1, 1) .HasTitle=True
. Export ( E: zarplata.jpg ) Withex.ActiveWorkbook
. Close (False) With.Quit (). Image=Image.FromFile ( E: zarplata.jpg )
End Sub
За допомо...
