Как мне сосчитать до 10 при суммировании чисел в Excel VBA?

Question

Как мне сосчитать до 10 при суммировании чисел в VBA?

Answer 1

Dim Sum as Integer
Sum = 0 

Dim I as Integer

For I = 1 to 10
    Sum = Sum + I
Next

Редактировать : Для дальнейшего использования, пожалуйста, обратитесь к разделу Microsoft MSDN по Visual Basic для приложений (VBA)

Answer 2

Вопрос помечен VB6, поэтому:

Dim Sum As Integer
Dim i As Integer
For i = 1 To 10
    Sum = Sum + i
Next i

Answer 3

Вот оптимизированный способ сделать это. Нет разницы в скорости, но это хорошая практика, чтобы знать о.

1. Используйте long вместо целого числа, так как Excel изначально использует long

2. Развернуть цикл как минимум на один уровень

   Dim Sum As Long
   Dim i As Long
   
   For i = 1 to 10 Step 2
      Sum = Sum + i
      Sum = Sum + (i + 1)
   Next
   

Надеюсь, это поможет!