Excel 入力⇒自動セル移動法

質問

「excel」で質問です。ある特定の単語を入力したときに、入力したセルの列のある特定の「行」に移動せよ、という命令文てありますか?

回答No.3

米沢 栄蔵（@YON56）

YON56です。
マクロの構文中
NとEを具体的な数値にして下さい。
NTTを"NTT"としてください。
これでうまくいきます。
原因は、
「構文中のNとEが定義されていない。構文中のNTTも定義されていない。」というところです。
→"NTT"の意味は、NTTは文字列ですと定義したもの

お礼

早速の回答、感謝いたします。
"NTT"に書き換えました。
ＮとEに関しては私勘違いをしていたかもしれません。
N列、E列のつもりだったのですが・・・
当然NTTの書き換えだけでは動きませんでした
ご面倒でしょうがもうしばらくお付き合いお願いします。

補足

追加：先程の返信ではわかりにくかったかもしれませんので、
やりたい事を下記に記載します。

セル（N,432）に”NTT”と入力して「ENTER」
セル（E,432）に移動

行の”432”は仮です。

つまりセル（N,430）に”NTT”と入力して「ENTER」したら
セル（E,430）に移動もらいたい。

言い換えるとN列の不特定の行に特定の単語を入力して
「ENTER」したら、同じ行のE列にカーソルが移動して
貰いたい。

かえって判りにくくなってしまいましたか?

回答No.2

米沢 栄蔵（@YON56）

YON56です。
対象シートとは、マクロを実行したいシートのことです。
仮に、Sheet1にて実行するとすれば、VBEの
Microsoft Excel Objects のSheet1(表示シート名)をダブルクリックして表れるシートに記述します。
記述が終わればVBEを閉じて、Excelに戻り、Sheet1を選択すると
実行できます。
記述したBookを変更保存すると、VBEの記述も保存されます。

お礼

回答有り難うございます。
スミマセン、やはりダメです。
＞VBEのMicrosoft Excel Objects のSheet1(表示シート名)をダブルクリックして表れるシートに記述します。＜

VBEのMicrosoft Excel Objects　が見つかりません

そこで、私の操作したとおりに再現してみますので
おかしいところを指摘してみてください。
（本当に初心者でスミマセン）
(1)対象のExcelを開く
(2)「ツール」⇒「マクロ」⇒「VBE」
(3)左「（GENERAL）」右「WorkSheet＿Chang」と表記されている下に
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A, B
A = Target.Row
B = Target.Column
If (A = N And B = 432) And Cells(A, B) = NTT Then
Cells(E, 432).Select
End If
End Sub　と記述

A=N、B=432、=NTT、（E,432）の4箇所は変更しました
（もしかしてこの変更がダメ？）
(4)右上の「ｘ」でVBEを終了
(5)対象Excelに戻るので　（N、432）に「NTT」と入力後「ENTER」を押す
(6)（E,432）に移動して欲しいのに（N、433）に移動⇒（通常動作）
以上です。
どこがいけないんでしょうか?面倒でなければご教授願います。

回答No.1

米沢 栄蔵（@YON56）

あります。
しかし、マクロです。

入力セルをCells(X,Y)とし、移動先のセルをCells(Z,Y)とし、特定単語をAAとします。
VBEを開き、対象シートを選択し、次の構文を書きます。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A, B
A = Target.Row
B = Target.Column
If (A = X And B = Y) And Cells(A,B)=AA Then
Cells(Z, Y).Select
END If
End Sub

お礼

ご回答有り難うございます。
早速試しに、VBEを開いて構文を書いてみましたが
動きません。

＞・・・「対象シートを選択し」・・
のところが無かったようですが・・・
それから、構文を書き終わった後、次の操作がわからなかったので
終了させてEXCELに戻って操作したのですが、
そこがダメだったのでしょうか?
VBEは初めてなのでもう少し勉強してみます
何かお勧めサイトなど有りましたらご紹介ください。