Необходимо очистить несколько различных диапазонов листа:
Вопрос: Как нужно обозначить этот объединенный диапазон "ГодABCDEF", чтобы могла сработать очистка?
| Код |
|---|
Option Explicit
Dim ГодA
Dim ГодB
Dim ГодC
Dim ГодD
Dim ГодE
Dim ГодF
Dim ГодABCDEF
Set ГодA = Range("C14:AF763")
Set ГодB = Range("C764:AH764")
Set ГодC = Range("AV14:AZ763")
Set ГодD = Range("AI14:AL763")
Set ГодE = Range("F770")
Set ГодF = Range("E8")
Set ГодABCDEF = Application.Union(ГодA, ГодB, ГодC, ГодD, ГодE, ГодF)
Sub Год_очистка()
'очистка всех заполняемых ячеек
If MsgBox("Вы действительно хотите очистить форму?", vbYesNo + vbCritical) = vbYes Then _
ActiveSheet.Range(ГодABCDEF.Address).ClearContents
End Sub
|
Данная конструкция выдает ошибку "Run-time error '1004' application-defined or object-defined error".
Знаю, что это можно обойти просто указав диапазоны без объединения, которые имеются в начале, но эти диапазоны повторяются в нескольких процедурах этого листа, поэтому необходимо их обозначить одиножды.Вопрос: Как нужно обозначить этот объединенный диапазон "ГодABCDEF", чтобы могла сработать очистка?
