Задача: MS Excel Программирование VBA для абсолютного новичка

Question

Я изучаю VBA, используя комбинацию VBA для чайников и вышеупомянутую книгу. Последний, представляет собой простой вызов (вызов 2, глава 2), о котором я хотел бы попросить некоторых о некоторых отзывах.

Задача заключается в следующем:

Поместите элемент управления Кнопка Команда на листе и написать программу в Щелк) процедуру события (который увеличивает переменную на 5 с каждым щелчком мыши. Вывести значение этой переменной в поле сообщения.

Я соединил следующий фрагмент кода в ответ:

Sub CommandButton1_Click() 
Dim AddClick As Integer 

AddClick = Range("A1").Value 
AddClick = AddClick + 5 
Range("A1").Value = AddClick 

MsgBox AddClick 

End Sub 

Хотя код работает, я уверен, что есть способ, чтобы исключить использование «Range („A1“) .Value ', чтобы включить переменную AddClick. Как мне это сделать?

* Обновление: благодаря предложению Коди Грея (http://articles.techrepublic.com.com/5100-10878_11-5854605.html), я пересмотрел код на следующий, который теперь работает просто отлично (отредактировано для дальнейшего упрощения): *

Sub CommandButton1_Click() 
Static AddClick As Integer 

AddClick = AddClick + 5 

MsgBox AddClick 

End Sub 

Simples. Еще раз спасибо Коди.

Answer 1

Оба предыдущих образца ошибочны, я думаю. Правильная версия приведена ниже:

Sub CommandButton1_Click() 
    Static AddClick As Integer 
    AddClick = AddClick + 5 
    MsgBox AddClick 
End Sub 

Answer 2

Определите переменную на уровне модуля.
Выполнение этого увеличит область действия переменной от процедуры к модулю.

Замените существующий код на этот.

Option Explicit 
Dim AddClick As Integer 

Sub CommandButton1_Click() 
    AddClick = 0 
    AddClick = AddClick + 5 

    MsgBox (AddClick) 
End Sub 

Примечание: Определение переменной на уровне процедуры ограничит ее срок службы.
Т.е. переменная не будет доступна за пределами процедуры.