[[20020625163740]]　『データ入力、検索』（ゆーは）　ページの最後に飛ぶ

『データ入力、検索』（ゆーは）

会社で請求書の入力などにエクセルをしようしています。

そのデータを検索する際にオートフィルタを使用していますが、

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分頃投稿

コメント返信：

[ 一覧(最新更新順) ]

[[20020625163740]] 『データ入力、検索』（ゆーは） ページの最後に飛ぶ

[[20020625163740]]　『データ入力、検索』（ゆーは）　ページの最後に飛ぶ