Ｐａｇｅ 581 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼カーソルの移動について koshimizu 03/1/20(月) 16:29 ┣Re:カーソルの移動について ぴかる 03/1/20(月) 16:50 ┗Re:カーソルの移動について ポンタ 03/1/21(火) 8:28 ┗Re:カーソルの移動について koshimizu 03/1/21(火) 15:43 ┗Re:カーソルの移動について ポンタ 03/1/21(火) 17:01 ─────────────────────────────────────── ■題名 ： カーソルの移動について ■名前 ： koshimizu <info@teikyo3.ed.jp> ■日付 ： 03/1/20(月) 16:29 -------------------------------------------------------------------------
| 初めて質問します エクセルの表をＣ烈を入力していき（Ｃ５０）まで入力したら（Ｄ４）にカーソルが移動して欲しいのですがどのようにしたら良いのですか又同じく（Ｄ５０）まで入力したら（Ｅ４）にカーソルが移動して欲しいとゆうようにしたいのですが |
| koshimizuさん、こんにちは。 >エクセルの表をＣ烈を入力していき（Ｃ５０）まで入力したら（Ｄ４）にカーソルが移動して欲しいのですがどのようにしたら良いのですか又同じく（Ｄ５０）まで入力したら（Ｅ４）にカーソルが移動して欲しいとゆうようにしたいのですが いろんなやり方がありますが、↓ソフトの入力設定→入力範囲ロックを使用すれば、 マクロ無しで可能です。お試し下さい。 ダウンロードして頂いて、おためしコーナーにてまず体験してみて下さい。 http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=36;id=FAQ |
| 対象のシートモジュールに貼り付けて、 お試しください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Row = 50 Then Cells(4, Target.Column + 1).Activate End If End Sub |
| 下記のようなマクロを解答していただき有難うございました。 私だけでなく皆喜んでいます。 又下記のようなマクロは列方向ですが、行方向はどのように変更したら良いのかお願いします。 >Private Sub Worksheet_Change(ByVal Target As Range) > If Target.Count = 1 And Target.Row = 50 Then > Cells(4, Target.Column + 1).Activate > End If >End Sub |
| サンプルコードです。 上は列だけをコントロールするコード 下はと行と列をコントロールするコードです。 エクセルの機能に精通した人がやるような、 特徴的な操作には対応していませんが、 お試しください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column = 50 Then Cells(Target.Row + 1, 4).Activate End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target.Row = 50 Then Cells(4, Target.Column + 1).Activate End If If Target.Column = 50 Then Cells(Target.Row + 1, 4).Activate End If End If End Sub |