エクセルの学校：全文検索：Hyper Estraier：マクロ

Results of 1 - 1 of about 27291 for マクロ (0.014 sec.)

[[20110729083114]]: #score: 2168; @digest: 47ec95d04312c0f693a8289c81f88a32; @id: 55367; @mdate: 2011-07-30T06:34:46Z; @size: 9624; @type: text/plain; #keywords: breaktime (19894), グル (6476), ロ記 (4783), の氏 (4255), （hi (3590), criteriarange (3498), 囲( (3445), 記録 (3367), タオ (3316), ープ (3139), 氏名 (2905), ルー (2861), 抽出 (2673), 手動 (2190), マク (2103), ルタ (2074), criteria1 (1923), クロ (1890), フィ (1738), ィル (1653), のグ (1594), プの (1532), autofilter (1516), トモ (1445), 変化 (1400), オプ (1368), プシ (1354), ト2 (1310), シー (1303), 実行 (1256), ート (1190), change (1041); 『当該データを別のシートにすべて表示するには』（HI）
教えて下さい。シート1に100名の氏名データがあり、それぞれをA〜Tの5名ずつのグループ分けしています。つまりA2:A101に氏名、B2:B101にそれぞれのグループ名（A〜T)が入力されています。このデータからシート2のA2にたとえば「E」と入力すると B2:B6のセルにEグループの者の氏名が全員分名簿順に表示されるようにするにはどうしたらよいのでしょうか? 関数だけで可能でしょうか、それともマクロを作るのでしょうか? お願いいたします。 Excel2007 ---- フィルタオプションの設定で抽出する作業をマクロの記録で作成それをシートモジュールのWorksheet_Changeへ貼り付け参考: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Sheets("Sheet1").Range("A1:B101").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("B1"), Unique _ :=False End If End Sub ---- 早速のコメントありがとうございます。まことに申し訳ないのですが、当方初心者のため、よくわかりません。具体的に指示していただければ助かるのですが。（HI） ---- >当方初心者のため、よくわかりません。と言われても何処から説明すればよいのか・・・・フィルタオプションの設定が?なら http://www.eurus.dti.ne.jp/‾yoneyama/Excel2007/excel2007-filter2.html を参考にしてください (BreakTime)2番目のレスは私ですニックネームを入れ忘れました ---- BreakTimeさん、ありがとうございます。まずフィルターでAのグループの氏名を抽出するまでの作業はマクロ記録で記録しました。この後の作業の仕方がよくわかりません。「シートモジュールの〜以降」について教えていただけるでしょうか。（HI） ---- BreakTimeさんへいろいろとやってみましたが、やはりシートモジュールのWorksheet_Changeへ貼り付け以降のやり方がよくわかりません。とりあえずAグループを抽出するマクロ記憶はやりましたが、抽出されるのはデータと同じシートになっています。この後どうすればよいのでしょうか（HI) ---- フィルタオプションの設定でデータを抽出する時抽出結果を出したいシートから実行するとデータの有るシートとは別のシートに抽出出来る事に成ります。それでもう一度 A2セルに A を入力して、Aグループをシート1とは別のシートに抽出する操作の記録をとって下さい。 A2セルの値を変えてマクロを実行した時希望する結果が得られますか? (HANA) ---- HANAさんへ「A2セルに A を入力して、Aグループをシート1とは別のシートに抽出する操作の記録をとって下さい。」とここまでの操作はマクロ記録したのですが、以降の操作が全くわかりません。もちろんA2にほかのグループを入れても変化ありません。このマクロ記録したものをどこにどのように貼り付け、そしてBreakTimeさんのマクロをどこにどのように貼り付けるかがわかりません。お恥ずかしいかぎりなのですがマクロの作り方を理解しておりません。（HI) ---- 順番に進んで下さい。当初は＞とりあえずAグループを抽出するマクロ記憶はやりましたが、＞抽出されるのはデータと同じシートになっています。と言うマクロでしたね。そして、新しく取り直して貰ったと思います。私は「A2セルの値を変えてマクロを実行した時希望する結果が得られますか?」と質問していますが、どうでしょう? 思い通りのマクロが記録されていれば以降の操作に移れますがそうでない場合は、次の操作を行っても希望する結果には成りません。 (HANA) ---- HANAさんへ私の説明が不備でうまく伝わらず申し訳ございません。とりあえず、現状はシート1にあるデータからシート2にAグループの氏名を表示させるマクロ記録はできました。しかしA2の値を変えて他のグループの氏名を表示させることはできておりません。私ができたのはシート1のデータにフィルターをかけてAグループを抽出し、それをシート2の指定場所にコピーするという作業をマクロ記録させただけです。（HI) ---- ＞とりあえず、現状はシート1にあるデータからシート2に＞Aグループの氏名を表示させるマクロ記録はできました。＞しかしA2の値を変えて他のグループの氏名を表示させることはできておりません。これは「A2セルの値を変えたら、【勝手に】表示させる様には出来ていない」と言う事で良いですか? 私が前段階として確認したいのは A2セルの値を変えて、先ほど記録して貰ったマクロを【実行】すると A2セルの値に応じたデータが抽出される様なマクロが出来たか? と言う事なのですが。。。手動で実行して、確認してもらえましたか? (HANA) ---- HANAさんへ A2のセルの値を変えても全く変化はありません。つまり最初にAのグループの氏名を表示したままで、他のグループの氏名は全く表示されません。 HANAさんのおっしゃるとおり「A2セルの値を変えたら、【勝手に】表示させる様には出来ていない」のが現状です。（HI) ---- >それをシート2の指定場所にコピーするという作業をマクロ記録させただけですもしかしてオートフィルタでやってませんか? オートフィルタで行うとコードに"A"を抽出しなさいと部分が有るため A2の値を変えても変化しません ↓この様な部分 .AutoFilter Field:=2, Criteria1:="A" "A"を A2のセルの値にしたいのなら Criteria1:="A"をCriteria1:=Worksheets("Sheet2").Range("A2").Value 等にしてください一方フィルタオプションの設定では CriteriaRange:=Worksheets("Sheet2").Range("A1:A2") の部分でA1:A2が抽出条件範囲となるのでA2の値を変えると変化します少しだけ時間が空いた・・・ (BreakTime) ---- 掲示板の書き込みに関して〜行頭に半角スペースを入れると、書き込みの改行位置が反映されます。＜ここです。そんでもって、過去分は勝手に整形しちゃいました。（とおりすがりん♪） ---- マクロの記録で出来たコードが自動で実行されないのは分かっていますので。。。その前に【確認のため】 A2セルの値を変更して、手動でマクロを実行したらきちんと動きますか? ‾‾‾‾‾‾ セルの値を変えた時に自動で動く様に作業をする前に確認して出来るのか出来ないのか結果を教えて貰いたいのですが。・・・と、再三書いてるのですが何故この部分に付いてはお返事が無いのでしょうね。。。 (HANA) ---- ひょっとして「A2セルの値を変更」することを「手動」だと思ってるんじゃ? あとは「マクロを手動で実行する」方法がわからないとか? ---- HANAさんへわたしの説明がつたないために真意が伝わらなくご迷惑をかけました。「A2セルの値を変更して、手動でマクロを実行したらきちんと動きますか?」の部分ですがその通り値を変更して、手動でマクロを実行しましたが変化ありませんでした。 BreakTimeさんへフィルタオプションの設定で抽出する作業をマクロの記録で作成それをシートモジュールのWorksheet_Changeへ貼り付け参考: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Sheets("Sheet1").Range("A1:B101").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("B1"), Unique _ :=False End If End Sub このマクロはどこに張り付けるのでしょうか。基本的な質問で申し訳有りません。あとオートフィルターでやりました。（HI） ---- ちなみにAグループの氏名をシート2に表示させたマクロ記録は以下の通りです。よろしくご指導ください。 BreakTimeさんのご指摘通りオートフィルターでやってしまいましたのでAグループしか表示されません（HI） Sub データ抽出() Sheets("Sheet1").Select Range("A1:B23").Select Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:="A" Range("A1:B23").Select Selection.Copy Sheets("Sheet2").Select Range("B1").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets("Sheet1").Select Selection.AutoFilter Field:=2 Sheets("Sheet2").Select Range("A2").Select End Sub ---- フィルタオプションの設定 2007では、データタブ → 並べ替えとフィルタグループ → 詳細設定ですね。使ったことが無ければ、使ってみてください。 (HANA) ---- HANAさんへフィルタオプションやってみました。それをマクロ記録で手動でやってみたのですが、シート2の値をいろいろと変えてみたのですが、1行目のタイトル行だけがコピーされて氏名データが表示されませんでした。どこに原因があるのでしょうか。以下がその記録です。（HI） Sub Macro3() Sheets("Sheet1").Range("A1:B23").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("B1:C7"), Unique:=True Sheets("Sheet2").Select Range("A2").Select End Sub ---- マクロの記録をとる時に、既に希望通り抽出出来ないのですか? それとも、一回目（マクロの記録をとった時）はうまくいくがそのマクロを実行してもうまくいかないのですか? 同じブックで次の手順をやってみてもらえますか。 1.新規シートを追加する。（シート名:Sheet3） 2.Sheet1のB1:B2セルをコピーして、Sheet3のA1:A2セルに貼り付ける 3.Sheet3をアクティブにして、データタブ → 並べ替えとフィルタグループ → 詳細設定抽出先------ ○選択範囲内(F) ●指定した範囲(O) リスト範囲(L) Sheet1!A:B 検索条件範囲(C) A1:A2 抽出範囲(T) B1 □重複するレコードは無視する(R) [ OK ] すると、A2セルに貼り付けたグループのみ抽出されますか? それとも、やっぱり駄目でしょうか? A2セルの値もSheet1と一致する必要がありますが A1セルの値（見出しの文字）もSheet1と一致している必要があります。そのあたりを確認してみて下さい。 (HANA) ---- HANAさんへできました。ありがとうございました。出来なかった原因は、お恥ずかしいかぎりですが、「A2セルの値もSheet1と一致する必要がありますが」のご指摘通りでした。A2に入力した値が微妙にずれていたのだと思います。Sheet1のデータをリスト入力する形にしてみると何の問題もなく表示されました。 BreakTimeさん、Hanaさん本当にありがとうございました。そしてまたよろしくお願いいたします。（HI） ---- 出来たのは良かったですが、抽出が出来た段階ですよね? ・・・・マクロの記録も出来たと思いますが。。。 マクロが出来たら、自動実行出来る様にしないといけないですよね。そこまで完成しましたか? 或いは、ボタンで実行でも良い事にする? (HANA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201107/20110729083114.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