マクロ ボタンの使い方について

質問

マクロは初心者です。
チェックボックスとボタンを使って他のシートにデータを抽出したいのですが、どのようにすればよいでしょうか？

回答No.2

imogasi · ベストアンサー

チェックボックスを使っていませんが解答例です。
抜き出しは操作で出来ますが（フィルタ）別シートにセットできない（エクセル２０００）ようなので、ＶＢＡを使わざるをえません。
Ｓｈｅｅｔ１に表があって、抜き出したい行のＡ列に○を
付ける。そしてＴｅｓｔ０１を実行すると、Ｓｈｅｅｔ２に
○を付けた行だけ抜き出す。そういうＶＢＡです。
チェックボックスの代わりをＡ列が担っています。
（１）Ｓｈｅｅｔ１のＶＢＥウィンドウに下記を貼りつける。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' MsgBox Target.Column
If Target.Column = 1 Then
If ActiveCell = "○" Then
ActiveCell = ""
Else
ActiveCell = "○"
End If
End If
End Sub
第２列に○をつけたければ、Target.Column = ２に修正してください。
Ａ列に限り、クリックしたセルに○を自動セットします。再クリックで消えます。（同じセルを、なし－＞○－＞なしにする時は、○の段階でＡ列以外のセルをクリックしてから戻ってください。○－＞なし－＞○にするときも同じ）
（２）Ｍｏｄｕｌｅを挿入し下記を貼りつけてください。
OK-WEB行文字数制限で強制改行される個所があるので注意のこと。修正してください。
Sub test01()
bt = Worksheets("sheet1").Range("b2").CurrentRegion.Rows.Count
' MsgBox bt
k = 2
For i = 2 To bt + 1
If Worksheets("Sheet1").Cells(i, 1) = "○" Then
Worksheets("Sheet2").Cells(k, 1) = 　　　　　Worksheets("Sheet1").Cells(i, 2)
Worksheets("Sheet2").Cells(k, 2) = Worksheets("Sheet1").Cells(i, 3)
k = k + 1
End If
Next i
End Sub
実行するとＳｈｅｅｔ１に○を付けた行のみ、Ｓｈｅｅｔ２
に抜き出されます。
（３）本モデルと実際案件の違いによる修正。
シートの第１行は見だしに仮定しています。
データが始まる行をｋ＝４等修正する。
Worksheets("Sheet2").Cells(k, 2) = Worksheets("Sheet1").Cells(i, 3)の項目の数は必要な分だけ増やして
下さい。列を表す２や３は適当に修正してください。

お礼

ご丁寧な回答をどうもありがとうございました。お礼が遅くなり申し訳ありません。
VBAを使ったことがなかったのですが、早速貼り付けて実行してみました。

回答No.1

imogasi

・「シート」と言う言葉から、エクセルですね。参考までにバージョンは。
・「データを抽出したい」－＞（１）Ｆｉｎｄを使う（２）Ｆｉｌｔｅｒを使う（３）繰り返し聞く方法など
あります。
・抽出条件を指定する必要がありますが、チェックボックスやボタンで指定させるつもりですか。男か女のような簡単な条件ならともかく、不適なコントロールのように思いますが、どのようにされるにですか。
・ボタンはプログラムが走るきっかけとかにクリックする
ために使うように思いますが。
・解答者の説明の詳しさ・簡単さのために、シートやフォームにチェックボックスやボタンを貼りつけることは
やったことがありますか。
・ひょっとして、ボタンはツールバーのボタンですか。
（Ｆｉｎｄ）
http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv98c2.html
（ＡｄｖａｎｃｅｄＦｉｌｔｅｒ）
http://rose.ruru.ne.jp/dst/text/Excel2/Excel2.asp

補足

早速説明ありがとうございます。
バージョンは2000です。チェックボックスはやったことがありますが、ボタンは人が作成したものに修正を加える程度しかやったことがありません。
具体的には、データの中からいくつかを選択して（選択条件は計算式では作成できないため、自分で選択する必要があります）その行の1部を他のシートに抽出したいと思っています。選択したものをボタンで1度に抽出できればと思ったのですが。抽出データを送信する必要があるため、そのシートに計算式は入らないようにしたいのですが、どのようにすればよいでしょうか。
よろしくお願いします。