[Pliomera]

ShaRP
В Excel не используется normal.dot

Raman
При выборе места сохранения макроса - указать "сохранить в личной книге макросов".
Либо просто скопировать текст макроса в блокнот и вставлять в другие книги по мере надобности. Чтобы увидеть текст макроса, надо открыть редактор "Visual Basic" и перейти в соответствующий модуль.

[a_axe]

ИМХО, самый простой вариант - взять док-т с макросом, сохранить как надстройку эксель (расширение - .xla), затем в "Сервис" -> "надстройки" выставить галочку на загрузку искомой надстройки. А там можно кнопку в панель инструментов вставить, либо просто по имени вызывать. Можно конечно и шаблон создать (с xlt расширением), только это работать будет только с д-ми, из этого шаблона сделаными, плюс макрос в каждом таком документе будет сохранен и доступен для всех кому не лень (не всегда это надо), плюс создавать новые доки нужно из этого шаблона -морока опять же

[ShaRP]

Pliomera

ShaRP В Excel не используется normal.dot

Сорри, переклинило, протупил.

[Raman]

сохранение в личной книге макросов ничего не дает.

[AceM]

Подскажите, как сделать,чтобы строка в таблице автоматически скрывалась при выполнении определённого условия(например: строка 29,при G29=0) и, наоборот, отображалась с заданной высотой при выполнении другого условия (например: G29>0 )???
P.S. G29- ячейка в этой же строке, её значение может быть от 0 и больше.

[Blast]

мда... с выбором раздела справились, а с заголовком темы не сложилось уже? правильно, а зачем думать, проще же копипастом...

[a_axe]

Если речь идет о конкретной ячейке g29 - допустим с помощью макроса типа:


Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Cells(29, 6) = 0 Then
Rows(29).Hidden = True
ElseIf Cells(29, 6) > 0 Then
Rows(29).Hidden = False
End If
End Sub

[AceM]

Спасибо a_axe, ща попробую!

[AceM]

Цитата:Если речь идет о конкретной ячейке g29 - допустим с помощью макроса типа...

Речь идёт о таблице, в которой есть N-ное количество строк, и в каждой из этих строк есть ячейка, взависимости от значения которой (=0 или >0), эту строку нужно скрыть или отобразить.
Заранее спасибло.

[a_axe]

Я так думаю, что речь идет о меню "Данные"=>"Фильтр=>автофильтр" (только надо эту таблицу выделить)
С макросом сложнее, он будет типа того что ниже, только посложнее:

Public Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim intSt, intEnd, intCt, intCol As Integer
'со строки N3
intSt = 3
'до строки N17
intEnd = 17
'со смотрим колонку N7
intCol = 7

For intCt = intSt To intEnd

If Cells(intCt, intCol) = 0 Then
Rows(intCt).Hidden = True
ElseIf Cells(intCt, intCol) > 0 Then
Rows(intCt).Hidden = False
End If
Next intCt

End Sub