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

Вход

Регистрация

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

 

= Мир MS Excel/работа SpecialCells(xlVisible) при 1 выделенной ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » работа SpecialCells(xlVisible) при 1 выделенной ячейки (Макросы/Sub)
работа SpecialCells(xlVisible) при 1 выделенной ячейки
WeRiX Дата: Четверг, 19.06.2014, 18:30 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Помогите разобраться со SpecialCells(xlVisible)
В том случае если применен автофильтр, то при выделении 1 ячейки макрос висит.
можно как-то исправить данную ситуацию?
Не писать же два кода для 1 выделенной ячейки и > 1.
[vba]
Код
Sub qwerty()
For Each ar In Application.Selection.SpecialCells(xlVisible)
ar.Cells = 1
Next
End Sub
[/vba]


Сообщение отредактировал WeRiX - Четверг, 19.06.2014, 18:30
 
Ответить
СообщениеПомогите разобраться со SpecialCells(xlVisible)
В том случае если применен автофильтр, то при выделении 1 ячейки макрос висит.
можно как-то исправить данную ситуацию?
Не писать же два кода для 1 выделенной ячейки и > 1.
[vba]
Код
Sub qwerty()
For Each ar In Application.Selection.SpecialCells(xlVisible)
ar.Cells = 1
Next
End Sub
[/vba]

Автор - WeRiX
Дата добавления - 19.06.2014 в 18:30
nilem Дата: Четверг, 19.06.2014, 18:53 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
типа такого, наверное:
[vba]
Код
Sub qwerty()
Dim r As Range
With Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row)
     .AutoFilter Field:=1, Criteria1:=2
     For Each r In .Columns(1).SpecialCells(xlVisible)
         r.Value = 1 'вместе с заголовком
     Next
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Четверг, 19.06.2014, 18:54
 
Ответить
Сообщениетипа такого, наверное:
[vba]
Код
Sub qwerty()
Dim r As Range
With Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row)
     .AutoFilter Field:=1, Criteria1:=2
     For Each r In .Columns(1).SpecialCells(xlVisible)
         r.Value = 1 'вместе с заголовком
     Next
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 19.06.2014 в 18:53
WeRiX Дата: Четверг, 19.06.2014, 19:06 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Хм, а если мне нужно, чтобы именно сам человек выбирал записи, и уже после запущенный код их обрабатывал.
Что-то не соображу как тут выкрутиться.
 
Ответить
СообщениеХм, а если мне нужно, чтобы именно сам человек выбирал записи, и уже после запущенный код их обрабатывал.
Что-то не соображу как тут выкрутиться.

Автор - WeRiX
Дата добавления - 19.06.2014 в 19:06
WeRiX Дата: Четверг, 19.06.2014, 21:28 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Нда бывает же затупишь на детской задачке)) удалите эту тему)
[vba]
Код
Sub qwerty()
If ActiveSheet.FilterMode And Selection.Count = 1 Then _
Set rr = Application.Selection.Columns(1).Cells _
Else: Set rr = Application.Selection.Columns(1).SpecialCells(xlVisible)
For Each r In rr: r.Columns(2).Cells = 1: Next
End Sub
[/vba]
 
Ответить
СообщениеНда бывает же затупишь на детской задачке)) удалите эту тему)
[vba]
Код
Sub qwerty()
If ActiveSheet.FilterMode And Selection.Count = 1 Then _
Set rr = Application.Selection.Columns(1).Cells _
Else: Set rr = Application.Selection.Columns(1).SpecialCells(xlVisible)
For Each r In rr: r.Columns(2).Cells = 1: Next
End Sub
[/vba]

Автор - WeRiX
Дата добавления - 19.06.2014 в 21:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » работа SpecialCells(xlVisible) при 1 выделенной ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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