Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1654 / 76734

←次へ　｜　前へ→


	【80728】シート複数選択印刷について

Hiroshi - 19/4/24(水) 15:50 -


	引用なし

	パスワード

はじめまして

　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

4 hits

▼

【80728】シート複数選択印刷について Hiroshi 19/4/24(水) 15:50