SMART SPACE

VBA 複数条件で抽出するには？

複数条件で抽出するには？

detail.chiebukuro.yahoo.co.jp/qa/question_detail.php;_ylt=A7YWPReHKqhT1A0A39YR_fN7?qid=13130684403&sort=1#sort

質問者

diogenes412323さん

2014/6/1702:04:48

複数条件で抽出するには？

Ｂ列でＮを選び、Ｃ列でaとbとcを選び、D列であを選んで
その選んだ行だけを書きだすにはどうしたらいいでしょうか？
シートをたくさんコピーしておいてそれを加工してますが、もっといい方法はありますか？
申し訳ありませんがすぐ試せるよう
Sub ()
End Sub
付きで教えてください。

http://ks.c.yimg.jp/res/chie-que-13130/13/130/684/403/i320

閲覧数：

19

回答数：

2

お礼：

100枚

 

mitokuboさん

2014/6/1707:06:48

マクロで行うような内容ではありませんね。関数を使って十分対応することができます。

例えばお示しの表がシート１のＡ列からＥ列の２行目から下方に有るとしてＧ２セルには次の式を入力して下方にドラッグコピーします。

=IF(AND(B2="N",OR(C2="a",C2="b",C2="c"),D2="あ"),MAX(G$1:G1)+1,"")

その後に該当する行をシート２に表示させるとしたらシート２のＡ２セルには次の式を入力してＥ２セルまで横にドラッグコピーしたのちに下方にもドラッグコピーすればよいでしょう。

=IFERROR(INDEX(Sheet1!$A:$E,MATCH(ROW(A1),Sheet1!$G:$G,0),COLUMN(A1)),"")

なおシート１の作業列が目障りでしたらその列を選択して右クリックし「非表示」を選択すればよいでしょう。

http://ks.c.yimg.jp/res/chie-qaprof-12/12/515/229/i48

chiquilin_siteさん

2014/6/1711:33:47

> Sub ()
> End Sub
> 付きで教えてください。
マクロの知識がさっぱりないならマクロは止めときましょう。この
くらいの抽出ができないってことは 基礎知識ゼロってことでしょ？

フィルタの詳細設定で抽出できます。どうしてもマクロがいいなら
それを記録マクロにすればいいです。

VBAを表示せずに実行するには？

VBAを表示せずに実行するには？

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10129692175

diogenes412323さん

2014/5/2707:51:11

VBAを表示せずに実行するには？

人に見えないようにVBAを使いたい時はどのようなやり方があるのでしょうか？
さりげなくスマートにVBAを使いたいんです。教えてください。

補足クイックアクセスツールバーにボタンを置いて
エクセルの画面の高さをできるだけ低くし（あまり狭くしすぎるとクイックアクセスツールバーも表示されないため）他のソフトの画面も立ち上げておいてボタンをクリックするとあまり派手なことにならずにＶＢＡが実行できました。本当は陰で走らせることができればいいのですが、そんな方法はないものでしょうか。

閲覧数：

62

回答数：

1

お礼：

100枚

カテゴリマスター

porihikoletskunさん

編集あり2014/6/223:16:34

こんにちは。
仕様上無理です。VBA単体では実行させることができません。

作るほうはスマートのつもりですが、それをウィルスの挙動という扱いになります。

VBSと組み合わせて、VBAを実行させることはできますが、タスクに表示されますし100%CPUを使いたがるVBAコードなので、マウスカーソルは砂時計、キーボードもマウスも「重くなります」つまり、「さりげなく」は無理です。

>できるだけちいさく
ということだったら、
1)ユーザーフォームによるツールバー
2)コマンドバーを設置して、そのバーだけを表示するようにする。

ユーザーフォームのほうが、大きさや配置がらくに出来ます。

マクロ集

選択したセル範囲に含まれる図形を削除するマクロ　http://www.relief.jp/itnote/archives/018407.php

 

複数シートを選択するサンプルマクロ　http://www.relief.jp/itnote/archives/017973.php

 

非表示の全ワークシートを削除するマクロ　http://www.relief.jp/itnote/archives/017802.php

 

非表示シートをまとめて表示したい　http://www.relief.jp/itnote/archives/001295.php

マクロをすべてのエクセルファイルに適用できるようにするにはどうしたらいい？

マクロをすべてのエクセルファイルに適用できるようにするにはどうしたらいい？http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13128405733

diogenes412323さん

マクロをすべてのエクセルファイルに適用できるようにするにはどうしたらいい？

visual basic を立ち上げ、コードを記述したとします。
そのマクロをすべてのエクセルファイルに適用できるようにするにはどうしたらいいのでしょうか？
現在はとあるエクセルファイルにマクロを入れておいて
そのファイルを立ち上げておいて
別のエクセルファイルを立ち上げ（ｃｓｖファイルだったりもします）
マクロを実行しています。
なんか手間がかかりすぎるのですが
もっとスマートな方法はないのでしょうか？

作ったばかりのｃｓｖファイルにすぐマクロを適用したい時に
もっと簡単にやれればいいのですが。

どこかのサイトで見かけた記述ですが
マクロはコレクションとして
ひとまとめにしておくとか書いてありましたが
何のことかわかりません。
どうやるのでしょうか？

• 

• 質問日時：

  2014/5/1 00:52:26

• 残り時間：

  期限切れ

• 閲覧数：

  88

  回答数：

  2

お礼：

知恵コイン

50枚

回答

（2件中1〜2件）

rivoisuさん

アドインにして登録すればどのブックでも使えるようになります。

私は「自作関数Function〜End Function」をアドインにした経験はあるのですがマクロ（Sub〜End Sub)もできるはずです。

関数と違ってマクロの場合はどのように起動するかが問題になります。
ショートカットができるかどうかは試してないのでわかりません。
右クリックメニューから起動するようにする方法が書かれています。
https://sites.google.com/site/compositiosystemae/home/vbaworld/midd...
が参考になるかと思います。

• 

回答日時：2014/5/1 11:01:38

xls88_1さん

個人用マクロブックに記述保存するようにします。
＜参考＞
個人用マクロブックを作る
http://kokodane.com/macro10.htm

ショートカットキーを割り当てる
マクロボタンをクイックアクセスツールバーに置く
とかすれば起動が簡単になります。
既存のExcelショートカットキーと被らないように注意してください。
マクロのショートカットキーが優先されます。
＜参考＞
ショートカットキーによるマクロの実行
http://www.officepro.jp/excelmacro/run/index1.html
マクロにショートカットキーを設定する
http://www.moug.net/tech/exvba/0150112.html

• 

回答日時：2014/5/1 01:23:23

拡張子を変えてマクロ有効形式で保存するにはマクロはどう記述したらいい？

拡張子を変えてマクロ有効形式で保存するにはマクロはどう記述したらいい？http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10128302405?fr=chie_my_notice_que_limit

diogenes412323さん

拡張子を変えてマクロ有効形式で保存するにはマクロはどう記述したらいい？

拡張子がxlsxのエクセルファイルをマクロ有効ブックのxlsmの拡張子に変更して保存したいと思います。
拡張子の前の部分の名前は変わりません。
それをマクロを使って行いたいのですがどうしたらいいでしょうか？

• 

この質問に補足する

• 質問日時：

  2014/4/29 03:23:48

• 残り時間：

  1時間

• 閲覧数：

  105

  回答数：

  1

お礼：

知恵コイン

100枚

 

（1件中1〜1件）

ipl_is_loadingさん

同じフォルダで同じファイル名で、拡張子だけ変えたいなら、ファイル名を指定しなければいいだけです。

ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled

• 
• 回答日時：2014/4/29 03:37:58