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

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

No.2 ベストアンサー 回答者： korapisi 回答日時： 2010/06/16 16:05

まずは、わかりやすいように「あ」「か」「さ」「た」と記入したセルを作ってみてください。

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

この回答へのお礼

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

お礼日時：2010/06/16 16:24

No.1 回答者： qyukip 回答日時： 2010/06/16 15:58

１つの例ですが、入力する項目を作成して以下のようなマクロを組むと

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

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

この回答へのお礼

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

お礼日時：2010/06/16 16:23