Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Донбасский государственный технический университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Программирование_на_VBA в_Excel

.pdf

Скачиваний:

Добавлен:

06.02.2016

Размер:

308.03 Кб

Скачать

☆

<<< < Предыдущая 1 2 34 / 54 5 > Следующая >>>

(наприклад, Найменування), вибираємо елемент ComboBox, для інших полів – TextBox. Біля кожного поля розміщуємо елемент Label і вводимо пояснюючий текст. Розміщуємо також дві кнопки з написами Продовжити і Завершити. Після цього для кожного елемента, крім написів, задаємо властивості в режимі Конструктор. Вид форми, що одержана, показано на рисунку 8.1.

Рисунок 8.1 – Вид форми для введення даних

Щоб показати форму для введення даних на екрані, на поточному робочому листі Excel розміщуємо кнопку, задаємо їй ім'я CmdVvod і створюємо процедуру, яка запускається клацанням по кнопці:

Private Sub CmdVvod_Click()

FrmVvod.Show

End Sub

Для створення процедури ініціалізації форми, знаходячись на формі в режимі Конструктор, виконуємо подвійне клацання. Щоб показати значення вартості у відповідному полі форми, створюємо процедуру, що запускається при зміні значення в полі Кількість (елемент TxtKol) і розраховує вартість. Створюємо також процедури введення даних, обробки клацання на кнопках Продовжити і Завершити. Програма на VBA приведена нижче.

Private Sub UserForm_Initialize()

'Процедура ініціалізації форми

i = 3 'Задає номер рядка таблиці Excel, що містить імена полів

'Додавання записів в поле Найменування

CmbNaim.AddItem "Зошит"

CmbNaim.AddItem "Ручка"

End Sub

Private Sub TxtKol_Change()

'Розрахунок вартості після введення кількості

'і її відображення в полі форми

Cena = Val(TxtCena.Value) : Kol = Val(TxtKol.Value) S = Cena * Kol : TxtStoim.Value = Str(S)

End Sub

Private Sub CmdProdolz_Click()

'Процедура обробки клацання на кнопці Продовжити

EnterDann End Sub

Private Sub CmdStop_Click()

'Процедура обробки клацання на кнопці Завершити

EnterDann Hide

End Sub

Private Sub EnterDann() 'Процедура введення даних

i = i + 1 'Переход до наступного рядка таблиці Excel

'Занесення введених даних в комірки таблиці Excel Cells(i, 1) = TxtNaklad.Value

Cells(i, 2) = TxtData.Value : Cells(i, 3) = CmbNaim.Value Cells(i, 4) = Cena : Cells(i, 5) = Kol : Cells(i, 6) = S

'Очіщення полів форми для введення наступного запису

TxtNaklad.Value = "" : TxtData.Value = "" CmbNaim.Value = "" : TxtCena.Value = "" TxtKol.Value = "" : TxtStoim.Value = ""

End Sub

9 ЗАВДАННЯ ДЛЯ ЛАБОРАТОРНИХ РОБІТ

Завдання 1. Робота з макросами в Excel.

В комірки таблиці Excel A2:D4 ввести числа в форматі Общий (цілі й дробові), що починаються на номер свого варіанта. Зробити активною комірку A1, розташовану над першою коміркою таблиці.

Створити макрос, що використовує відносні адреси і виконує наступні дії:

− вставляє рядок тексту, що починається з активної комірки і містить прізвище, ім'я, по батькові й групу;

−задає для загодя підготовленої таблиці чисел, що включає чотири стовпця і три рядка, числовий формат з точністю 2 знаки після коми (перша комірка таблиці повинна розташовуватися в наступному рядку під активною коміркою);

−знаходить суму елементів стовпців таблиці;

−задає границі для отриманої таблиці;

−знаходить суму, середнє, найбільше й найменше значення елементів всієї таблиці.

Для перевірки роботи макросу в інших комірках листа підготувати дві таблиці тієї ж структури, що й вхідна. Дані таблиць повинні починатися на цифру (n+1) і (n+2), де n – номер варіанта. Перевірити роботу макросу на цих даних.

Розкрити текст макросу, скопіювати його на лист Excel (у момент копіювання перемикач мови повинен бути встановлений у положення Русский) і надрукувати. Отримані 3 таблиці з результатами роботи макросу надрукувати.

