komut düğmesine her bastığımda 1 sayı arttsın

[Muhammet Okumuş]

komut düğmesine her bastığımda a1 hücresinin bir sayı artmasını istiyorum.Bunun için nasıl kod yazılabilir

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sayac()
    [A1] = [A1] + 1
End Sub

.

 

[mustafaine1]

Dim a As Integer
a = [A1].Value
[A1].Value = a + 1

gibi olabilir, nerde nasil bir amacla kullanicaginiza bagli..

 

[Muhammet Okumuş]

hocam ikinize de çok teşekkür ederim.

 

[Muhammet Okumuş]

yeni konu açmayayım dedim.bu konuyla alakalı değil ama bir sorum daha olacaktı
sub abc
call sec1
call sec2
end sub

call komutunu zamanla çağırmak mümkün mü?aralarında 2 sn olacak şekilde ayarlayabilirmiyiz.

 

[mustafaine1]

Application.Wait (Now + TimeValue("0:00:02" ))

arasina ekleyiniz sorununuzu cozecektir saniyorum..

 

[Muhammet Okumuş]

sn mustafaine çok teşekkür ederim.peki makro minumum saniyeyi kaça bölüyor.örneğin 10 salise aralıklarla yapmak mümkün mü?

 

[mustafaine1]

daha kisa bir zamana mi ihtiyaciniz var, 00:00:00:10 denediniz mi ben denemedim ama olma sansi var sanirim

 

[Muhammet Okumuş]

denedim ama olmad.üzeri sarı bir dolguyla kaplandı

 

[leumruk]

Merhaba,
Aşağıdaki gibi deneyin:

Sub abc()
Do While x < 2
basla = Timer
Do While Timer < basla + [COLOR="red"]0.5[/COLOR]
DoEvents
Loop
x = x + 1
If x = 1 Then
Call sec1
ElseIf x = 2 Then
Call sec2
End If
Loop
End Sub

Kırmızı alandan süreyi kendinize göre ayarlayabilirsiniz.