Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
поиск объединенных ячеек
 
#1
19.10.2009 11:53:52
помогите организовать средставми VBA поиск на листе объдиненных ячеек с записью результатов (массив областей, занимаемых этими ячейками)
 
 
 
#2
19.10.2009 12:11:57
.MergeArea.Address
 
 
 
#3
19.10.2009 12:18:46
Sub Макрос1()  
 
For r = 1 To 10  
   For c = 1 To 10  
       If Cells(r, c).MergeCells = True Then Debug.Print Cells(r, c).MergeArea.Address  
   Next  
Next  
End Sub
 
 
 
#4
19.10.2009 12:30:54
Или так можно:  
Sub MergeInfo()  
Dim iRange As Range  
Dim iCell As Range  
Set iRange = ActiveSheet.UsedRange  
  For Each iCell In iRange  
     If iCell.MergeCells Then  
        MsgBox "Ячейка " & iCell.Address & " входит в состав объединённых в диапазоне: " & iCell.MergeArea.Address  
     End If  
  Next  
End Sub
 
 
 
#5
19.10.2009 12:41:24
Юр, объясни мне эту формулировку  
 
For Each iCell In iRange  
 
????
 
 
 
#6
19.10.2009 12:50:46
Перебрать ячейки в диапазоне. Что-то не так?
 
 
 
#7
19.10.2009 12:59:59
:) как для маленького можешь объяснить :)
 
 
 
#8
19.10.2009 13:09:01
Просто циклом перебираются все ячейки в диапазоне. В твоём варианте тоже самое, только нет необходимости указывать номера строк и столбцов :-)
 
 
 
#9
19.10.2009 20:41:47
{quote}{login=Марчук}{date=19.10.2009 12:18}{thema=}{post}Sub Макрос1()  
 
For r = 1 To 10  
   For c = 1 To 10  
       If Cells(r, c).MergeCells = True Then Debug.Print Cells(r, c).MergeArea.Address  
   Next  
Next  
End Sub{/post}{/quote}  
 
Огромное спасибо!  
задел есть  
теперь осталось вставить в код алгоритм исключения из циклов ячеек, входящих в объединение или уже выявленных объединенных ячеек  
PS все таки знание процедур VBA у меня слабовато  
СПАСИБО ВСЕМ!!!
 
 
 
Страницы: 1
Читают тему
Наверх