Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание слепой зоны - для Workbook_SheetCalculate - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание слепой зоны - для Workbook_SheetCalculate (Макросы/Sub)
Создание слепой зоны - для Workbook_SheetCalculate
InExSu Дата: Вторник, 13.03.2018, 23:40 | Сообщение № 21
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет!
как временно отключить Летучую функцию

[vba]
Код
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
  Application.EnableEvents = False
  With Sh
    .Range("A1").Value = vbNullString
    .Range("F9").Value = .Range("F9").Value + 1
    .Range("I11").Value = .Range("I11").Value + 1
    .Range("A1").FormulaR1C1 = "=RANDBETWEEN(1,1000)"
  End With
  Application.EnableEvents = True
End Sub
[/vba]


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Сообщение отредактировал InExSu - Вторник, 13.03.2018, 23:42
 
Ответить
СообщениеПривет!
как временно отключить Летучую функцию

[vba]
Код
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
  Application.EnableEvents = False
  With Sh
    .Range("A1").Value = vbNullString
    .Range("F9").Value = .Range("F9").Value + 1
    .Range("I11").Value = .Range("I11").Value + 1
    .Range("A1").FormulaR1C1 = "=RANDBETWEEN(1,1000)"
  End With
  Application.EnableEvents = True
End Sub
[/vba]

Автор - InExSu
Дата добавления - 13.03.2018 в 23:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание слепой зоны - для Workbook_SheetCalculate (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!