Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Поиск ячеек в заданном диапазоне по содержанию Добавлено: 09.09.09 16:17  

Автор вопроса:  Jaguar7
Необходимо в заданном диапазоне найти ячейки в содержании которых есть символ":".И потом разбить значение на 2 переменных:первая значение до ":" , вторая после. Помогите ежли знаете как сделать:-(

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 AngryBadger



Вопросов: 33
Ответов: 245
  Профиль | | #1 Добавлено: 09.09.09 21:09
Что-то типа того:
  1. Sub SearchTest()
  2. Set MyRange = Range(Cells(1, 1), Cells(5, 5))
  3. WWSearch = ":"
  4. Set Srch = MyRange.Find(WWSearch)
  5.     If Not Srch Is Nothing Then
  6.         StartCell = Srch.Address
  7.             Do
  8.                 MyArr = Split(CStr(Srch.Value), WWSearch)
  9.                 MsgBox MyArr(0)
  10.                 MsgBox MyArr(1)
  11.                 Set Srch = MyRange.FindNext(Srch)
  12.             Loop While Not Srch Is Nothing And Srch.Address <> StartCell
  13.     End If
  14. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Jaguar7



Вопросов: 2
Ответов: 5
  Профиль | | #2 Добавлено: 11.09.09 15:30
Спасибо!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам