Excel VBA Worksheets.codename выдает ошибку

Question

У меня есть имя листа (вкладки) под названием «data», кодовое имя листа также «data», когда я использую;

Cells(rij, "K") = Worksheets("data").Cells(1, "F")

Работает нормально, но когда я использую;

Cells(rij, "I") = data.Cells(1, "F")

выдает ошибку.

Answer 1

Я знаю проблему и у меня есть решение.Я объявил несколько переменных.

'Public cainA As Worksheet
'Public data As Worksheet
'Public eindblad As Worksheet

Sub reken(rij, kol, kolnaam)
Application.EnableEvents = False
Application.ScreenUpdating = False

И теперь сделал это как комментарии.Теперь это работает.

Спасибо за вашу поддержку.

Answer 2

Вы можете выполнить следующие действия:

Option Explicit

Sub test()

    Dim str As String

    'Get the value of the cell using Tab name
    str = ThisWorkbook.Worksheets("data").Range("A1").Value

    'Get the value of the cell using Code name
    str = data.Range("A10").Value

End Sub

Answer 3

Почему бы вам не сделать:

Dim MySheet As worksheet

Set MySheet = ThisWorkbook.Sheets(1)

Cells(rij, "K") = MySheet.Cells(1, "F")

Cells(rij, "I") = MySheet.Cells(rij, "K")

Answer 4

Если вы объявите и зададите «данные», это будет работать:

Dim data As Worksheet

Set data = Sheets("data")

Cells(rij, "I") = data.Cells(1, "F")

Редактировать:

Если у вас есть 1 лист, вы можете легко перейти с:

Dim data As Worksheet

Set data = ThisWorkbook.Sheets(1)

Cells(rij, "I") = data.Cells(1, "F")