Создал два макроса, если их запускаешь вручную - все работает. Привязал к кнопке - при нажатии строки с нулями скрываются, а при отпускании - не раскрываются. Что я неправильно сделал?


Sub Variant_S_On()
'
' Variant_S_On Макрос
' Макрос записан 30.03.2006 (Kulachko)
'

'
Columns("J:J").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
End Sub

Sub Variant_S_Off()
'
' Variant_S_Off Макрос
' Макрос записан 30.03.2006 (Kulachko)
'

'
Selection.AutoFilter
End Sub

---------

Private Sub ToggleButton1_Change()
If ToggleButton1.Enabled Then
Variant_S_On
Else
Variant_S_Off
End If
End Sub

Ну да спасибо, действительно работает. А методику скопировал с предыдущего совета - видать товарисчъ ошибся...

Спасибо, сделал, все замечательно работает!

Благодаря значительной помощи участников данного форума работа идет быстро и качественно, таблица приближается к своему финальному варианту. Несколько вопросов которых не удалось решить:

1. Никак не получается центрировать радиокнопку по горизонтали: в свойствах есть пункт "Alignment", но он имеет только два значения 0 и 1 лево-право, странно, что нет положения центр, а хотелось...
2. Сделал кнопку для форматирования таблички по вчерашним советам - вон она там, зелененькая и работает классненько...
Хотелось сделать ее по размеру ячейки К1 с надписью S=, но если кнопку уменьшить до размеров этой клетки, то надписи почти исчезает. Получается что в клетке я могу разместить два знака нужного размера, а на кнопке нет, хотя нутром чую что решение есть.
Сразу скажу, что в соседнем столбике "J" кнопку размещать нельзя, так как он в рабочем режиме скрыт.
Пробовал оставить надись в клетке, а сверху разместить кнопку, сделав ее прозрачной - тоже не получается.
Жду Ваших советов...

Странно, но второй раз картинка не приклеивается к сообщению...

Еще раз ... формат GIF, размер 15 Kb...

Формат PNG, размер 3 Kb...

Разобрался в чем дело... Пишу текст, прикладываю фото, делаю предварительный просмотр. Текст на просмотре видно, а фото нет, и указанный путь к файлу СТИРАЕТСЯ! Если после этого отправить сообщение не указав еще раз на прикрепляеый то сообщение будет без картинки - глючок такой на форуме, хотя на других форумах такого нет - проверял.

Вот хорошая мысль, щас попробую. Хотелось это сделать вот почему: после нажатия на кнопку включается автофильтр, и появляется его выпадающий список (а он на фиг не нужен), а если кнопку сделать в размер клетки, то она его закроет - смотри картинку.

Но ведь у меня два макроса, к кнопке я привязывал один на включение фильтра (кнопка нажата), а второй на выключение - (кнопка отжата), а как к объекту WordArt их оба привязать? Две кнопки что-ли делать?

В принципе все уже сделано и работает, просто надо на кнопке разместить надпись, или как-нибудь над ней или под ней, чтобы просвечивала...

Sub S_On()
'
' S_On Макрос
' Макрос записан 30.03.2006 (Kulachko)

Columns("K:K").AutoFilter Field:=1, Criteria1:="<>"

End Sub

Sub S_Off()
'
' S_Off Макрос
' Макрос записан 30.03.2006 (Kulachko)

Columns("K:K").AutoFilter
End Sub

Sub SNEW_On()
' Новый макрос составлен на основе двух предыдущих
If Worksheets("Sheet2").AutoFilterMode = 0 Then
Columns("K:K").AutoFilter Field:=1, Criteria1:="<>"

Else

Columns("K:K").AutoFilter
End If
End Sub

Видать как-то неправильно я задал AutoFilterMode = 0, а как надо?

Вообще с ToggleButon мне вариант больше нравился, там кнопка имела два состояния нажата-отжата, а объект WordArt - нет. Ну если по-другому никак нельзя пусть будет так.

k-nike[quot ВладимирВ]
Попробуй надпись "S=" перевести в рисунок и сделать его фоном.

А вот это мне больше нравится ща займусь, спасибо!

Огромное спасибо vkodor! Сделал все как хотел, гляньте, что получилось. Последнее, что хотелось бы сделать, чтобы при нажатии кнопка была более заметной - меняла свой цвет, не подскажете как? Я догадываюсь, что в подпрограмму обработки нажатия кнопки надо добавить Backcolor, но не знаю синтаксиса. Где-бы в инете почитать на эту тему?