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

Results of 0 - 1 of about 0 (0.000 sec.)

[[20020625163740]]: @digest: 9a44f4ee364def858d24bf0e927183f9; @id: 226; @mdate: 2008-09-05T01:39:46Z; @size: 1397; @type: text/plain; #keywords: myfilter (19478), subject (8758), recovering (7815), 時37 (7380), 時39 (7055), ・'- (7055), 分頃 (6803), 社" (5997), 頃投 (5950), onkey (5340), ・. (4222), ァン (3072), ンキ (2055), 日16 (1728), 類別 (1715), f12 (1179), 年9 (1106), 年6 (984), 月25 (968), 未解 (937), 本来 (825), 日10 (763), の本 (724), クシ (714), private (669), 来の (632), タ入 (589), 求書 (571), 解答 (565), criteria1 (481), 月5 (449), 請求 (441); 『データ入力、検索』（ゆーは）
会社で請求書の入力などにエクセルをしようしています。そのデータを検索する際にオートフィルタを使用していますが、 F1〜F12のファンクションキーをうまく利用してデータの種類別に検索できないかと考えてます。エクセルのソフトとファンクションキーをつなげるにはどうしたらよいのでしょうか。 ---- これは2002年6月25日16時37分頃投稿された未解答の過去ログです。ファンクションキーの本来の機能が失われてしまいますが、OnKeyメソッドで割り当てれば実現できます。下記コードはSheet1のA列の1行目に見出しがあり、それに対するオートフィルタの前提です。以下を標準モジュールに記載。 '**********ここから********** Private Sub Auto_Open() With Application .OnKey "{F1}", "Subject_1" .Onkey "{F2}", "Subject_2" ・・・ .Onkey "{F12}", "Subject_12" End With End Sub '---- Private Sub Subject_1() myFilter "A社" End Sub '---- Private Sub Subject_2() myFilter "B社" End Sub '---- ・・・ '---- Private Sub Subject_12() myFilter "L社" End Sub '---- Private Sub myFilter(txt As String) Sheets("Sheet1").Range("A1").AutoFilter Field:=1, Criteria1:=txt End Sub '---- Sub Recovering() 'Function keyの本来の機能に戻したいときに実行。 With Application .OnKey "{F1}" .Onkey "{F2}" ・・・ .Onkey "{F12}" End With End Sub '**********ここまで********** (ROUGE) 2008年9月5日10時39分頃投稿 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200206/20020625163740.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