Мой первый макрос

[valerij]

Сообщение от IgorGO

А вообще эта тема очень глобальная и, практически, нескончаемая..

Очень надеюсь на это, в дальнейшем и на Ваши советы, рекомендации...!

Сообщение от SAS888

А еще такой макрос не будет отображаться в списке макросов.

Ага, обратил на это внимание, но я там путь прописываю, например
"'М А Й.xls'!Лист14.StartMacroS"

и все ОК!

З. Ы.
Свет вырубили, а поговорить...
недали!

[valerij]

Парни, а как в этой формуле, сделать так:
For k = 1 to 5
.FormulaR1C1 = "=IF(COUNTIF(IAEE!R2C255:R1207C255, R[k]C)>0,R[k]C,0)"
next

[SAS888]

Выражение

"=IF(COUNTIF(IAEE!R2C255:R1207C255, R[k]C)>0,R[k]C,0)"

компилятор понимает как обычную текстовую строку. Поэтому, согласно правилам сцепления текстовых переменных, записать можно так:

.FormulaR1C1 = "=IF(COUNTIF(IAEE!R2C255:R1207C255,R[" & k & "]C)>0,R[" & k & "]C,0)"

[valerij]

Сообщение от SAS888

Выражение компилятор понимает как обычную текстовую строку.

SAS888!
Есть ли разница, формулу вставить в макрос или просто в ячейку, имеется ввиду скорость.

Спасибо

[valerij]

В чем ошибка, я хочу макросом "Очистка()" в 13 листах в диапазоне "D3:D37" проставить нули??

Sub Очистка()
Dim Sh As Worksheet
Select Case Sh.Index
        Case 1 To 13
    Range("D3:D37").Select
    Selection.FormulaR1C1 = "0"
    Range("D3").Select
        End Select
End Sub

[VictorM]

мож так лучше:

Sub Очистка()
For i = 1 To Sheets.Count
    Sheets.Item(i).Range("D3:D37").FormulaR1C1 = "0"
Next i
    Range("D3").Select
End Sub

это во всех листах книги, неважно, сколько их

[valerij]

Сообщение от VictorM

мож так лучше

А сколько он листов, "чистит", ВСЕ?
А мне нужен выбор от 1 до 13

[VictorM]

да этот ВСЕ
а если от 1 до 13, можно так

Sub Очистка()
For i = 1 To 13
    Sheets(i).Range("D3:D37").FormulaR1C1 = "0"
Next i
    Range("D3").Select
End Sub

[valerij]

Опять, застрял
В диапазоне Range("D3:D37"), нули и зависящий от них результат, в др. ячейках то же, нули. То что надо.
Но стоит сделать, так, красным цветом, и зависящий результат не обнуляется, ???????
With Application
.EnableEvents = False
.ScreenUpdating = False
.Calculation = xlManual
Если комментирую
'.EnableEvents = False
Все ОК, но очень долго

И еще, если в диапазоне делается одно и то же действие
Range("F3") = Range("D3") * Range("E3")
То так, ошибка, ?????
Range("F3:F37") = Range("D3:D37") * Range("E3:E37")

[SAS888]

1) Т.к. при отключении обработки всех событий Excel у Вас

зависящий результат не обнуляется

то скорее всего речь идет не о формуле в зависимой ячейке, а об обработке события по изменению значения ячейки. Если так, тогда все правильно. Все работает как надо. А то, что

Все ОК, но очень долго

скорее всего, результат того, что при обработке события происходит повторный вызов этого (или другого) события. Если нужно, чтобы это событие обрабатывалось, то уберите .EnableEvents = False и поместите эту строку в модуль листа (книги) в макрос, обрабатывающий это событие в самое начало кода. Предотвратив тем самым возможный повторный вызов процедуры.
2) Так

Range("F3:F37") = Range("D3:D37") * Range("E3:E37")

нельзя. При помощи VBA Вашу задачу можно выполнить "кучей" способов. Предлагаю один из них (без цикла).

Sub Multiply()

    Range("F3") = "=RC[-2]*RC[-1]"
    Range("F3").AutoFill Destination:=Range("F3:F37")
    Range("F3:F37").Value = Range("F3:F37").Value

End Sub

По поводу

Есть ли разница, формулу вставить в макрос или просто в ячейку, имеется ввиду скорость.

однозначно сказать невозможно. Все зависит от конкретных обстоятельств. Как правило, если в ячейке постоянно нужна формула, то зачем делать это макросом?