配列のセル値を変数にする方法

Question

Excelでマクロを作成することはまったく新しいことです！

私の配列の入力として1つのセルの値を使用しようとしていますが、imは "subscript out of range"という問題を出しています。

Sub Macro1() 

MyValue = ActiveSheet.Range("A1") 

ThisWorkbook.Sheets(Array(MyValue)).Select 

End Sub 

A1 = 1,2,4の値は、使用可能なシートに対応します。その価値を直接魅力のように働かせます。

ありがとうございました

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に印刷することはできません。 EDIT：ファイルの名前としてsheetnumberを付けて保存しました。