■ エクセルのマクロで出来ますか？

質問

エクセルマクロの初心者です。
現在、業務で以下の様な表を作成し、請求書の発行を行っています。
「sheet1」A列のNo.を「sheet2」のA列(例えばセルA1)に入力すると
VLOOKUP関数で必要項目が請求書の雛形に表示される仕組です。
複数行を抽出する場合は、複数のNo.(例: 1,3,10)を手入力(例: A1,A2,A3・・・)しております。

-----
<sheet1>
　　 A列　　B列　　　C列　　　D列　　・・・
1行　No.　 項目1　 項目2 　項目3　・・・
2行　 1　　　値1　　　値2　　　値3　　・・・
3行　 2　　　値4　　　値5　　　値6　　・・・
4行　 3　　　値7　　　値8　　　値9　　・・・

<sheet2>
請求書の雛形
セルA1～A10に請求書を発行したい<sheet1>A列のNo.を入力。
-----

これを、A列の左に行を挿入、各行にチェックボックスを配置し、
チェックボックスをオンにした行のB列(行挿入前はA列)の値(No.)を
「sheet2」のA列(例えばA1/複数の場合はA1,A2,A3・・・10行程度)に
コピーを行う仕組を作ることを検討しています。

複数のNo.をチェック(1,3,10)した場合は、
「sheet2」のA1,A2,A3の様に、上から順になれば理想的です。

説明が悪く、意図が伝わり難いこととは思いますが、
これらの作業を行うマクロ(他の方法も可)を組むことは可能でしょうか。
ご教授いただければ幸いです。
よろしくお願いいたします。

回答No.1

n_na_tto · ベストアンサー

マクロを使わない方法です。

1.Sheet1で挿入したA列に[フォーム]から
チェックボックスを挿入
例えばA2に挿入したら
そのチェックボックスの上でマウス右クリック
→コントロールの書式設定
→リンクするセル　$A$2
(またはA2クリック)
以下、A3から下も同じ

＿＿＿＿＿_A＿＿B＿＿＿C＿＿＿D＿＿＿E＿＿＿_F_
_1＿チェック＿No.＿項目1＿項目2＿項目3＿抽出数_
_2＿レ＿＿＿＿＿1＿＿値1＿＿値2＿＿値3＿＿＿_1_
_3＿□＿＿＿＿＿2＿＿値4＿＿値5＿＿値6＿＿＿＿_
_4＿□＿＿＿＿＿3＿＿値7＿＿値8＿＿値9＿＿＿＿_
_5＿□＿＿＿＿＿4＿_値10＿_値11＿_値12＿＿＿＿_
_6＿レ＿＿＿＿＿5＿_値13＿_値14＿_値15＿＿＿_2_
_7＿□＿＿＿＿＿6＿_値16＿_値17＿_値18＿＿＿＿_
_8＿レ＿＿＿＿＿7＿_値19＿_値20＿_値21＿＿＿_3_

2.
Sheet1右のあいている列[上の例ではF列]に抽出数
F2
=IF(A2,COUNT(F$1:F1)+1,"")
下方向・↓

3.
Sheet2
＿＿_A＿＿＿B＿＿＿C＿＿＿D_
1＿No.＿項目1＿項目2＿項目3_
2＿＿1＿＿値1＿＿値2＿＿値3_
3＿＿5＿_値13＿_値14＿_値15_
4＿＿7＿_値19＿_値20＿_値21_

A2
=IF(ROW(1:1)>COUNT(Sheet1!F:F),"",INDEX(Sheet1!B:B,MATCH(ROW(1:1),Sheet1!F:F,0)))
下方向・↓
B2
=IF($A2="","",INDEX(Sheet1!C:C,MATCH($A2,Sheet1!$B:$B,0)))
右方向・→下方向・↓

お礼

本日出張から戻り、早速教えていただいた方法を試したところ、大成功です！
本当にありがとうございました。
また、ご連絡及びお礼が遅くなり申し訳ありませんでした。

補足

早々にご回答をいただきありがとうございました。
現在出張中につき、教えていただきました方法を試すことが出来ない環境にあります。
試した結果をまたご報告させていただきます。

回答No.3

hige_082

こんばんわ
請求書との事ですが
マクロで処理するのであれば
項目に、名前（会社名などの請求先）、日付（取引した日付）があると思うのですが
名前で抽出し、さらに日付（請求月：２月１日から２月２８日など期間で）抽出
それを日付で並び替えたものを「sheet2」へ出力すれば、チェックは不要ではと思います

マクロの作成も出力の部分以外は、マクロの記録で得られるコードの
一部変更だけで、できると思います

意図に反していましたら、放置してください

補足

ご回答をいただきありがとうございました。

請求書は毎月1日に1月分を纏めて発行しています。
sheetには取引日付順でデータを入力しており(上が若い日付)、
同一請求先が隔行になっている場合(1行目,5行目,12行目など)や
請求先(顧客数)が多いこともあり、
色々と考えた結果、質問内容の方法が現システムでは効率が良いと判断し、
質問させていただきました。

回答No.2

rukuku

はじめまして

＞A列の左に行を挿入、各行にチェックボックスを配置し
「チェックボックス」というと少々面倒ですが、A列の左に列を挿入して「p」印をつけた行だけをひな形にコピーして印刷する、というのはマクロの得意技です。
（pはprintの頭文字を取っただけなので別の文字でもOKです。ただし、特定の1字にしておかないとプログラムが面倒になります。）

このサイトで、詳細を事細かに説明するのは難しいので、まずはuntoldさんがどれくらいマクロを使えるのかを教えてください。

補足

遅くなり申し訳ございません。ご回答をいただき、ありがとうございました。
私のマクロに関するスキルですが、内容を見て理解できる程のレベルではありません。
ネットで自分の作成したいマクロ(またはVBA)に近いものを探し出し、
記述内容を編集して動かすことが出来る程度です。