Dodanie dwóch liczb za pomocą makr nie powiodło się

Jak dodać 2 liczby za pomocą makr? Próbowałem poniżej, ale nie jestem w stanie wykonać.

Sub auto_open()
       n1 = InputBox("enter fiest number")
     n2 = InputBox("Enter 2nd number")
      Range("a1").Value = n1 + n2
End Sub

microsoft-excel vba macros Sevak
źródło

Możesz także przekonwertować je na liczby takie jak [A1] = CDbl(n1) + CDbl(n2). Cbld oznacza ConvertToDouble

nixda

Odpowiedzi:

Ciekawe: właśnie to sprawdziłem i działa :-)

Czy jest prawdziwy komunikat o błędzie lub czy nie widzisz żadnego efektu?

Gdzie dokładnie umieściłeś kod?

Nie określasz wcześniej arkusza Range("a1").Value aby wynik mógł być zapisany tam, gdzie się go nie spodziewasz.

EDYTOWAĆ / PS: jeśli chcesz dodać je jako liczby, które musisz podać n1 i n2 numeryczny typ danych (nawet jeśli VB pozwala ci zrobić prawie wszystko niezaznaczone), w przeciwnym razie wydają się być łączone jako ciągi.

FredP
źródło

Dzięki za ur pomoc ..... tak i zadeklarowałem n1 i n2 jako liczby całkowite. więc czy obowiązkowe jest zadeklarowanie zmiennych?

Sevak

Nie, nie jest to obowiązkowe w VB (chyba że używasz option explicit ) ale wpisanie zmiennych może uchronić Cię przed błędami i pomóc w znalezieniu błędów.

FredP