Excel VBA Определенная ошибка объекта

Я получаю ошибку определения объекта с помощью приведенного ниже кода. Любая идея, что я могу делать неправильно? БлагодаряExcel VBA Определенная ошибка объекта

Sub Loop_Test2() 

    Dim i As Integer 
    Dim j As Integer 
    Dim CountAll As Integer 
    Dim CountXL As Integer 

    ActiveSheet.Range("A1").Activate 

    CountAll = ActiveSheet.Range("A35") 
    MsgBox CountAll 

    For j = 1 To CountAll 
     i = 1

Это где происходит ошибка:

 CountXL = Cells(i, j).Value

Продолжение:

 MsgBox CountXL 

     For i = 1 To CountXL + 2 
     Cells(i + 2, j) = "Row " & i & " Col " & j 
     Next i 
    Next j 

End Sub

Я думаю, что это неправильное назначение. Я не знаком с правильным синтаксисом.

Error Details: "Run time error 1004. Application defined or object defined error

источник

2015-07-02 Nadz

Сообщите об ошибке. – FormigaNinja

Привет. Я изменил сообщение после выполнения некоторого теста. Похоже, что ошибка указана в назначении «CountXL». – Nadz

Я думаю, что это потому, что я не инициализирую «i». Любая идея, как это сделать правильно? Также я думаю, что способ присвоить значение «CountXL» выполняется неправильно – Nadz

Перед тем, как изменить свой вопрос, вы забыли был парафировать ваш i .so просто установите значение i.

В будущем вы можете использовать Option Explicit в верхней части Sub, чтобы убедиться, что вы указали переменную перед ее использованием.

Так что для вашего случая просто нужно установить i=1, и, пожалуйста, объявите все переменные длинными, а не целыми. Вы можете обратиться к here, чтобы узнать причину использования long вместо integer.

источник

2015-07-02 08:45:39

Excel VBA Определенная ошибка объекта

ответ

Смежные вопросы