Завдання 2. Робота з об’єктами в Excel.

Визвати Excel і на поточному робочому листі створити кнопку з написом"ЛР2 Прізвище".

Передбачити наступну обробку події, що відбувається при клацанні по кнопці:

−створення в поточній книзі нового робочого листа з ім'ям "ЛР2 Прізвище";

−розміщення в першому рядку тексту, що починається з комірки A1 і містить прізвище, ініціали, групу (шрифт Times New Roman, 14 пт, червоного кольору, курсив);

−розміщення в другому рядку тексту, що починається з комірки A2 і містить назву роботи (шрифт Times New Roman, 12 пт, червоного кольору, курсив)

−заповнення комірок A4:D4 четвертого рядка довільними цілими

йдробовими числами, що починаються на номер варіанта, їхнє вирівнювання по центру, вивід з точністю 1 знака після коми, подвійну границю.

Лист Excel і текст програми на VBA надрукувати.

Завдання 3. Програма лінійної структури. Розробити програ-

му на VBA для обчислення значень функції для свого варіанта індивідуального завдання. Програма повинна запускатися на виконання клацанням по кнопці з написом "ЛР3 Прізвище", що знаходиться на поточному робочому листі Excel, і виконувати наступні дії:

−вивід у першому рядку поточного листа тексту, що починається з комірки A1 і містить назву і номер роботи;

−вивід у другому рядку тексту, що починається з комірки A2 і містить прізвище, ініціали, групу;

−вивід у четвертому рядку тексту "Вхідні дані і результати", що починається з комірки A4;

−уведення вхідних даних за допомогою функції InputBox;

−розрахунок значення функції відповідно до індивідуального завдання;

−вивід значень вхідних даних і результату розрахунку у вигляді таблиці, що починається з комірок А5:А6.

Запустити програму на виконання й увести з клавіатури значення вхідних даних, що необхідні для розрахунку. Їх задати довільно в межах зазначених у завданні діапазонів значень. Текст програми на VBA скопіювати на поточний лист Excel і надрукувати разом з результатами розрахунку.

Дані для індивідуального завдання 3.

Варіант 1.

Y =1,74arcsin

5x + log3

− 0,4α ,

3 − x

eτ

+ 2cosα

α [-1; 1], τ = {2; 3; 4; 5},

d [15,7; 20000],

x [-95; 2867].

t2 − 2s

2arcctg λ +1,67 − ln

Варіант 2.

sin2 x

+ arccos

− 4s + 2sin λ2

t = {–3,7; –2,25; 1,9; 4; 7,8},

λ [3,8; 56], s [0,1; 10],

x = {5; 6; 7; 8}.

Варіант 3.

R =

1+ 4,1a2

− arcsin

+ 2n2a ,

+ eε

cos2

n − lg

ε − 7,3

n = {25; 26; 28; 30}, ε [2,6; 23,1],

t [-180; 15], a = {–8,5; 0,27; 6,8}.

5×

f + ek

+ ctg

f - k 2

- 5,1×102 sin2 b2 +

Варіант 4.

Z =

k - lgγ

3b +

γ Î [15,9; 396], b Î [-3,7; 4900],

f = {–3,7; -2,5; 1,6; 9}, k

= {3; 5; 7}.

Варіант 5.

λ = 5,89log

arcctg f 2

2×10−3 ex−s + s

- 2,6 f

1+ α

2s - sinα1.8

α = {2,7; 4,9; 12; 17,4}, s Î [6; 20],

f Î [1,2; 5,9], x Î [-19,4; 40].

τ - b2 +1,2τ 3 ,

Варіант 6. G = cos

1+ 3,8lnb

- arccos

sin2

2η + r

24π

τ = {5; 8; 11}, η = {–8,3; –2; 3; 5,9; 12}, b Î [1,2; 4,7], r Î [1,8; 490].

4 + 2,3arcsin

1- ctgβ

+ 2π

1,16 + f

Варіант 7.

ε =

- lg

f - x

e f +1 - 3 2m + f

x Î [0; 1], m = {3; 6; 11},

f Î [6,8; 38], β Î [–23,7; 15].

Варіант 8.

S = arccos

