以前こちらで教えていただき、
以下のように文字を入力したら、右へ移動するようにしました。
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.Offset(-1, 1).Select '入力をしたら右にセルが移動する
End Sub
上記コードでは、deleteを押すと セルが、右上に移動してしまって
困っています。
そこで、以下のようにしてみました。
Private Sub Worksheet_Activate()
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlToRight
End Sub
すると、今度は、別のエクセルデータを開いても右へセルが移動してしまい、
その都度オプションでカーソルの移動を下へ変更しなければいけなくなってしまいました。
やりたいことは、
決められた一つのファイルでのみ、エンターを押す、もしくは文字を入力する、DELETEを押す
上記の作業の後、セルが右へ1つ移動するというようにしたいのですが、
どのようにしたらよいでしょうか?
No.2ベストアンサー
- 回答日時:
こんにちは。
既存のApplication.MoveAfterReturn、Application.MoveAfterReturnDirection
を扱う記述やWorksheet_Changeイベント等すべてを排除した上で、
ThisWorkbook モジュールに以下の記述を貼り付けます。
この方法であれば、
ブックを閉じた後、
同時に開いた他のブックで作業する時、
既定の下方向へのカーソル移動へと設定を戻します。
コードを貼付けた直後は、Workbook_WindowActivate
が呼び出されるまで何もしませんから、
最初だけ、
Application.MoveAfterReturnDirection = xlToRightを別の方法で実行するか、
他のブックを開いて、アクティブブックを切り替える等して試してください。
尚、Application.MoveAfterReturnは変更する必要のないプロパティです。
' ' /// ThisWorkbook モジュール
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.MoveAfterReturnDirection = xlDown
End Sub
' ' ///
> 決められた一つのファイルでのみ、エンターを押す、もしくは文字を入力する、DELETEを押す
> 上記の作業の後、セルが右へ1つ移動するというようにしたいのですが、
「DELETEを押す」タイミングでカーソルを移動する、というのは、
Windowsでは馴染みのない挙動なので、意図を量りかねています。
通常は、[DEL]→[ENTER]キーという2つのストロークで、
カーソルを移動するものだと思います。
(これでも2ストロークですから、他の処理よりは手数少ない訳ですし)
ということで、差し当たり、
「DELETEを押す」タイミングでカーソルを移動することについては、
今回、何もしていません。
やるとすれば、Application.OnKey メソッドあたりを扱うことになると思いますが、
管理的に難しめです。
何故、その機能が必要なのか、補足説明頂ければ、
それに合わせた形で再度検討してみます。
取り敢えず、以上です。
ありがとうございます。
今回は急いでいたため、記載していただいたものをそのままコピーして
使用させていただきました。
また、「DELETEを押す」タイミングでカーソルを移動する。。。
ご指摘いただいたように、このような動きはするはずないですよね。
ただ、
以前使用していた(記載した内容)だと、
なぜかDELETEを押すとENTERを押さなくてもカーソルが勝手に移動してしまっていたので、
頭の中がごちゃごちゃになってしまっていたようです。
今回コピーさせていただいたソースが自分のやりたいことをすべてできたので
本当に満足しております。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) VBA 画面上のカーソルに文字数字を入力するコードを教えて下さい 1 2022/10/30 10:31
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
セルの自動移動
Excel(エクセル)
-
-
4
エクセル 1文字入力すると自動で横にセル移動
Windows Vista・XP
-
5
エクセルでエンターを押すと任意のセルに移動は出来ますか?
その他(コンピューター・テクノロジー)
-
6
エクセル2010セル入力後指定の離れた場所に移動?
Excel(エクセル)
-
7
エクセルで指定した文字数入力したら自動で次のセルに飛ぶには
Excel(エクセル)
-
8
Excelで指定桁数分を入力すると自動的に次のセルに移動するようにするには?
Excel(エクセル)
-
9
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
10
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
11
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
12
excelで セルの移動時にマクロ実行を設定したい。
Excel(エクセル)
-
13
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
14
Worksheet_Change、名前の定義で分岐
その他(Microsoft Office)
-
15
エクセルVBAでロックをかけたい
Excel(エクセル)
-
16
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
17
エクセルのコントロールツールボックスの出し方。
Visual Basic(VBA)
-
18
エクセルのシート上に別のシートを埋め込む方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
あるセルに色を付けた時、別の...
-
エクセルで1列おきのデータのみ...
-
Wordでセルに文字を入力すると...
-
エクセルで捺印をもらう欄を別...
-
Wordで、表のセルが変なところ...
-
Excelで写真のような表を作った...
-
Wordの表をExcelの表に貼り付ける
-
wordの表の着色したセルを透過...
-
【エクセル】離れたセルのCOUNT...
-
会議の席次を作成するソフトは...
-
Excelで1部印刷する毎に連番を2...
-
エクセル2010で、結合したセル...
-
エクセルにチェックボックスを...
-
エクセルで日付の入ったセルの...
-
エクセルで知らない間に行がず...
-
Excelで「折り返して全体を表示...
-
用紙を均等に分割して文書は作...
-
エクセルでひとつのページに幅...
-
ワードの表に図形を挿入した時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
Wordで、表のセルが変なところ...
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
エクセルでセルの中の文字が削...
-
エクセル2010で、結合したセル...
-
ワードで表を作ってセル内で改...
-
Excelのセル内の文字の頭に半角...
-
ワードの表で中央揃えが出来ない
-
エクセル 結合したセルの間にセ...
-
Wordでセルに文字を入力すると...
-
エクセルで1列おきのデータのみ...
-
WORDで表の行を2行に分けたい
-
エクセルで捺印をもらう欄を別...
-
Word 表のセル塗りつぶし
-
エクセルの一つのセル内に2つの...
-
Wordの表で逆L字型のセルを作成...
-
Wordの表をExcelの表に貼り付ける
-
エクセルで複数行を括弧でくく...
-
ワードで表の中の文字がセンタ...
おすすめ情報