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

Вход

Регистрация

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

 

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

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

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

[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]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839

Сообщение отредактировал 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-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!