Mavzu:VBA da Interfaol formalar
yaratish
Amaliy mashg’ulotning mazmuni: MS Excel dasturi
orqali ish tushurilgan
xujjatda rasmni aks ettirish va uni olib tashlash.
1.MS Excel dasturiga kirib Visual Basic dasturiga kiring:
Разработчик – Visual Basic
2.Oynaga forma hosil qiling:
3.Formaga Image boshqaruv elementini o’rnatib, xususiyatlar oynasidan
rasmni tanlang: Propreties – Picture – none(shu yerdan rasm ko’rsatiladi). Agar
rasmning hajmi forma xajmidan katta bo’lsa PicrureSizeMode
xususiyatidan
fmPictureSizeModeStrech tanlang.
4.ToolBox boshqaruv elementlarining to’plamidan Label boshqaruv
elementini olib rasm uchun izoh yoki ixtiyoriy matnni kiritishingiz mumkin.
5.Workbook (ЭтаКнига) sichqonchani 2
marta chertib,
kodlar oynasidan
WorkBook tanlab unga quyidagi kodni yozamiz:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
6.
Formani tanlab, sichqonchani o’ng tomonin bosib viewCode buyrug’ini
tanlaymiz. Oynaga quyida kodni kiritamiz:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub
7.Insert- Module tanlab unga quyidagi kodni kiritamiz:
Private Sub KillTheForm()
Unload UserForm1
End Sub
8.Faylni makrosni qo’llab quvvatlaydigan qilib saqlang.