Макрос "Formula_Select"

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Макрос "Formula_Select" (выбирает в диапазоне Selection ячейки с формулами)

Макрос "Formula_Select"

Alex_ST

Дата: Понедельник, 30.08.2010, 11:18 | Сообщение № 1

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 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!!!

Ответить

Alex_ST

Дата: Воскресенье, 09.09.2012, 21:22 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3214

Репутация: 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

Ответить

Макрос "Formula_Select" (выбирает в диапазоне Selection ячейки с формулами)

Страница 1 из 1
1