Форумы-->Форум для внеигровых тем-->
1|2
| Автор | Помогите с написанием формулы |
|---|
для AxelX_2:
пишеш Макрос:
Sub AxelX_2()
Selection.EntireColumn.Hidden = True
End Sub
Далее формула:
=ЕСЛИ(СУММ(D261:J261)<>0;"Сумма отлична от нуля";"Тут вызываешь макрос") | для Steff:
эм... Игорь, это делается по другому ))))
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Range("F1:F8").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
End Sub
на лист вставить надо | 20
ещё раз, что ты хочешь получить в последней ячейке, если:
1) сумма D261:J261 = 0
2) сумма D261:J261 <> 0
? | Нет, макрос не подходит, мне бы что-то типа "если ячейка А1 или В1... ... или К1"<>0";"Для друку";""
Примерно так | Точнее правильная формула такая:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Range("A1:F8").AutoFilter Field:=6, Criteria1:="<>0", Operator:=xlAnd
End Sub
Private Sub Worksheet_Change - пересчитывается после каждого изменения на листе
A1:F8 - область где находятся формулы
Field:=6 - номер столбца, который проверяем (в данном случае 6ой - F)
Criteria1:="<>0" - если в столбце стоит 0, то он скрывается
нажимаешь Alt+F11, выбираешь имя листа, на котором все это находится и вставляешь макрос туда. Ну еще надо их включить ) |
1|2К списку тем
|
