Как передать переменные между листом и книгой?

Question

В конечном счете, я пытаюсь выделить ячейки, когда фокус удаляется от книги.

Вот мой код (в ThisWorkbook):

Public s As Range 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    s = Selection 
End Sub 

Private Sub Workbook_Deactivate() 
    s.Interior.ColorIndex = xlColorIndexNone 
    s.Interior.Color = RGB(0, 0, 0) 
End Sub 

Private Sub Workbook_Activate() 
    s.Interior.ColorIndex = xlColorIndexNone 
    s.Interior.Color = RGB(100, 204, 204) ' Blue 
End Sub 

Но я получаю сообщение об ошибке на первом s.Interior.ColorIndex Засада:

Object variable or With block variable not set

---

Вот некоторые изображения моего env:

Лист1

ThisWorkbook (Error подсвечена):

Answer 1

Есть несколько вопросов:

1) Для того, чтобы он был виден на протяжении всего проекта, Общественная переменная объявления должны быть в стандартном модуле кода. Таким образом, линия

Public s As Range 

не должно быть в ThisWorkbook, но должна быть в стандартном модуле кода.

2) s = Selection должен быть изменен на Set s = Selection

3) к югу

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Set s = Selection 
End Sub 

Должно быть в модуле листа (и повторяется для каждого листа, который вы хотите это для). Это не синтаксическая ошибка в ThisWorkbook, но она не будет работать должным образом.

4) Опасно предположить, что s определяется при срабатывании activate или deactivate. Вы должны защищаться от этого. Что-то вроде:

Private Sub Workbook_Activate() 
    If s Is Nothing Then 
     Set s = Selection 
     Exit Sub 
    End If 
    s.Interior.ColorIndex = xlColorIndexNone 
    s.Interior.Color = RGB(100, 204, 204) ' Blue 
End Sub 

С чем-то подобным для Deactivate.