MVP logo
    Sizin Brauzer: , Versiya
Çərşənbə axşamı, 27.06.2017, 8:46 PM
Salam Qonaq | RSS
Ana səhifə | Fayl Kataloqu | Qeydiyyat | Giriş
Saytın menyusu

Kateqoriyalar
VBA [21]
Formullar [31]
Massiv Formullar [11]
Ümumi [4]

Sorğu
Saytın hansı bölməsini daha çox maraqlı hesab edirsiniz?
Səsvermə sayı: 124

Statistika

Cəmi online: 2
Qonaqlar: 1
Userlər: 1
Useful

Müsabiqələr

Ana səhifə » Fayllar » Excel Tricks » VBA

ilk VBA-nız
07.01.2012, 11:24 PM

1.Msgbox ilə ilk VBA-nızın yazılması qaydası

Sub ILK_VBA() 'VBA-da ilk addiminiz

MsgBox "Tebrikler! Siz artiq Excelde Ilk VBA-nizi yazdiniz"

End Sub

2.Mesaj qutusunda yalnız "Cari Saat"ın görsənməsi

Sub Cari_Vaxt() 'Mesaj penceresinde cari saatin gorsenmesi
MsgBox Time ‘Burada ‘Time” cari saati gostermeye xidmet edir.
                   ‘Burada cari tarix ve saatin gosterilmesi uchun ise "Now” ishledilir.
End Sub

Xülasə: Əgər siz aktiv excel kitabınızda neçə səhifə olduğunu və ya aktiv səfihə adını Msgbox-da (Mesaj pəncərəsində) görmək istəsəniz onda uyğun olaraq "Time” əvəzinə "Sheets.Count” və ya "ActiveSheet.Name” yazılmalıdır və s bu kimi başqa informasiyaları da bu cür əldə etmək mümkündür.

3.Burada isə məsələn "Salam Saat 15:30:25 dir” yazısını əldə etmək üçün aşağıdakı koddan istifadə edilir.

Qeyd: "&” işarəsi "Time” və digər üç sözün birləşdirilməsi məqsədilə istifadə edilir.
"Time”-cari saatı göstərir


Burada Time =15:30:25 qalan mətnlər isə saatin sağ və sol tərəfə yerləşdirilir.

Sub saati_goster()
MsgBox "Salam saat " & Time & " dir"
End Sub

və nəticə olaraq siz "Salam Saat 15:30:25 dir” yazısını əldə etmiş olursunuz.

Kateqoriya: VBA | Yükləyən: Useful
Baxış sayı: 392 | Yükləmə sayı: 0 | Ratinqi: 0.0/0
Cəmi şərhlər: 0
Ad *:
E-poçt:
Kod *:
Daxil ol

Axtar

Dost Saytlar
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Sayğac
    free counters

    Saytın məlumatlarından istifadə edərkən mənbəyə istinad zəruridir!
    MyExcelWorld © 2010 - 2017
    Site managed by uCoz
    ILK-10 Azeri Website Directory