| |
はじめまして
VBAにてシートを複数選択し印刷するように組みたいのですが中々できないのでご教授をお願い致します。
A1 B1 C1 「A1、B1、C1」→印刷
A2 B2 C2 「A2、B2、C2」→印刷
A3 B3 C3 「A3、B3、C3」→印刷
・ ・ ・ ・
・ ・ ・ ・
・ ・ ・ ・
A100 B100 C100「A100、B100、C100」→印刷
上記のセルにそれぞれのシート名が入っているのですが「A1、B1、C1」を作業グループとして印刷をするVBAを組もうとしております。シート名直接や配列、rangeでは複数選択できず上手く当てはまる物がないのでご教授をお願いします。
初めての質問になりますのでルール等反しておりましたらご指摘ください。
いろんな方のサンプルを参考に組んでみたVBAですがこの場合だとC1セル名のシートしかアクティブになりませんでした。
Sub シート選択()
Dim strSN As String
' 変数 strSN にアクティブシートの A1 セルの値を代入
strSN = ActiveSheet.Range("A1").Value
strSN = ActiveSheet.Range("B1").Value
strSN = ActiveSheet.Range("C1").Value
' 変数 strSN の名前をもつシートをアクティブにする
Worksheets(strSN).Select
' 変数 strSN の名前をもつシートの B1 セルをアクティブにする
Worksheets(strSN).Range("A1").Select
Worksheets(strSN).Range("B1").Select
Worksheets(strSN).Range("C1").Select
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
