| Вопрос: Скрытие столбцов в Excel | Добавлено: 25.09.06 12:58 |
Автор вопроса:  Саша
|
|
Помогите написать макрос скрытия столбцов, в сточках которого встречается значение «СКРОЙ МЕНЯ».
В результате записи макроса и прикреплении его к кнопке получилось следующие: Sub Макрос3() Cells.Find(what:="СКРОЙ МЕНЯ", after:=ActiveCell, LookIn:=xlValues, lookat:= _ xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Selection.EntireColumn.Hidden = True Но, к сожалению, по нажатии кнопки данный макрос скрывает только один столбец, а не все столбцы встречающиеся на листе. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #1 | Добавлено: 25.09.06 14:18 |
|
Немного переделанный пример из Help'а (топики Find и FindNext:
Sub Макрос3()
With ActiveSheet.UsedRange Set c = .Find(what:="СКРОЙ МЕНЯ", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.EntireColumn.Hidden = True Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop While c.Address <> firstAddress End If End With End Sub |
||
|
Номер ответа: 2 Автор ответа: angrynewsВопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #2 | Добавлено: 25.09.06 14:33 |
|
Option Explicit Private Sub CommandButton1_Click() Dim rowCount As Long Dim colCount As Long For colCount = 1 To 256 For rowCount = 1 To 65536 If Cells(rowCount, colCount) = "скрой меня" Then Columns(colCount).Hidden = True Exit For End If Next rowCount Next colCount End Sub |
||
|
Номер ответа: 3 Автор ответа: angrynewsВопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #3 | Добавлено: 25.09.06 14:35 |
Первый пример - продвинутый, мой - примитивный  )
|
||
|
Номер ответа: 4 Автор ответа: Саша Вопросов: 1 Ответов: 2 |
Профиль | | #4 | Добавлено: 25.09.06 15:19 |
| Спасибо огромное все работает! | ||
|
Номер ответа: 5 Автор ответа: СашаВопросов: 1 Ответов: 2 |
Профиль | | #5 | Добавлено: 25.09.06 15:21 |
| Спасибо оргомное все работает!!! | ||
|
Номер ответа: 6 Автор ответа: angrynewsВопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #6 | Добавлено: 25.09.06 15:44 |
| оба работают? | ||
Страница: 1 |