program çalışırken makro ile işlem yapıldığı anda kum saati gözükür mü?

[olymposss]

sn hocalarım ve arkadaşlar

bu siteden öğrendiğim birçok şey ile kendime güzel bir program yazıyorum. yardımcı olan herkese çok teşekkür ederim.

programı çalıştırdığım zaman ana menü olarak bir userform açılıyor.formun üstündeki birkaç tuş ile işlem yaptırıyorum.(mesela cari hesap kaydı,ürün girişi vs.) bu tuşlara bastığım zaman işlem devreye girerken ki sürede mousenin ok tuşunda kum saati veya başka bir nesne belirleyebilirmiyiz? belirleyebilirsek eğer, bunu tek bir kod ile yazabilirmiyiz.(mesela hani thisworkbook kısmına yazılacak bi kod var ise genel olarak makro işlerken kum saati çıksın.)
yardımcı olacak herkese teşekkür ederim.
saygılar:yardim:

 

[Kemal Demir]

Kum saati içindir.

CommandButton1.MousePointer = fmMousePointerHourGlass

Veya aşagıdaki kodu el göstermesi için kullanınız.

Private Sub UserForm_Initialize()
CommandButton1.MousePointer = fmMousePointerCustom
CommandButton1.MouseIcon = LoadPicture("C:\Windows\Cursors\HARROW.CUR")

End Sub

 

[olymposss]

sn rakkas

ilginize çok teşekkür ederim. aslında bu durumda aklıma takılmıştı sayenizde öğrendim.ancak benim sormak istediğim biraz daha farklı.
butona bastıktan sonra makro işlem yapmaya başlayınca kum saatinin gözükmesi işlem bitincede kum saatinin tekrar ok şekline dönmesi. sanırım ben eksik açıklama yaptım kusura bakmayın.
saygılar:yardim:

 

[Kemal Demir]

Soyle deneyınız.

Private Sub CommandButton1_Click()
CommandButton1.MousePointer = fmMousePointerAppStarting
For x = 1 To 10000
Range("a1").Value = x
DoEvents
Next
CommandButton1.MousePointer = fmMousePointerDefault
End Sub


Yukarıdaki Ornek Kodu Calısıtırınız.İstediğniz Böyle Birşeymidir.

 

[olymposss]

sn rakkas teşekkür ederim

istediğim bunun gibi bişey di ancak aşağıdaki kodu başına ekleyince çalıştı. x tanımlanmamıştı.

Dim x As Long

teşekkürler emeğinize sağlık.

saygılar:hey: