![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.11ベストアンサー
- 回答日時:
自分はExcel2000を使っていますが、Z列でEnterを押下すると次行のA列に移動しました。
ANO4様と自分のサブルーチン名が少し違います。
サブルーチンには2種類あります ???
1.他のルーチンから呼び出されて動作する
2.イベント(出来事?)が発生したときに動作する
今回は後者のサブルーチンです。
サブルーチン名を見比べてください
ANO4様…Private Sub Worksheet_Change(ByVal Target As Range)
自分……Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet_Change:どこかのデータが変化したときに動作します。
従ってデータを入力しなければ動作しません
Worksheet_SelectionChange:セルが移動したときに動作します。
どちらも次の命令で条件式が入っています。
アクティブになっているセルの列が26番目(27番目)のとき次行のA列へ移動
うまく説明できませんが、ご理解いただけるでしょうか
分かりました.小生1行目を直しておりませんでした.試したところ,
最後が未回答でEnterを入力してもうまく自動改行できました.
セル値の変化とセル移動の検知の違いだったのですね.
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.9
- 回答日時:
NO7です。
バージョンが2000の場合、シートの保護で「ロックされたセル範囲の選択」という項目はないですが、シートのプロパティに該当する項目があります。VisualBasicEditerを開いて、該当のシートをプロジェクトエクスプローラから選びます。
プロパティウィンドウにある「EnableSelection」という項目を「1-xlUnlockedCells」にします。
こうしてからシートの保護をするとうまくいきます。
ただし、ブックを保存しても設定は保存されないので注意が必要です。
ブックを開くときにそのように設定するマクロを実行するようにしてやるといいかと思います。
該当シートがSheet1だとした場合ThisWorkbookモジュールに
Private Sub Workbook_Open()
Worksheets("Sheet1").EnableSelection = xlUnlockedCells
End Sub
と入れるといいでしょう。
No.8
- 回答日時:
ANo.4様にヒントを得ました
VBAを次のようにしてみて下さい
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 27 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub
ANo.7様の手法が分かりやすいですが、
仰るとおり 2000では通用しませんね
自分も勉強になりました。ご両名の方有難うございました。
やってみました.今度はZではなくAAで自動改行し,次のAに行きました.
=27ですからAAで改行,+1,1ですから次行のAに行くのだと思います.
ANo.4様に比べどのような点が良いのでしょうか?
なお,未回答のEmterで右へ行く動作は同じでした.
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.7
- 回答日時:
エクセルのバージョンは何でしょうか?2002以降の場合の方法です。
シートの保護を利用する方法です。
まず、入力する列を選択して「セルの書式設定」の保護タブで「ロック」のチェックを外します。
ツール→オプション の編集タブで「入力後に移動する方向」を右にします。にします。
ツール→保護→シートの保護 で「ロックされたセル範囲の選択」のチェックを外します。
Enterキーで右に移動していき、最後の列でEnterキーを押すとひとつ下の行の左端(入力可能範囲で)に移動します。
2002ですのでうまく行きました.マクロとロックの両方を知っておけば
どのバージョンのエクセルで分業しても何とかなりそうです.
Win98を使用している作業者もいますので2002以上かどうかも
チェックしてみます.
No.6
- 回答日時:
1/です。
>うまく動きました.ただ用紙を素早くめくる必要があるので,
>左手のTabが結構苦しいです.
実は私もそうです。(前述のは教科書の回答です)
しかも最近はExcelをあまり使わず、OpenOffice.orgのCalcという表計算を多用しています。
このソフトには前述のTab移動Enter戻り、という機能がないこともあり、
実は、予め必要範囲を指定しておき、Enterで移動(右へ)、
戻るときは、Shift+Enterで戻る、で作業することが多いです。
Calcですか.個人の時は使えそうですね.
多くの場合,入力は分業なので,どのPCでも普通に使用できることが
求められています.自分だけCalcで入れて,合わせる時にエクセル
にするのも不可能ではないですが,今回は同じ環境でやってみます.
No.5
- 回答日時:
まずメニューの「ツール」→「オプション」をクリックし、「オプション」のダイアログボックス
で「編集」タブをクリックします。「入力後にセルを移動する」項目で方向を「右」に変更します。
後は実際の入力作業のときに、入力する範囲を選択しておいて入力していって下さい。
例えば列「A~Z」行「1~40」の範囲を選択して、「A1」から順に右へ移動していけば、最後の列「Z」で改行すると「B1」へ移動します。
うまくできました.ただ,アンケートの場合,入力ミスを直したく
なり,矢印キーやマウスをつい操作してしまいます.すると
入力範囲が消えてしまい.一気入力もままならず.難しいところです.
範囲に名前をつけて,消えてもすぐ再指定できるようにしてみましたが,
数百件もあるとカーソル移動が大変です.
No.4
- 回答日時:
・Alt+F11でVBEを開いて、左のSheet1をダブルクリック(違うシートなら、アンケートを入力するシートをダブルクリック)
・右側に以下のマクロをコピーして貼り付ける。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 26 Then
Cells(Target.Row + 1, 2).Select
End If
End Sub
うまくいかなかったら、補足してください。
Z=26なら次行のb=2にセルを移動するのですね.
やってみたらほぼうまく動作できました.
惜しいのは,行の最後が未回答で空欄のためenter入力すると,
そのまま右に抜けてしまう点です.
enterは右の指定をしているので仕方ないのですね.
入力時に最後がenterの場合は少ないですから十分カバーできます.
No.3
- 回答日時:
「ツール」→「オプション」→「編集」タブの
「入力後にセルを移動する方向」を「下」に変更します。
入力中は、1セル入力ごとに「TAB」キーで右に移動し、「ENTER」キーで、最初のセルの下に移動できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Word(ワード) Wordで破線をひくにはどうすれば良いのでしょうか。 5 2022/06/17 13:24
- Excel(エクセル) エクセルVBA 任意のセルの選択時、指定のセルの値を表示 1 2023/04/21 08:13
- Excel(エクセル) エクセルVBAで図形のテキストを取得してセルに入力 2 2022/10/05 23:09
- その他(Microsoft Office) エクセルで1行の長いデータを指定の桁数で分割する方法が知りたいです。 4 2022/05/20 21:55
- Windows 8 動画の再生とタイトルの変更方法を教えてください。 3 2022/08/01 14:51
- Excel(エクセル) 指定値をマクロで検索&シート移動 2 2022/04/27 23:29
- Excel(エクセル) エクセル関数について 2 2022/04/13 18:25
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelで、スクロールをすると限...
-
EXCEL アルファベットと数字の...
-
エクセルの画面で十字マークが...
-
セルをクリックすると付箋のよ...
-
エクセルで連続データから、数...
-
excelで1行ごとに一気に削除す...
-
ピポットテーブルエラー解決方法
-
Excelで表のデータを並び替えた...
-
エクセルでハイパーリンクのU...
-
Excel選択を繰り返すとセルの色...
-
エクセル 画面上の行数を調節...
-
エクセルのVBAを使用し、工事写...
-
Shift押しながら、矢印ボタンで...
-
エクセルのセルを交互に選択す...
-
Excelで急に動かなくなる
-
Excelの複数セル選択は、なぜ一...
-
エクセル 数値を全て「1」にす...
-
複数のセルの入力内容を一度に...
-
エクセルの行数の制限
-
エクセルの名簿を50音順にしたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルの画面で十字マークが...
-
エクセルで連続データから、数...
-
EXCEL アルファベットと数字の...
-
セルをクリックすると付箋のよ...
-
エクセル 数値を全て「1」にす...
-
エクセルでハイパーリンクのU...
-
excelで1行ごとに一気に削除す...
-
Excel選択を繰り返すとセルの色...
-
エクセル 画面上の行数を調節...
-
Excelで表のデータを並び替えた...
-
複数のセルの入力内容を一度に...
-
エクセルVBAでセル範囲のデータ...
-
ピポットテーブルエラー解決方法
-
エクセルで「1~15」の乱数...
-
エクセルでカーソルが四方に矢...
-
Shift押しながら、矢印ボタンで...
-
エクセルで0を除いて昇順に並...
-
Excelで急に動かなくなる
-
エクセルで任意のセルをクリッ...
おすすめ情報