sin2 α

3,71ek−1 + ctgγ

7,56×102 - 2,54× 3

α 2 - ln t

t Î [4; 34], α Î [–12,3; 78], k Î [1,6; 11,76], γ = {–2,9; 1,45; 4; 7,92}.

Варіант 9. Y = 6,35× log

2,3×103 esin

- arcsin

lg n

3 3

15 - arctgβ

p2 + 8,3 +1

β Î [–3,9; 15,8], p Î [ –1.7; 2900],

n Î [10; 80],

x = {–3,9; 0,4, 5; 9,1}.

Варіант 10. μ = 5,36×103

q - sinα

+ eq

ex+ y +1

arcctg 5

5 -αq

α Î [–13,8; 15], q Î [2,1; 6,9], y = {–2; 1,8; 6; 10,5}, x Î [4; 15].

sin k

+ν

Варіант 11.ω = 3

5,7 ×10−2 eη−

3,18×arcctg

k+2ν

k + 7,6η

1- log5

η = {–5; –2,3; 0,7; 4; 6},

ν Î [3; 17], x Î [–12,3; 196,8],

k Î [15; 12500].

Варіант 12.

Y =

4ez+0,3 + tgλ

- 5,83×arccos

3,65×10−2

7,1af

- ctgz

8.5−2sin f - ln

a Î [15; 60], f Î [ –161; 87],

λ Î [1,6; 5,8],

z = {0,8; 4,87; 19; 23}.

s + 8,3sin2 δ

2,3 +1

Варіант 13.

M = 2,78log

2s2 +1

δ + ctgv3

2π - arcsin(10−3 ×δ )

δ = {–67; –8; 17; 49; 284}, s Î [37; 54], v Î [ 97; 986,5].

Варіант 14.

τ =

1,641

×10−2 -

ed+sinσ

- 5×lg3 y2

- log5

+ d 2

16,3 - arcctg

λ Î [7; 25], y Î [–16,7; 186,1],		σ Î [92; 41000], d = {–1,6; 2; 8; 15,7}.
	sin2 x3+lg		tgβ 2,7

Варіант 15. F = 3,7e−				-	β + 2arccos 3	1- sin2 πm
		1,55+cosα					,
					x + 3,76	×10−2

α Î [–164; 12,5], β Î [3,6; 274],

x = {–2; –0,9; 1,2; 5; 19},

m Î [10; 90].

2x + ctgb

1,25×10−2 f - 0,67arcctg

Варіант 16.

P = log

f - sin b

ex+b - 5

2m + f

x Î [5 ; 20], f Î [–127; 56,1],

m = {–3,1; –1; 1,7; 9,2},

b Î [7; 20].

2ex+sinη - ctgk

Варіант 17.

M = arccos

2,41

×10−2 x + k

1+ 3

π 2 - log2 a

η Î [–154,3; 53], x Î [2,7; 8,9],

k Î [23; 88], a = {0,6; 7,9; 9,3; 30,5}.

Варіант 18.

V =

tgβ + 2,86×102 log

dx2

- 3,61e1+αd

πd

+ 2

2πd - arcsin3 3

1- sin3 α

α = {–3; –1,7; 2,9; 4}, β = {4; 7,4; 19; 26},

x Î [–6,8; 89,3],

d Î [1; 7].

2,8× arcctg

α - k3,2

- lg k

Варіант 19.

Z =

- 3

3 - 8,9

cos2 b3

6,73×10−3 ex+sin2 b + αx3

α Î [–45,8; 73,5], k Î [76; 273,9], x Î [15; 30], b = {–4,5; –2; 4,7; 8,1}.

πd cos2 α + ln

5,12p - y3

Варіант 20.

β = arccos 5

+ ey−sin d

4,871×10−3 d 3 -

1+ p2

y Î [2; 8], d Î [16,2; 43], α = {2; 8,3; 11,9; 27,3},

p = {–8; –3,5; 5; 8,3}.

1,6e−μ+tgi

Варіант 21.

λ =

+ 5,9cos2 t5 -1

tμ

- 5

- log3

2π - arcsin

0,3

1- 4,7 ×10−4 h

h Î [ –3,8; 89,3], t Î [7; 34], i Î [32; 50],

