エクセルの同じページ内で、お客様の名前を「あ・か・さ・た・な・・・」と

質問

エクセルの同じページ内で、お客様の名前を「あ・か・さ・た・な・・・」というような順にまとめて作ってあるのですが。文字の所にいちいちマウス等で移動するのではなく、例えばボタン1つで移動する設定をするのは可能でしょうか!?
知っている方がいらっしゃったら教えてください。宜しくお願い致します。

回答No.2

korapisi · ベストアンサー

まずは、わかりやすいように「あ」「か」「さ」「た」と記入したセルを作ってみてください。
そのセルにカーソルを移動して、入力フィールドの左に出ている「B11」などのところにカーソルを移動します。
すると、そのセルに任意の名前をつけることができます。
ここで、「あ」「か」「さ」「た」などの名前をつけてみてください。
あとは、この左上のフィールドのリストボックスで、名前を選択するとそのセルにジャンプします。

お礼

回答、有難う御座いました。パソコンの事はあまり詳しくはありませんが頑張って参考にさせて頂きます。

回答No.1

qyukip

１つの例ですが、入力する項目を作成して以下のようなマクロを組むと
入力してエンターを押すと、自動的に入力された文字のセルを選択します。
このプログラムの場合、前方一致検索としているため、
「あ」と入力すると「あ」が先頭につく１番最初の文字が選択されます。
参考になれば幸いです。

Private Sub Worksheet_Change(ByVal Target As Range)
'入力欄Cells(1,2)
'名前の列1列目
'名前の開始行4行目
Dim i As Integer 'ループ用変数
If Target.Row = 1 And Target.Column = 2 Then '入力欄が変更された場合実行
For i = 4 To UsedRange.Rows.Count '4行目から最後まで券ｓ買う
If InStr(1, Cells(i, 1).Value, Cells(1, 2).Value) = 1 Then '最初の文字が入力された文字列ならばループ終了
Cells(i, 1).Select '見つかったセルを選択
Exit For
End If
Next
End If
End Sub

お礼

回答、有難う御座いました。パソコンの事はあまり詳しくはありませんが頑張って参考にさせて頂きます。