82
t2=” “
t3=” “
End Sub
Sonra Forma(object) pəncərəsinə keçib ―Hesabla‖ prosedurunu hazırlayırıq. Yəni,
cmdHes
əmr düyməsi üzərində sol düyməni 2 dəfə basıb kod pəncərəsini açıb proseduru aşağıdakı
kimi yazırıq:
Option Explickt
Dim a, b, c As Single
Private Sub cmdHes_
Click()
a=Val(t1)
b=Val(t2)
c=a-b
t3=str(c)
End Sub
Sonra
Run və ya
F5 düyməsi ilə layihəni icraya buraxırıq. Sonra ―Son‖ düyməsini basıb,
işi bitiririk. Sonra
Excel faylına ad verib yadda saxlayırıq. Sonra
Сервис-də
Защита-
Параметры-
Безопасность-
Средняя marşrutu ilə Excelin müdafiə rejimini orta
səviyyəyə endirməli. Sonra
Servis-
Redaktor Visual Basic- ok marşrutu ilə formanı açıb
F5-lə işləmək olar.
Sonra isə Сервис-də
Защита-
Параметры-
Безопасность-
Высокая
marşrutu ilə Excelin müdafiə rejimini bərpa etmək lazımdır. Əgər növbəti açılışda forma
görünməzsə, Alt+F11 düyməsi ilə module bəndinə keçmək
və sonra Play bəndi ilə
layihəni işlətmək olar. Ən yaxşısı Excel səhifəsində Forma açan düymə yaratmaqdır.
Bunun üçün modulda:
Dostları ilə paylaş: