- ベストアンサー
Excel2000のF1キーを無効にする方法
OSはXPです。 過去のQAからVBAを使ってF1キーを無効にする方法を発見してやってみたのですが、うまくいきません・・・ （http://www001.upp.so-net.ne.jp/excel/chotto10.htm） 何度Excelを再起動してもF1キーは有効なままです。 なにが問題なんでしょうか？ 入力ミスありますでしょうか↓ Sub auto_open() ' ' Macro1 Macro ' マクロ記録日 : 2004/5/7 ユーザー名 : ●●●● ' ' Application.OnKey "{F1}","" End Sub
- DBDSDR
- お礼率10% (20/196)
- オフィス系ソフト
- 回答数2
- ありがとう数5
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
Application.OnKey "{F1}","" の行頭に ’ が記述されているように見えます。 ’ はコメントとして無視する行の先頭に付けるものです。 もういちど、エディターで確認して、 ’ が行頭についていたら削除しましょう。
その他の回答 (1)
- shishishishi
- ベストアンサー率39% (362/921)
Sub auto_open() Application.OnKey "{F1}","" End Sub です。
関連するQ&A
- Excel2000＆2002のヘルプ機能をF1で起動させたくない（2）
先日この質問で↓のサイトをご紹介していただいたのですが、 上手くいきませんでした。 マクロ素人の為、きっと何か大切な手順を漏らしているんだと思うのですが・・・(^^; どなたか詳しく説明 又は 他の方法を教えてください。 http://www001.upp.so-net.ne.jp/excel/chotto10.htm
- ベストアンサー
- オフィス系ソフト
- excel2002vbaで選択しているセルがハイパーリンクとそれ以外のものを区別する方法
ハイパーリンクをenterキーでリンク先に飛べるようにマクロを挿入したのですが、ハイパーリンク以外のセルでenterキーを押下した時に、「インデックスが有効範囲にありません」というエラーメッセジが表示されていまい通常のセル移動が行えません。 使用しているマクロは以前に掲載されていた以下のマクロをしようしています。 何かいい方法はあるでしょうか？ Sub Auto_Open() '起動時 キー設定 On Call SettingKeys(True) End Sub Sub Auto_Close() '終了時 キー設定 Off Call SettingKeys(False) End Sub Sub SettingKeys(flg As Boolean) If flg Then Application.OnKey "{Enter}", "JumpHyperLink" Application.OnKey "~", "JumpHyperLink" Else Application.OnKey "{Enter}" Application.OnKey "~" End If End Sub Sub JumpHyperLink() If TypeName(Selection) = "Range" Then Selection.Hyperlinks(1).Follow NewWindow:=False End If End Sub
- ベストアンサー
- オフィス系ソフト
- キーボードの数字キー及びテンキーを無効にするマクロ
お世話になります。上記質問タイトルに付きましてご質問させていただきます。 環境は、windowsXP、Excel2003です。 取扱い商品の物流を管理しているエクセルシートで、バーコードを読み込ませて商品コードを入力し、データ入力しています。 パートやアルバイトに入力操作をお願いしているのですが、キーボードの手入力のほうが入力しやすいらしく、手入力でデータ入力しているようです。ところが間違って入力していることがあり、キーボードの数字キーを無効にしたいと思いました。 少し調べたところ↓ -------------------------------------- Sub Keyboard09Off() For i = 44 To 90 Application.OnKey Chr(i), "" Next i End Sub -------------------------------------- このマクロで数字キーは無効になるのですが、まだテンキーは有効で さらに調べたところ↓ -------------------------------------- Sub Keyboardtenkey09Off() For i = 97 To 105 Application.OnKey Chr(i), "" Next i End Sub -------------------------------------- 自分では、これでテンキーが無効になると思ったのですが、うまくいかず。 どこが間違っているのでしょうか? 詳しい方いらっしゃいましたら、何卒ご教授お願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのヘルプショートカット(F1)を無効にすることは出来ますか？
現在、下記サイトを参考にエクセルのヘルプショートカットキー(F1)を無効にしています。 http://www.excel7.com/chotto10.htm ただ、セルにカーソルをあてた状態でF2キーを押下して(セルへの直接入力モードに切り替え)、F1キーを押下するとヘルプが立ち上がってしまいます。 これを無効に出来る情報をお持ちの方がいましたらよろしくお願いします。 ※インターネットで調べましたがこの現象についての情報を見つける事が出来ませんでした。 気が付いてない人が大半なのか、私の探し方が悪いのか・・・。 この現象はマイナーなものですか？ それとも私が知らなかっただけでメジャーなのでしょうか？ この辺りについても知っている方がいましたらお願いします。 ちなみに使っているエクセルは2000です。
- 締切済み
- その他MS Office製品
- PowerPointでマクロをショートカットキーに割り当てる方法
現在、エクセルで以下のようなマクロをアドインとして作成して、「CTRL+,」と「CTRL+.」で表示倍率を変えれるようなショートカットを割り当ててます。 同じことをパワーポイントでアドインを作成してやろうとすると、Application.OnKeyのところでエラーになってしまいます。同じVBAでも違うんでしょうか。 PowerPointで同じことをやろうとするとどうすればいいでしょうか? ご存知の方がいらっしゃれば教えてください。 ==================================================== Option Explicit Sub auto_open() Start 1 End Sub Sub Start(num%) Dim myBar As CommandBar Dim myCtrl As CommandBarControl Application.OnKey "^{.}", "Zoomup" Application.OnKey "^{,}", "Zoomdown" End Sub Sub Zoomup() If ActiveWindow.Zoom < 390 Then ActiveWindow.Zoom = ActiveWindow.Zoom + 5 End If End Sub Sub Zoomdown() If ActiveWindow.Zoom > 10 Then ActiveWindow.Zoom = ActiveWindow.Zoom - 5 End If End Sub
- ベストアンサー
- オフィス系ソフト
- 罫線を除く全て貼り付けをマクロCtrl+Alt+Vしたい
ショートカットキーの余裕がありません。 Ctrl+Shift+v は「値のみ貼り付け」に使っています。 Ctrl+Alt+v で「罫線を除く全て貼り付け」をVBAでお願いできますか？ 当方コピーするしか脳がありませんが。 また、マクロで[Ctrl]+[Alt]+[アルファベット文字]キーをショートカットキーに使えるような汎用型のBVAはできませんか？ 以前PC相談で教わったのですが、Ctrl+Alt+矢印キーはセル増減で便利に使っておりますが、改造する能力はありません。 以下は参考コピーです。 ご回答者 2001/08/18 12:46 たっきー 様 改良者 2001/08/18 16:50 パリポ 様 Sub Auto_Open() Application.OnKey "^%{UP}", "DelUp" Application.OnKey "^%{DOWN}", "InsDown" Application.OnKey "^%{LEFT}", "DelLeft" Application.OnKey "^%{RIGHT}", "InsRight" End Sub Sub DelUP() Selection.Delete Shift:=xlUp End Sub Sub DelLeft() Selection.Delete Shift:=xlToLeft End Sub Sub InsRight() Selection.Insert Shift:=xlToRight End Sub Sub InsDown() Selection.Insert Shift:=xlDown End Sub
- ベストアンサー
- オフィス系ソフト
- Excel2010でエンターキーにマクロ割り当て
時間入力を何分何秒をシリアル値に変換するマクロを作って使用していますが、 エンターキーに割り当てが出来ないのでカーソルキーの「↓」を割り当てています。 本当は「１２３４」と入力してエンターキーを押せばマクロが実行されそのセルに 12:34というシリアル値を入力したいのです。 エンターキーへの割り当ての仕方を教えてください。 ブックが開かれたら実行されるマクロで Private Sub Workbook_Open() Application.OnKey Key:="{ENTER}", Procedure:="時間変換" End Sub ではエンターキーで"時間変換"マクロは実行されず Private Sub Workbook_Open() Application.OnKey Key:="{DOWN}", Procedure:="時間変換" End Sub ではカーソルキー「↓」で"時間変換"マクロは実行されます。 何がいけないのでしょうか？ どうか分かる方、アドバイスをお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- Excel VBA Auto_Openについて質問です。
Excel VBA Auto_Openについて質問です。 A.xls Sub Auto_Open() Application.OnKey "{RETURN}", "ENTER_Key" Application.OnKey "{ENTER}", "ENTER_Key" End Sub でENTERキーでセルを任意の場所に動かしたいと考えています。 ENTER_Key()でうまく動かす事は出来たのですが、Auto_Openが止まらず、Excelを落とさずに、違うファイル(B.xls)を開いてA.xlsをクローズしてもB.xlsでENTERを押すと、エラー1004となってしまいます。 個人的にはAuto_Openが動いてしまっている感じがします。 エラーがでるので同コードをWorkbook_open()に移したのですが、今度は「マクロが使用できないか、無効になっている・・・」の画面になります。 原因や対策、またはENTERキーでセルを任意の場所に動かす方法等のアドバイスよろしくお願いします。 ちなみに、セル動きは1回目は1行下がり、2回目は右に4つ移動です。 このルーチンは出来ていると思います。 それではよろしくお願いいたします。 m(_ _)m
- ベストアンサー
- その他（プログラミング・開発）
- エクセルでVBAショートカットを作成したいです
エクセルVBAを使用して、ショートカットキーを作成したいです。 ネットで調べてみた情報を元に、以下のようにマクロを作成しましたが、動作しません。 （やろうとしているのは、Ctrl+Shift+V で値で張り付け です） どのように直したら動作するか教えて頂きたいです。 以下、作成したマクロです。。。 ---------------------------------------------------------------------- Sub auto_open() Application.OnKey "+^V", "値で張り付け" End Sub Sub 値で張り付け() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub ----------------------------------------------------------------------
- ベストアンサー
- オフィス系ソフト
- 【Excel】複数条件の論理式をVBAマクロでオートフィルするには？【エクセル】
セルF2からF5000までは =VLOOKUP(C2,sp_csv!C:H,6,0) という関数をオートフィルで入力できるようにマクロを組みました。 Sub Macro1() セル範囲 = "F2:F5000" 数式 = "=VLOOKUP(C2,sp_csv!C:H,6,0)" Range(セル範囲).Formula = 数式 End Sub 同様にセルG2からG5000は =IF(AND(E2>0,F2=0),"削除",IF(AND(E2=0,F2>0),"新規","変動なし")) という関数を入れてオートフィルさせたいのですが、コンパイルエラーが出てしまいます。 Sub Macro2() セル範囲 = "G2:G5000" 数式 = "=IF(AND(E2>0,F2=0),"削除",IF(AND(E2=0,F2>0),"新規","変動なし"))" Range(セル範囲).Formula = 数式 End Sub 複数条件の論理式をVBAマクロでオートフィルするにはどうしたらいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます！ 解決しました！