Makro kodu çalışırken hangi aşamada olduğunu görmek

[cavanoos]

Merhaba Arkadaşlar;

Makro kodumuz yaklaşık 5 dakika sürüyor.Makro kodunun 10 aşamalı olduğunu düşünelim.İlk aşamasının açıklamasını kodun içine yazsam,bunu ekranda görebilir miyim ?

Kullandığımız muhasebe programında bir tuşa tıklayarak kayıt yaptığımızda "Liste kontrol ediliyor", "Kayıt işlemi devam ediyor" gibi yazılar çıkıyor.Bunun benzerini excelde yapılabilir mi?

 

[İhsan Tank]

Merhaba Arkadaşlar;

Makro kodumuz yaklaşık 5 dakika sürüyor.Makro kodunun 10 aşamalı olduğunu düşünelim.İlk aşamasının açıklamasını kodun içine yazsam,bunu ekranda görebilir miyim ?

Kullandığımız muhasebe programında bir tuşa tıklayarak kayıt yaptığımızda "Liste kontrol ediliyor", "Kayıt işlemi devam ediyor" gibi yazılar çıkıyor.Bunun benzerini excelde yapılabilir mi?

Merhaba
Bir userform oluşturun ve içerisine bir label oluşturun.
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub say()
Dim ts
UserForm1.Label1.BackColor = vbRed
UserForm1.Label1.ForeColor = vbBlue
UserForm1.Label1.Font.Bold = True
[COLOR="Red"]UserForm1.Label1.Font.Name = "Arial"
UserForm1.Label1.Font.Size = 12
UserForm1.Label1.Caption = "1. Aşama"
UserForm1.Show 0
Application.Wait (Now + TimeValue("0:00:01"))
Application.DisplayAlerts = False
[COLOR="Blue"]For ts = 1 To 10
Cells(ts, "A") = 1
Next[/COLOR]
Application.DisplayAlerts = True
Application.Wait (Now + TimeValue("0:00:01"))
UserForm1.Label1.Font.Name = "Arial"
UserForm1.Label1.Font.Size = 12
UserForm1.Label1.Caption = "2. Aşama"
Application.DisplayAlerts = False
[COLOR="blue"]For ts = 1 To 10
Cells(ts, "B") = 1
Next[/COLOR]
Application.DisplayAlerts = True
Application.Wait (Now + TimeValue("0:00:01"))
UserForm1.Label1.Font.Name = "Arial"
UserForm1.Label1.Font.Size = 12
UserForm1.Label1.Caption = "3. Aşama"
Application.DisplayAlerts = False
[COLOR="blue"]For ts = 1 To 10
Cells(ts, "C") = 1
Next[/COLOR]
[/COLOR]Application.DisplayAlerts = True
Application.Wait (Now + TimeValue("0:00:01"))
UserForm1.Label1.BackColor = vbBlue
UserForm1.Label1.ForeColor = vbRed
UserForm1.Label1.Font.Bold = True
UserForm1.Label1.Font.Name = "Arial"
UserForm1.Label1.Font.Size = 12
UserForm1.Label1.Caption = "İşlem Bitti"
Application.Wait (Now + TimeValue("0:00:05"))
Unload UserForm1
End Sub

Kırmızıya boyadığım yeri dikkatli inceleyin. Ben 3 aşama yaptım siz arttırın.

 

[cavanoos]

İhsan Bey;

Kodu henüz denemedim ama bir kaç sorum olacak size.

Makro kodum 400 satır.1 ile 30.satır 1.aşamaya ait işlemlerdir.2.satırda birinci aşamanın açıklaması yazmaktadır.

Yazmış olduğunuz kodda,benim makromun adı nerede geçecektir.Bu kodun içinde nerede devreye girdiğini anlayamadım.Bir de birinci aşamanın açıklaması ikinci satırda yazıyorsa bunu referans olarak nerede göstereceğim.

Timevalue anlamı nedir ?

Yardımcı olabilir misiniz ?

 

[İhsan Tank]

İhsan Bey;

Kodu henüz denemedim ama bir kaç sorum olacak size.

Makro kodum 400 satır.1 ile 30.satır 1.aşamaya ait işlemlerdir.2.satırda birinci aşamanın açıklaması yazmaktadır.

Yazmış olduğunuz kodda,benim makromun adı nerede geçecektir.Bu kodun içinde nerede devreye girdiğini anlayamadım.Bir de birinci aşamanın açıklaması ikinci satırda yazıyorsa bunu referans olarak nerede göstereceğim.

Timevalue anlamı nedir ?

Yardımcı olabilir misiniz ?

Merhaba
Üstteki kodda maviye boyadığım yerler
Timevalue aktif zaman demek o raya yazdığım kod ise aktif zaman eğer 1 saniye oluyorsa diğer koda geç demek.

 

[cavanoos]

İhsan Bey;

For ts = 1 To 10

bu satırı ben

For ts = 1 To 30 olarak mı çevirecem ?

Benim makromun adı "İşbankası_kaydet" bunu nereye yazmam lazım ?

 

[İhsan Tank]

İhsan Bey;

For ts = 1 To 10

bu satırı ben

For ts = 1 To 30 olarak mı çevirecem ?

Benim makromun adı "İşbankası_kaydet" bunu nereye yazmam lazım ?

Maviye boyadığım yere bu kodu yazarak deneyin.
Döngüye almanıza gerek yok ben örnek olarak söylemiştim.
Her aşamaya bir makro adını yazın ve deneyin kısaca