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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос "Formula_Select" - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Макрос "Formula_Select"
Alex_ST Дата: Понедельник, 30.08.2010, 11:18 | Сообщение № 1
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
Данный макрос выбирает в диапазоне Selection все ячейки, содержащие формулы.
[vba]
Код
Sub Formula_Select()
On Error GoTo Formula_Select_Error
   Selection.SpecialCells(xlCellTypeFormulas).Select
Formula_Select_Error:
   If Err Then MsgBox "Не возможно выделить ячейки с формулами на листе." & vbCrLf _
& Err.Description, vbExclamation, "Ошибка"
End Sub
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеДанный макрос выбирает в диапазоне Selection все ячейки, содержащие формулы.
[vba]
Код
Sub Formula_Select()
On Error GoTo Formula_Select_Error
   Selection.SpecialCells(xlCellTypeFormulas).Select
Formula_Select_Error:
   If Err Then MsgBox "Не возможно выделить ячейки с формулами на листе." & vbCrLf _
& Err.Description, vbExclamation, "Ошибка"
End Sub
[/vba]

Автор - Alex_ST
Дата добавления - 30.08.2010 в 11:18
Alex_ST Дата: Воскресенье, 09.09.2012, 21:22 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
А вот так, пожалуй, покрасивее будет:[vba]
Code
Private Sub Formula_Select()
     On Error Resume Next
     ActiveWindow.RangeSelection.SpecialCells(xlCellTypeFormulas).Select
     If Err Then MsgBox "Невозможно выделить ячейки с формулами:" & vbCrLf _
        & Err.Description, vbExclamation, "Нет формул!"
End Sub
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Понедельник, 10.09.2012, 08:13
 
Ответить
СообщениеА вот так, пожалуй, покрасивее будет:[vba]
Code
Private Sub Formula_Select()
     On Error Resume Next
     ActiveWindow.RangeSelection.SpecialCells(xlCellTypeFormulas).Select
     If Err Then MsgBox "Невозможно выделить ячейки с формулами:" & vbCrLf _
        & Err.Description, vbExclamation, "Нет формул!"
End Sub
[/vba]

Автор - Alex_ST
Дата добавления - 09.09.2012 в 21:22
  • Страница 1 из 1
  • 1
Поиск:

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