Как сделать значение ячейки переменной для массива

Question

Im совершенно новый для создания макросов в Excel!

Я пытаюсь использовать значение из одной ячейки в качестве ввода для моего массива, но im получает проблему «индекс вне диапазона».

Sub Macro1() 

MyValue = ActiveSheet.Range("A1") 

ThisWorkbook.Sheets(Array(MyValue)).Select 

End Sub 

Значение при A1 = 1,2,4, соответствующее доступным листам. Помещение значения напрямую работает как шарм.

Thanks

Answer 1

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

Добавление необязательного аргумента в False позволяет выбирать расширенные для многолистных листов.

Option Explicit 

Sub Macro1() 

Dim MyValue 
Dim i As Integer 

MyValue = Split(ActiveSheet.Range("A1"), ",") 

For i = 0 To UBound(MyValue) 
    ThisWorkbook.Sheets(CInt(MyValue(i))).Select (False)  
Next i  

End Sub 

Answer 2

Я думаю, что это то, что вы ищете.

Sub print_sheets() 
    MyValue = ActiveSheet.Range("A1").Value 

    MyArr = Split(MyValue, ",") 

    For Each Value In MyArr 


     ThisWorkbook.Sheets(CInt(Value)).Activate 
     ' Change the directory below 
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
      "C:\Users\<<<USER>>>>\Documents\" & Value & ".pdf", Quality:=xlQualityStandard, _ 
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
      True 


    Next Value 


End Sub 

Это считывает A1 и разбивает его. Активирует листы и печатает на бумаге. Я не могу заставить их печатать на pdf, если я не знаю, что назвать листами. РЕДАКТИРОВАТЬ: Я заставил их сохранить с буквенным номером как имя файла.