質問: シートに入力した内容をマクロ?でリスト化できますか? 以前行った質問で、 (1)シート2のリストに入力=(2)シート1のフォームに反映(→(3)印刷)というものがあり その際は皆さんに色々教えて頂いたヒントを元にリストとvlookupで解決しました。 しかし、今度は逆に、 (1)シート1のフォームを入力=(2)シート2のリストに反映→ (3)シート1で『確定』ボタン?を押す=(4)シート2が確定され→ (1)シート1で新たな入力→(2)...以下繰り返し という事をしたいという依頼が来ました。 最終的には、常にシート1は入力用で、シート2が蓄積・保存用になる予定です。 サイトで色々調べ、(http://www.sigoto.co.jp/excel/) 多分マクロで書式の消去を使えば上手くいきそうな気がしているのですが、 具体的にどのように行えばよいのか掴めていません。 初心者な質問で申し訳ありませんが、どのようにすれば良いか教えて下さい・・・・! ヒントになるようなサイトがあればお願いします。。
回答: データの状況がわかりませんが、 データシートのa列に、重複していない管理番号などあったとして、 a2に、表示したいデータの管理番号を入力(vlookup関数で使用した検索値など) a1には、=match(a1,sheet2!a:a) と入れると、a2に入れた管理番号の行番号が表示されると思います。 a1の値を利用して sub ボタン1_click() gyou = range("a1").value range("c1").value=sheets("sheet2").cells(gyou, 2).value range("c2").value=sheets("sheet2").cells(gyou, 3).value range("c3").value=sheets("sheet2").cells(gyou, 4).value end sub と、先に紹介したマクロの式の=の左右を入れ替えて見てください。 式の内容を理解すると、やりたいことが自由に出来るようになります。