Ошибка 1004: свойство FormulaArray класса Range

05.10.2008, 18:39. **Показов** 7217. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Понадобилось написать макрос с кодом вот таким примерно (идейно):

Visual Basic

Sub if_test()
 
For i = 1 To 20
  If Range("A" & i).Value = "wer" Or Range("A" & i).Value = "qwe" Then
  Range("B" & i + 1 & ":" & "B" & i + 5).Select
  Selection.FormulaArray = "=5"
  End If
 
  If Range("A" & i).Value = "ret" Or Range("A" & i).Value = "wow" Then
  Range("B" & i + 1 & ":" & "B" & i + 5).Select
  Selection.FormulaArray = "=6"
  End If
Next i
 
End Sub
 
Это работает, но условия на содержимое ячеек сложнее и прописывать все варианты таким образом не улыбается. Попробовал записать вот так:
 
Sub er2()
 
  For i = 1 To 20
       If Left(Range("A" & i).Value, 3) = wer Or Range("A" & i).Value = "qwe" Then
          Range("B" & i + 1 & ":" & "B" & i + 5).Select
          Selection.FormulaArray = "=5"
       End If
  Next i
 
End Sub

вот тут ошибка и вылазиет. Может я функцию left непраильвно использую? Слышал про проблемы возникающие из-за длины формулы, но тут вроде символов никак не 255.

@Vlanib · 06.10.2008, 07:26

2 Trooo:

Скопировал приведенный код - никаких ошибок не появляется. Конечно если "..= wer.." опечатка ( у тебя пропущены кавычки). Может в оригинальном файле чего то. Выкладывай.
Я хотя и не понял, что за хитрый отбор значений, но ИМХО код лучше переписать так:

Код

With ActiveSheet
    For i = 1 To 20
        If Left(.Cells(i, 1), 3) = "wer" Or .Cells(i, 1) = "qwe" Then
            .Range(Cells(i + 1, 2), Cells(i + 5, 2)).FormulaArray = "=5"
        End If
    Next i
End With

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	06.10.2008, 07:26	2
	2 Trooo: Скопировал приведенный код - никаких ошибок не появляется. Конечно если "..= wer.." опечатка ( у тебя пропущены кавычки). Может в оригинальном файле чего то. Выкладывай. Я хотя и не понял, что за хитрый отбор значений, но ИМХО код лучше переписать так: Код With ActiveSheet For i = 1 To 20 If Left(.Cells(i, 1), 3) = "wer" Or .Cells(i, 1) = "qwe" Then .Range(Cells(i + 1, 2), Cells(i + 5, 2)).FormulaArray = "=5" End If Next i End With 0