inputbox ile sayı toplama

[scuba]

Arkadaşlar makrolarda acemi olduğum için çözemedim. Yapmak istediğim şeyi anlatayım A1 hücresine inputbox ile kullanıcının gireceği sayıların toplamını yazacağım do while döngüsü kullanmaya çalıştım ama beceremedim. döngünün bitimi cancel tuşuna basana kadar olacak cancel tuşuna basınca döngü bitip girilen sayıların toplamı A1 e yazılacak.

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
s = InputBox("Bir Sayı Giriniz")
[a1] = [a1] + s
End Sub

Şeklinde deneyiniz.

 

[Haluk]

Cancel (Vazge&#231 tuşuna basana kadar toplamaya devam eder...

Sub Test()
    x = True
    Do While x <> False
        x = Application.InputBox("Say&#305; giriniz....", Type:=1)
        MySum = MySum + x
        Range("A1") = MySum
    Loop
End Sub

 

[scuba]

saygılar sunarım. çok sağol. Birde Mysum vba ya mahsus bir fonksiyonmudur.

 

[Haluk]

Saygı bizden ....

MySum sadece bir değişken adıdır. Alışkanlıktan dolayı değişken adlarını İngilzce seçiyorum.