μ = {–1,7; 0,6; 5; 8,3; 17}.

1,78 ×103 lg

γ -τ 2

- tgz

Варіант 22.

R = 3

3,7ea+4sin

τ - γ 3

3 + arcctg 1+ cos2 aγ

τ = {4; 8,7; 15,6; 31}, z Î [ –35,9; 197],

a Î [ 25; 86,5], γ = {8; 15; 22}.

Варіант 23.

K = 4,8×10

sin

lg 5

2,2i + tgd

- arcsin

0,1

1- cosσ

t +

σ × d

σ Î [27,4; 75], d Î [–18,4; 78],

t = {7,1; 9; 13,7; 41}, i = {50; 150, 750}.

7,43×102 ln

β 2 - v3

Варіант 24.

U =

+ ctg3

a × β

2a + arccos3 3 1- 0,7sin2 β 3

β Î [17; 40], a Î [–371,6; 1700], p Î [–23,7; 5], v = {3,1; 18; 42,9; 56,7}.

Варіант 25. σ =

eπ +lg

y+k

- 8,1×102

+ 2,7arcctg5

β +

π - sinτ

τ 4.1 + β 2 + 2tg y

k Î [12; 76], y Î [–2; 8,9], β = {–3,9; –1,1; 2,5; 4,9}, τ = {5,1; 9; 22,5}.

arcsincos2

2,6

Варіант 26. μ = 3

x2 -

- 3ed +log5 λ +

d + x

d + tg 5×102 + λ

λ Î [–169,7; 8], d Î [–13,9; 29], x Î [9; 25], f = {–0,9; 0,7; 4; 8,9; 19}.

Варіант 27. Y = lg

sin2

v -

3,1+ a2

+ 6,1arccos

1- sin β

1,93×103

+ ctgz

ez+2

β Î [8,4; 98], v Î [67,1; 785], z = {–7,1; –3; 1,3; 5,8}, a Î [70; 520].

Варіант 28.

G = log3 5

ex−cosγ - 5,32tg2m

- arcctg

3 γ +

γ ×b + 9,4 ×10−2 sin x2

x Î [ –23,7; 8], γ Î [18,6; 184],

m Î [60; 840],

b = {–9,1; –2; 3,7; 15,6}.

5,29×10−5 ln

b + λ2

Варіант 29.

T = 8,2eλ+tg

1+sin3α 2 - arcsin

c3 + ctgα 2

+ 7,23b

b Î [45; 69], c Î [–19,6; 176], α Î [16,5; 78],

λ = {–2,5; 0,9; 8; 19; 27}.

Варіант 30.

β = arccos 3

1 - sin

2 d3

μ - ln3 a2

2,7 + log2

1,5 + e

a−tgx

1+ sin2 d

a = {–3,2; –0,7; 8; 11}, d Î [–12,8; 7], μ Î [11; 19], x = {14; 18; 42; 74}.

Завдання 4. Програма циклічної структури. Розробити про-

граму на VBA для обчислення значень функцій при зміні аргументу х від початкового значення до кінцевого з заданим кроком Dx для свого варіанта індивідуального завдання. Програма повинна запускатися на виконання клацанням по кнопці з написом "ЛР4 Прізвище", що знаходиться на поточному робочому листі Excel, і виконувати наступні дії:

-вивід у першому рядку поточного листа тексту, що починається з комірки A1 і містить назву і номер роботи;

-вивід у другому рядку тексту, що починається з комірки A2 і містить прізвище, ініціали, групу;

-вивід у четвертому рядку тексту "Результати розрахунку" що починається з комірки A4;

-розрахунок значення функцій відповідно до індивідуального завдання;

-вивід значень аргументу й функцій у вигляді таблиці, що починається з комірки А5.

Запустити програму на виконання. За даними одержаної таблиці засобами Excel побудувати графіки залежності функцій від аргументу. Текст програми на VBA і лист Excel з результатами розрахунку надрукувати.

Дані для індивідуального завдання 4.

Варіант

S = t +

t = tg2x для a = 2,4; 1,7 ≤ x ≤ 3; x = 0,2 .

Варіант

S = sin p

для a = 0,6;

p =

a + ln x

; 1 £ x £ 2; Dx = 0,2 .

Варіант

