Ｐａｇｅ 492 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼エンターキーで移動するようにしたい けんけん 02/12/27(金) 18:13 ┗Re:試してみたところ ひで 02/12/28(土) 16:45 ┗Re:試してみたところ けんけん 02/12/29(日) 11:54 ┗私も勉強不足で・・ ひで 02/12/29(日) 19:09 ─────────────────────────────────────── ■題名 ： エンターキーで移動するようにしたい ■名前 ： けんけん <ks1955810@ybb.ne.jp> ■日付 ： 02/12/27(金) 18:13 -------------------------------------------------------------------------
| "エンターキーで移動するようにしたい”ので、 質問箱３【11530】ぴかるさんのマクロで実行してみたのですが、うまくいきませんでした。 ・C2のところでENTERを押してもマクロが実行しない。 ・そこで、C2でAUTO_OPENのマクロを実行すると、マクロセル移動が見つかりません となります。 セル移動のところは、ピンクさんの Select CASEに直してあります。 なぜ、マクロが実行しないのでしょう。ご教示ください。 > >>c2→D15→F15→H１５→ｌ15にしたいのです。 >ちょっとパターンを変えてみました。 >Sub AUTO_OPEN() > > Application.OnKey "{ENTER}", "セル移動" 'ENTERを押したらマクロを実行 > Application.OnKey "~", "セル移動" 'テンキーのENTERを押したらマクロを実行 > Range("C2").Select > >End Sub >Sub AUTO_CLOSE() > > Application.OnKey "{ENTER}" 'ENTERを押しても何も実行しない > Application.OnKey "~" '結果として登録したマクロの解除 > >End Sub >Sub セル移動() > > If ActiveCell.Address = "$C$2" Then > Range("D15").Select > ElseIf ActiveCell.Address = "$D$15" Then > Range("F15").Select > ElseIf ActiveCell.Address = "$F$15" Then > Range("H15").Select > ElseIf ActiveCell.Address = "$H$15" Then > Range("I15").Select > ElseIf ActiveCell.Address = "$I$15" Then > Range("C2").Select > End If > >End Sub |
| ▼けんけん さん こんばんは >"エンターキーで移動するようにしたい”ので、 >質問箱３【11530】ぴかるさんのマクロで実行してみたのですが、うまくいきませんでした。 けんけんさんの下記コードを標準モジュールにそのままコピペしたところ うまく動いています。EXL2000 win98 です。 なぜ動かないかはわかりませんごめんなさい。 Sub AUTO_OPEN() Application.OnKey "{ENTER}", "セル移動" 'ENTERを押したらマクロを実行 Application.OnKey "~", "セル移動" 'テンキーのENTERを押したらマクロを実行 Range("C2").Select End Sub Sub AUTO_CLOSE() Application.OnKey "{ENTER}" 'ENTERを押しても何も実行しない Application.OnKey "~" '結果として登録したマクロの解除 End Sub Sub セル移動() If ActiveCell.Address = "$C$2" Then Range("D15").Select ElseIf ActiveCell.Address = "$D$15" Then Range("F15").Select ElseIf ActiveCell.Address = "$F$15" Then Range("H15").Select ElseIf ActiveCell.Address = "$H$15" Then Range("I15").Select ElseIf ActiveCell.Address = "$I$15" Then Range("C2").Select End If End Sub |
| ひでさんこんにちは ありがとうございます。動きました。 Excel ObjectsのSheet1のところを開いて作成していました。標準モジュールで作成した動きました。 勉強不足で申し訳ありませんが、このExcel Objectsってなんなんでしょうか？ |
| ▼けんけん さん こんばんは >勉強不足で申し訳ありませんが、このExcel Objectsってなんなんでしょうか？ 私も勉強中の身でして(^^;; 詳しくはわかりませんので 回答ができませんが ＃2223 が参考になると思いますのでみてくださ〜い！ |