VBAマクロについて

質問

エクセルVBA初心者です；；
よろしくお願いいたします

エクセルで馬データを管理しています
シート１：500頭くらいのデータがずらっと並んでいます
シート２：シート１のデータより一部の馬を50頭抜き出しています

シート１・２ともに、csv抽出マクロを埋め込んでいます
シート１にシート１のデータ抽出ボタン、シート２の内容を抽出するボタンを追加しました
シート１・２ともカラム構成が異なっています

やりたいことなんですけど、シート１でシート２の内容を抽出できないものかと思います
シート１からシート２の関数を呼び出しかつ、抽出対象データがシート２という感じで出来ないものでしょうか？

シート２に移ってボタンをクリックすればいい話なんですけど、これからシートを追加するので
あとあと面倒だと。

ご伝授お願いします

回答No.3

K-Sogacchi

うーん、いまいちピンと来ないけど、
＞シート１からシート２の関数を呼び出しかつ、抽出対象データがシート２という感じで出来ないものでしょうか？
の件は、
シート１の処理中で
Call Sheet2.CSVWrite_AA
とかで普通に呼べるんでは？
（Sheet2.CSVWrite_AA をPrivateで宣言してたりしたら無理だけど、そこは
Private外すか、Public宣言しましょう）
あと、Sheet2.CSVWrite_AA の中では、Rangeとかの参照を全てWorksheetから
書いておけば（Range("A1")とかじゃなくて Sheet2.Range("A1")とかにする）、
どこから関数を参照しても対象データはSheet2になるし。
…これで片付く話では ないんだろうか？

回答No.2

hige_082

無理です
何を聞きたいのか？
Sub CSVWrite(Optional SH As Worksheet)のプログラムも？？
CSVになぜ書き出す必要が？？？
もう少し簡潔な質問を、お願いします

回答No.1

imogasi

シート２でボタンで出来たなら、シート１のボタンを作って抽出機能を移すのは、たやすいと思うのだが、どう言う点で困って居ますか。
質問が質問者には判るが。読者には伝わりにくい。
＞関数ーー＞ワークシート（普通の）関数ですか。VBAのFunctioｎのこと？
＞csv抽出マクロ
こんな言葉はここの過去の質問で聞いたこともなく本でも見たこと無い。どういういみ？
＞csv抽出マクロを埋め込んでいます
以上三点は質問の本質とは関係なさそうだが。公の場に、沢山の読者の前に質問を出すのだからしっかり書いてほしい。
埋め込むとは？
＞抽出
どんな風なコードで抽出してますか
ーー
シート２のデータを対象に
ある条件で抽出し
シート２に納める？？
キッカケのコマンドボタンはシート１に張り付け？

補足

imogasiさん、丁寧に有難うございます
言葉足らずで申し訳ありません

＞関数ーー＞ワークシート（普通の）関数ですか。VBAのFunctioｎのこと？
　Ａ．Sub CSVWrite(Optional SH As Worksheet)
　　　　　・・
　　　　　・・
　　　End Sub
　　　のような記述で、・・の中にPrivate Function ××を複数作っています

＞csv抽出マクロ
こんな言葉はここの過去の質問で聞いたこともなく本でも見たこと無い。どういういみ？
　Ａ．シート１の構成は、『uma_id』『uma_sex』『uma_record』・・・・を見出しと
　　　500レコード（件数）がシート１にあります。それを、１レコードづつ読み込んでcsvに吐き出すプログラムが
　　　csv抽出マクロです（自作です）
　　　uma_id　　uma_sex　　uma_record
a1 hin 3:33:33
a2 bo 2:22:22
a3 hin 1:11:11
　　　抽出されたcsvイメージです

＞csv抽出マクロを埋め込んでいます
以上三点は質問の本質とは関係なさそうだが。公の場に、沢山の読者の前に質問を出すのだからしっかり書いてほしい。
埋め込むとは？
　Ａ．埋め込むの表現がよくなかったですね。2番目の回答で応えた自作プログラムをインポートしているイメージです

シート１は、ボタンをクリックすると、Sub CSVWriteが呼ばれ
シート２ボタンをクリックすると、Sub CSVWrite_AAが呼ばれています

シート１の見出し数・・・10項目
シート２の見出し数・・・7項目
シート１，２の項目数が同じであれば、Sub CSVWriteをシート１，２で使えばいいんでしょうけど・・・
なので、シート１に、シート２で使っているSub CSVWrite_AAを呼び出すボタンを追加して実行しても、10項目が抽出されしまいます
理想は、７項目抽出したいのです。抽出対象レコードもシート２が対象としたいです

ごちゃごちゃしてしまいましたが、宜しくお願いします