для следующего цикла показать ошибку 13 несоответствие типов

Question

привет, я создаю код VBA, и здесь для цикла показывает ошибку 13 несоответствие типов

For x = 0 To 4
ActiveCell.Offset(0, " & x & ").FormulaR1C1 = "=Sheet1!R[-7]C[-3]"
Next x

я пытаюсь dim x as integer и dim x as Long ничего не работает PLZ помощь

Answer 1

То, как вы передаете X в свой оператор activecell.offset( (" & x & "), - это способ, которым вы бы передали его, если бы указали ссылку на x в формуле листа через vba. В этом случае это полностью избыточно, так как vba может напрямую обрабатывать x как целое число (или long). Поэтому:

Dim x As Integer
For x = 0 To 4
ActiveCell.Offset(0, x).FormulaR1C1 = "=Sheet1!R[-7]C[-3]"
Next x

Будет работать точно так, как ожидалось.