Добрый день.
В файле Эксель есть макрос для вывода при нажатии ячейки всплывающего календаря.
Для вывода календаря в определенных столбцах - на листе (исходный текст) прописано:
Скрытый текст |
---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("I4:I2000")) Is Nothing Then GoCalendar2 End If If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("K4:K2000")) Is Nothing Then GoCalendar2 End If End Sub |
Когда нажимаю на верхний левый угол таблицы чтобы скопировать данные, то появляется ошибка:
Run-time error 6 Overflow.
Календарь при этом работает в прописанных столбцах, но смущает сама ошибка.
Подскажите, пожалуйста, как правильно исправить текст, чтобы она не всплывала.