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

Вход

Регистрация

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

 

= Мир MS Excel/Проверка была записана формула в ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Проверка была записана формула в ячейки
Tantan Дата: Понедельник, 30.01.2012, 23:33 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Здраствуйте г-да специалистый!
У меня такой вопрос : Как можно в рамки кода VBA for EXCEL проверить содержании ячейки содержить ли формулу?Если можно дайте какой то примерчик!
 
Ответить
СообщениеЗдраствуйте г-да специалистый!
У меня такой вопрос : Как можно в рамки кода VBA for EXCEL проверить содержании ячейки содержить ли формулу?Если можно дайте какой то примерчик!

Автор - Tantan
Дата добавления - 30.01.2012 в 23:33
IgorGo Дата: Вторник, 31.01.2012, 01:01 | Сообщение № 2
Группа: Друзья
Ранг: Форумчанин
Сообщений: 108
Репутация: 38 ±
Замечаний: 0% ±

Code
Sub test()
   For Each cell In UsedRange
     If cell.HasFormula Then MsgBox cell.Formula, vbOKOnly, cell.Address
   Next
End Sub
 
Ответить
Сообщение
Code
Sub test()
   For Each cell In UsedRange
     If cell.HasFormula Then MsgBox cell.Formula, vbOKOnly, cell.Address
   Next
End Sub

Автор - IgorGo
Дата добавления - 31.01.2012 в 01:01
Hugo Дата: Вторник, 31.01.2012, 01:04 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
[vba]
Code
Sub tt()
Dim cc As Range
For Each cc In [a1:a10]
If cc.HasFormula Then MsgBox cc.Address
Next
End Sub
[/vba]

P.S. У меня зато красивее smile


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение[vba]
Code
Sub tt()
Dim cc As Range
For Each cc In [a1:a10]
If cc.HasFormula Then MsgBox cc.Address
Next
End Sub
[/vba]

P.S. У меня зато красивее smile

Автор - Hugo
Дата добавления - 31.01.2012 в 01:04
Tantan Дата: Вторник, 31.01.2012, 12:29 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Tantan,
Спасибо Большое ИгорГо!
 
Ответить
СообщениеTantan,
Спасибо Большое ИгорГо!

Автор - Tantan
Дата добавления - 31.01.2012 в 12:29
  • Страница 1 из 1
  • 1
Поиск:

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