VBA 関数 複数行内にある任意の列の項目の出力

質問

VBA　関数　複数行内にある任意の列の項目の出力
お世話になります。
ご教授いただければ幸甚です。

現在、業務で他社へ提出する各種申請書を作成するVBAを作りたく考えています。

提出物は提出先によりフォーマットも様々で、
どの書類を作成して提出したか纏めてるエクセルファイルがあります。

1つの案件で提出する申請書は複数あり、
1行に”Ｘ申請””Ｙ申請”の入力必要項目があります。

各申請書類には例えば以下の様な項目があります。

・申請書作成者の欄
・□通常　　□事後　□その他

上記の様な入力項目を1行に横に並べて洗い出しましたが、
これを別シートにある申請書の原紙フォーマットに出力して
別ブックを作成したく考えています。

例）
　　　A　　　　　　　B　　　　　　　　　　　　Ｃ　　　　　　　
1 　　 　　　　　　　　　　　　　　　　　　
2 案件名　　作業実施日　　プルダウン（通常,事後）　　
3 案件名　　作業実施日　　プルダウン（通常,事後）　
　　・
　　・
　　・

～続き

　　　 　Ｄ　　　　　　　E　　　　　　　　　Ｆ　　　　　　　　　　　Ｇ
1 Ｘ申請書　　　Ｘ申請書　　　　　Ｙ申請書　　　　　　　Ｙ申請書
2 　提出日　　　　担当者　　　プルダウン（1階,2階）　　報告日
3 　提出日　　　　担当者　　　プルダウン（1階,2階）　　報告日

【教えていただきたいもの】

イメージとして上記の例で書くと、Ｃ列とD列の間に列を追加して、
何かトリガー（例えばボタン）を作って、それを作動させて、
その行の項目を別シートにある申請書の原紙フォーマットに出力して
別ブックを作成する方法を教えていただきたい。

1行なら関数でどうにかなるのですが、
毎日、案件は増え続け追いつけない状況で困っています。。

その”何かのトリガー”でその行の関数、マクロを作動させる？
でも、案件（行）が増える度にボタンを作るのも現実的ではないし、

どうしたらいいでしょうか。

”申請書作成”等といった列を作って、その行に”●”とかある行の項目は
申請書の原紙をコピーしたシートに関数で入れ込むような”ボタン”？つくる？

悩んでます。。

何卒、宜しくお願いいたします。

回答No.2

tsubuyuki · ベストアンサー

ご自身もお気づきの通り、
> 悩んでます。。
物凄く悩ましい問題ではあります。

正直、この手の処理をエクセルで行うのは、
個人的にはオススメしたくありません。
データのリスト（表）から必要なデータ（行）を抜き出し、
それを加工して帳票として印刷する・・
となると、これはデータベース的な考え方です。
エクセルの本分である表計算的な要素が一つも残りません。
このような処理、エクセルでもできないことはもちろんありませんが、
アクセスなどのデータベースを扱えるソフトに任せるべきです。

さて、本題です。
考え方として、
> 案件（行）が増える度にボタンを作るのも現実的ではない
おっしゃるとおりです。
基本的にボタンは行列番号にはリンクさせづらいので、オススメしません。

踏まえて。
データリストのフォーマットも帳票のフォーマットもさっぱりわかりませんので、
とりあえず流れだけ、考え方だけ紹介しておきます。

前準備として、印刷される帳票原紙に「印刷したいデータ」をおくためのシートを作っておきます。
例えば「データ」と言うシートを用意し、ここの１行目に「印刷したいデータ」を用意します。
各帳票は、この「印刷したいデータ」から各項目を持ってくるように数式を入れておきます。
例えば、「Ｘ申請書」のシートの案件名欄には「=データ!A1」としておきます。
これで、「データ」シートの１行目が変われば「Ｘ申請書」の内容も変わる、
と言うところまではご理解いただけると思います。

データリストでは以下のような処理を前提にマクロを組みます。
・フォーカスがある行の行番号を記憶する
・「申請書」のブックを開く
・リストの「記憶した行」をコピーする
・「申請書」ブックの「データ」シートの１行目に貼り付ける
以上のような流れです。

かなり適当ですが、

Sub Sample()
Dim ASheet As Worksheet
Dim BBook As Workbook, BSheet As Worksheet
Dim TRow As Long

　　　　Set ASheet = ActiveSheet
　　　　TRow = ActiveCell.Row
　　　　Set BBook = Workbooks.Open(Filename:="フルパス\申請書.xls")
　　　　　　　　Set BSheet = BBook.Sheets("データ")

　　　　ASheet.Rows(TRow).Copy BSheet.Range("A1")

　　　　Application.CutCopyMode = False
End Sub

こうしておけば、印刷したい行にフォーカスをあわせる必要はありますが、
マクロを起動するボタンは一つで済みます。

一応、この考え方で処理は可能と思いますが、
正直なところ良い手段とは決して言えません。

お礼

お礼が遅れて申し訳ございませんでした！
ありがとうございます！

むむむ。。。

仰る通りDB的な考えですよね。。
駐在先の環境ではアクセスが使えずでして。。

しかし上記、コードは非常に参考になりました！

回答No.1

bin-chan

他シートのセルを参照させる式はお分かりですか？
Sheet2のセルB3がSheet1のセルA2を参照するのであれば
Sheet2のセルB3に式[=Sheet1!A2]を設定する。

この方法だと、セルB3は常にSheet1のセルA2しか見ませんが、
indirect関数を用いると、値を変更することが可能。

Sheet2のセルA1に参照先の行数（上記の例なら2）を設定
（文字色を白にしておくと見えなくて良い）

で、Sheet2のセルB3は式[=indirect("Sheet1!A" & A1)]を設定する。
Sheet2のセルA1の値が[2]なので、式[=Sheet1!A2]と同じ結果が得られる。
Sheet2のセルA1の値を、[3]とか[4]に変えてみれば分かるはず。

> 何かトリガー（例えばボタン）を作って、それを作動させて、
原紙（複数あるでしょうが、すべてor先様を判断）のセルA1に行の値を設定。

以上を利用して、
>別シートにある申請書の原紙フォーマットに出力して
の原紙側から値を参照しておいて、コピー＆形式を選択して貼り付け-値
それを別名で保存。
ここは「マクロの記録」で頑張ってください。

お礼

お礼が遅れました！
申し訳ございませんでした。

いただきましたコメントで途中まで進めましたが、
途中で自分がやっている事がエクセルでは、
少々現実的ではない。。。

という事に薄々と感じ始め途中で心が折れました。。

今後の業務の上で参考にさせていただきます！