userformda kaydediliyor görüntüsü mümkün mü?

[woxow]

merhaba, visual basic'te yaptığım uygulamayı açılışta userform açılacak şekilde yaptım. Şu an program gibi çalışıyor, excel sayfaları kapalı. Epeyce boyutlu ve kapsamlı bir dosya olduğu için kaydederken biraz beklemek gerekiyor. Bu 5-10 saniyelik beklenen sürede kaydediliyor ekranı yapmak mümkün mü acaba. Zannetmiyorum ama yinede bir sorayım dedim. Teşekkürler

 

[Seyit Tiken]

Aşağıdaki kodu kendinize uyarlayınız.

UserForm1.ProgressBar1.Min = 0
UserForm1.ProgressBar1.Max = 20000
For i = 1 To 20000
UserForm1.ProgressBar1.Value = i
Next i

 

[TURKOLOG]

Aşağıdaki kodu kendinize uyarlayınız.

UserForm1.ProgressBar1.Min = 0
UserForm1.ProgressBar1.Max = 20000
For i = 1 To 20000
UserForm1.ProgressBar1.Value = i
Next i

Sayin @Seyit Tiken Bu kodu ilgili userformda nereye yazacağız bu konuda daha ayrıntılı yazarsaniz bende denemek isterim
Bir de 20000 bekleme süresi mı oluyor onu 5000 yapabilir miyiz

 

[Zeki Gürsoy]

ProgressBar1, özel bir form kontrolüdür. Bilgisayarınızda yüklü değilse kullanamazsınız. Diğer bir konu ise, kayıt süresinin tespit edilememesi. Bu nedenle dosya kayıt süresince ekranda bir userform'un görünür olması muhtemelen işinizi görecektir.



ThisWorkbook:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Unload UserForm1
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    UserForm1.Show vbModeless
End Sub

UserForm1:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = IIf(CloseMode = vbFormControlMenu, True, False)
End Sub

 

[woxow]

teşekkür ederim. şu an beceremedim ama üzerinde biraz çalışacağım, kodları kaydettim. aklıma bir şey daha geldi gibi biraz çalışayım bu mevzuda. kolay gelsin.