質問: エクセルで、検索語移動し入力後同じ場所に戻る方法を教えてください。 大量の名簿への入力・検索を簡素化する為表題のようなvbaか関数を教えていただきたいです。 条件は下記の通りです。 ・b28からb30027まで000001~300000までの連番があります。 ・連番を検索するセルb26へ連番の数字を入力するとその連番のセルの右隣のセルへジャンプします。 (000005と入力するとc32へジャンプし、すぐ名前を入力できるようにしたいです。) ・c列の名前、d列の住所、e列の電話番号を入力し、e列の入力でenterを押した時に必ずb26に戻るようにしたいです。 b26に検索番号入力してc26にハイパーリンクのクリックボタンのような物を試しましたが知識不足の為行き詰まってしまい困っております。 知っている方おりましたらご教授願います。
回答: no.1です。 >赤文字のnoがセルの書式設定のユーザー設定で”000000”にしていたからでは・・・ 対処してみました。 尚、前回のコードではe列の26行目まで、またはb列データの最終行以降の行のe列データの変更があってもマクロが実行されてしまいますので、 その辺も修正してみました。 private sub worksheet_change(byval target as range) 'この行から// dim c as range, lastrow as long, myrng as range lastrow = cells(rows.count, "b").end(xlup).row set myrng = union(range("b26"), range(cells(28, "e"), cells(lastrow, "e"))) if intersect(target, myrng) is nothing or target.count > 1 then exit sub with target if .column = 2 and .value <> "" then set c = range(cells(28, "b"), cells(lastrow, "b")).find(what:=format(.value, "000000"), lookin:=xlvalues, lookat:=xlwhole) if not c is nothing then c.offset(, 1).select else msgbox "該当データなし" .select end if else range("b26").select range("b26").clearcontents end if end with end sub 'この行まで// 今度はどうでしょうか?m(_ _)m