Выбрать ячейки из функции в VBA

Question

Я хочу иметь макрос, который сначала активирует конкретный рабочий лист, а затем выбирает конкретную ячейку. Однако, когда я запускаю код ниже, я получаю следующее сообщение: «Ошибка времени выполнения:« 1004 »: выбор метода класса Range не удался». Что я делаю не так?

Function selectingCells(myWs As String, myCell As Range) 

    Sheets(myWs).Activate 
    myCell.Select 

End Function 



Sub callingFunction() 

    Call selectingCells("Data", Range("A1")) 
    Call selectingCells("Picklist", Range("A1")) 

End Sub 

Answer 1

Range("A1") относится к конкретной ячейке на активного листа. Ваша ошибка связана с тем, что вы пытаетесь выбрать ячейку на любом листе : активен, когда вы определили диапазон (т. Е. Выполнили вызов функции), когда находитесь на другом листе.

Это будет работать для вас:

Function selectingCells(myWs As String, myCell As String) 
    Sheets(myWs).Activate 
    Range(myCell).Select 
End Function 

Sub callingFunction() 
    Call selectingCells("Data", "A1") 
    Call selectingCells("Picklist", "A1") 
End Sub 

Несколько примечаний:

• Если это не наименьший случай воспроизводимая бит кода, нет никакой необходимости selectingCells быть Function так как оно ничего не возвращает. Вам будет лучше, если вы сделаете это
• Нет необходимости в Call в callingFunction. Call является устаревшим и только поддерживается для обратной совместимости

Опять же, если не больше, чтобы ваш код, чем этот образец, callingFunction можно переписать в виде:

sub callingFunction() 
    Sheets("Data").Range("A1").select 
    Sheets("Picklist").Range("A1").select 
end sub 

и быть гораздо более эффективным

Answer 2

Параметр myCell - это ссылка диапазона, которая существует на другом листе. Попробуйте переходящий в строковом значении адреса ячейки, которые вы хотите выбраны, как это:

Function selectingCells(myWs As String, myCell As String) 

Sheets(myWs).Activate 
Sheets(myWs).Range(myCell).Select 

End Function 

Sub callingFunction() 

Call selectingCells("Data", "A1") 
Call selectingCells("Picklist", "A1") 

End Sub 

Есть ли какая-то причина, почему selectingCells определяются как функция - это будет возвращать некоторое значение вызывающего кода? Если нет, вы можете определить его как процедуру.

Answer 3

В разделе Sub вы определяете диапазоны для ActiveSheet. Поэтому, если вы выберете другой лист и попытаетесь выбрать диапазоны, он не работает.
Чтобы устранить эту проблему, определить диапазоны правильно:

Sub callingFunction() 

    Call selectingCells("Data", ThisWorkbook.Sheets("Data").Range("A1")) 
    Call selectingCells("Picklist", ThisWorkbook.Sheets("Picklist").Range("A1")) 

End Sub 

Answer 4

Потому что вы не имеете права ваш диапазон объекта ваши функции действуют так:

Call selectingCells("Data", Activesheet.Range("A1")) 
Call selectingCells("Picklist", Activesheet.Range("A1")) 

Если вы не на листе это так же, как диапазон, который вы пытаетесь выбрать, вы получаете ошибку, которую вы получаете. Вы меняете свою функцию на один параметр, если хотите, поскольку информация о листе включена в нее. Что-то вроде этого:

Function selectingCells(myCell As Range) 

    myCell.parent.Activate 
    myCell.Select 

End Function 

Sub callingFunction() 

    Call selectingCells(sheets("Data").Range("A1")) 
    Call selectingCells(sheets("Picklist").Range("A1")) 

End Sub 

Answer 5

попробовать:

Function selectingCells(myWs As String, myCell As Range) 

Set mysheet = Sheets(myWs) 
mysheet.Activate 
Set mySelectedCell = mysheet.Range(myCell.Address) 
mysheet.Activate 
mySelectedCell.Select 
End Function 

Answer 6

почему вы используете функцию для такой простой задачи?

использовать этот метод

Sub test() 
    Sheets("Data").[A1].Select 
    Sheets("Picklist").[A1].Select 
End sub