t = x2 - r,

для r = 3

2a - x

;

a =1,4; -1 £ x £ 1,6; Dx = 0,3 .

Варіант

y = ln x; b =

; c = ea+ x

для a = 0,8; 0,4 £ x £ 1,6; Dx = 0,2 .

Варіант

y = ln x + a; b =

a - x

для a =1,8; 1£ x £ 2,5; Dx = 0,3 .

Варіант

z = 2a ×ex−a ; d = 0,69cos3 3x

для a = 0,3; 0,8 £ x £ 1,8; Dx = 0,2 .

Варіант

d = cos(a + x); c = 5

для a = 2,4; 1 £ x £ 2,6; Dx = 0,4 .

a + x

Варіант

y =

; m = tg

(3 x - 0,7 )

для a = -2,6; 1,2 £ x £ 4,6; Dx = 0,8 .

2ax

Варіант

m =

;

ρ = 3

a -1,8sin2 3x

для a =1,2; 1,4 £ x £ 2,8; Dx = 0,2 .

+ x

Варіант

10.

z = cos(a − x); y = sin 2 (a + x)

для a = 1,6; 0,3 ≤ x ≤ 1,8; x = 0,2 .

Варіант

11.

k = e2+x ; p = 3

− x

для

a = 1,5; 0,5 ≤ x ≤ 1,8; x = 0,3 .

1+ a

Варіант 12.

	x	æ	a ö
m = a		; t = 2cosç		÷ для a = 2,8; 0,2	£ x £ 1,4;	Dx = 0,3

		è	4x ø

Варіант 13.

l = ctgax;

k =

для a = 2,3; 0,4 £ x £ 1,6; Dx = 0,2

+ x

Варіант 14.

p =

; ρ = cos3 (1− x)

для a = 1,72; 1 ≤ x ≤ 3,2; x = 0,4

a − x

Варіант 15.

t =

2x; b =

для a = 2,3; 0,4 ≤ x ≤ 1,6; x = 0,2 .

a + x

Варіант 16.

k = 2ln(a + x); l =

для a = 2,86; 0,1≤ x ≤1,7;

x = 0,2 .

Варіант 17.

c =

для a = 2,2; 2 ≤ x ≤ 4;

x = 0,5 .

x2 − a

; t = sin2 ax

Варіант 18.

z = cos(ax)2 ; p =

для

a = 1,42; 1,4 ≤ x ≤ 2,8;

x = 0,2 .

ln x

Варіант 19.

δ = sin x − a; p = x2 − a; k = δ + p для a = 1,7; 0,4 ≤ x ≤ 1,9; x = 0,2 .

Варіант 20.

b = cos2 ax; z =			1+ x		для a = 2,75; 1,4 £ x £ 2,8; Dx = 0,2 .
	Варіант 21.
l = (a + x)3 ; b =					для a = 4,6; 2 ≤ x ≤ 4,5; x = 0,5 .
l = (a + x)3 ; b =				a + x	для a = 4,6; 2 ≤ x ≤ 4,5; x = 0,5 .
	Варіант 22.
		+ x2
f =	a − x			для	a = 1,5; 0,5 ≤ x ≤ 2,5; x = 0,3 .
	a − x

	4ex ln a
	4ex ln a

<<< < Предыдущая 1 2 34 / 54 5 > Следующая >>>

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

#
06.02.2016357.76 Кб8пример курсового.pdf
#
06.02.2016870.51 Кб70Пример курсовой работы по Delphi (Кафедра).pdf
#
06.02.2016142.85 Кб6програма бакалаврського экзамену ПИ 2012.doc
#
15.11.2019134.14 Кб1Программа для заочников.doc
#
18.11.2019144.38 Кб1Программа изучения курса Полит критерии и разде...doc
#
06.02.2016308.03 Кб29Программирование_на_VBA в_Excel.pdf
#
06.02.20161.06 Mб217Пропущенные лекции по ЭТМ.doc
#
13.11.201920.95 Кб15Професійна культура спілкування та діловий етик...docx
#
06.02.20162.07 Mб8проэктирование городской улици.doc
#
23.08.201937.7 Кб1ПТП.docx
#
06.02.2016506.88 Кб14рабочая тетрадь к практическим занятиям.doc