天気のせいでしょうか。
昨日、今日と気分が優れません。
前回からの続きを書きます。
それでは、
＊－－－－エクセルマクロ：ＶＢＡプログラミング楽ちん講座８日目 －－－＊
始まり～始まり～
＊-------------- 画面操作 ----------------------------＊
「商品データ」のシートを選択
＊------------- マクロの記録 ------------------------＊
※青で表示している部分が、画面の動きで記録されていく
マクロ命令です。
商品データを選択
Sub りんご()
' りんご Macro
' マクロ記録日 :
Range("A1").Select
Selection.AutoFilter
Range("A1:C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="りんご"
Range("A1:C20").Select
Selection.Copy
Sheets("りんご").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("商品データ").Select
End Sub
次
＊-------------- 画面操作 ----------------------------＊
オートフィルター解除
＊------------- マクロの記録 ------------------------＊
オートフィルターを選択し解除。
（データ → フィルター → オートフィルター）
商品データを選択
Sub りんご()
' りんご Macro
' マクロ記録日 :
Range("A1").Select
Selection.AutoFilter
Range("A1:C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="りんご"
Range("A1:C20").Select
Selection.Copy
Sheets("りんご").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("商品データ").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
次
＊-------------- 画面操作 ----------------------------＊
「りんご」のシートを選択。
＊------------- マクロの記録 ------------------------＊
Sub りんご()
' りんご Macro
' マクロ記録日 :
Range("A1").Select
Selection.AutoFilter
Range("A1:C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="りんご"
Range("A1:C20").Select
Selection.Copy
Sheets("りんご").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("商品データ").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("りんご").Select
End Sub
＊--------------------------------------------------＊
どうでしょう。
これで、「りんご」を抽出するプログラムが作成（記録）されました。
だいたい、理解できたのではないでしょうか。
エクセルの操作にあわせて自動化する命令が準備されているわけです。
・画面でオートフィルターをすると・・・
Selection.AutoFilterという命令が記録され
・画面でセルの範囲指定（Ａ１からＣ２０）をすると・・・
Range("A1:C20").Selectという命令が記録されるわけです。
・複写（コピー）をすると・・・
Selection.Copy
等々。
けっして、難しくないですよね。
ここまでくれば「みかん」や「いちご」「なし」も簡単に作れるはずです。
ただし、次回は「マクロの記録」ではなくて、実際にプログラムをいじくって作ってみましょう。