advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 4265 for オートフィルタ (0.004 sec.)
[[20040819140215]]
#score: 4241
@digest: 53bf47b7677585a699a777ee41086f56
@id: 8318
@mdate: 2004-08-19T08:19:23Z
@size: 2538
@type: text/plain
#keywords: filer (7055), ッピ (3380), 得可 (2730), 入先 (2534), 仕入 (1961), イベ (1545), トフ (1351), ベン (1266), トッ (1170), オー (1154), モジ (1138), ジュ (1088), ルタ (968), フィ (811), 解読 (778), ィル (771), ・? (768), autofiltermode (765), ト・ (718), 定セ (673), ター (663), ュー (647), 変化 (560), ーワ (530), change (520), sheet (512), マク (509), 準モ (509), 初心 (507), 心者 (497), criteria1 (480), ール (479)
オートフィルターで選択されたセルの指定方法』(トッピ)
オートフィルターをかけて選択された最上行の特定セル値を別のセルにコピー する方法を、マクロで組みたいと考えています。 (例)下記で、4行目以降のデータに対して、仕入先の▼でbbを選択して、 マクロを起動したらセルB1にbbと表示させたい。 どなたか、初心者にわかり易く教えていただきたく、よろしくお願いいたします。 A B C 1 仕入先 _____ 2 3 4 商品名▼ 仕入先▼ 価格▼ 5 AAA aa 100 6 BBB aa 200 7 AAA bb 50 ・ ・ ---- オートフィルターの実行では、 マクロのイベントが発生しないので厳しいかと思います。 なお、オートフィルタの抽出に使用したキーワードであれば、 Filerオブジェクトのプロパティで取得可能です。 逆に、Changeイベントで B1 の値が変化したら マクロによりオートフィルターを掛けるとかなら実現できませんか? >初心者 初心者といっても幅がありますし、何が初心者なのかも分かりませんので、 回答者の立場としては、書いてあってもあまり意味がないように思ってます。 (INA) ---- INAさん 早速のご対応ありがとうございます。 が、おっしゃてる内容が理解できるレベルにありません。(^_^;) >Filerオブジェクトの・・・? >Changeイベント・・・・・? (理解度はマクロの自動登録と簡単なデバックができる程度です) ただ、逆提案いただきました、B1の値を変化させてマクロでオートフィルターを 掛けることができるのなら、それでも結構ですので、お手数ですが"具体的に"ご教示 頂ければありがたいです。なお、データはこれもマクロで別シートからのコピーで 貼り付けられたもので、オートフィルターの設定まで行っています。(トッピ) ---- どうぞ。 標準モジュールではなく、sheetモジュールに記載してください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("B1").Address Then Exit Sub If Target.Value = "" Then ActiveSheet.AutoFilterMode = False Exit Sub End If Range("A4").CurrentRegion.AutoFilter Field:=2, Criteria1:=Range("B1").Value End Sub (INA) ---- INAさん ありがとうございました。期待どうりに動作してくれました。 教えていただいた内容を解読してさらに勉強させていただきます。 ところで、追加質問で申訳ありませんが、標準モジュールとSheetのモジュールで 貼り付けるとではどのように異なるのでしょうか? (トッピ) ---- sheetモジュール、thisworkbookモジュールでは、 イベントによりマクロを実行することが出来ます。 「イベント一覧」 http://www.geocities.jp/vbaxl/event/000.html (INA) ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200408/20040819140215.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 97012 documents and 608132 words.

訪問者:カウンタValid HTML 4.01 Transitional