Невозможно получить значение через Cells () через VBA - PullRequest
0 голосов
/ 05 августа 2020

Я пытаюсь использовать значение столбца «X» и конкретную строку c. Когда я нажимаю на кнопку, вызывается макрос со столбцом и строкой. Я дважды проверил это с помощью: (Это работает нормально. Id = 17 и id2 = 24.)

Private Function GetID(ByVal id As String, ByVal id2 As String) As String
    MsgBox ("row: " & id & " - column: " & id2)
End Function

Когда я пытаюсь использовать значение указанной c ячейки, я получил ошибку 1004:

MsgBox ("row: " & id & " - column: " & id2 & " - Value: " & CStr(Cells(id, id2).Value))

Проблема, похоже, в ячейках (id, id2). Если я поставлю 24 вместо id2, он заработает.

MsgBox ("row: " & id & " - column: " & id2 & " - Value: " & CStr(Cells(id, 24).Value))

Почему он не работает с id2 в качестве параметра?

1 Ответ

1 голос
/ 05 августа 2020

Мне пришлось преобразовать значение в значение INT. Это работает:

Dim id2Convert
id2Convert = CInt(id2)
MsgBox ("row: " & id & " - column: " & id2 & " - Value: " & CStr(Cells(id, id2Convert).Value))
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...