質問: true end if end sub 'この行まで になります。 追伸、今朝、お答えいただいた方、申し訳ございません。 画像を他のページから貼ってしまったため、削除されてしまいました。 ですので、再度質問させていただきます。
回答: こんばんは! 今回はひらがな・カタカナが混在しているようですので、 どちらの文字でも1文字以上入力すると、両方が表示されるようにしてみました。 まずalt+f11キー → メニュー → 挿入 → 標準モジュール → vbe画面に ↓のコードをコピー&ペーストしておいてください。 sub リスト() dim i as long, cnt as long, ws as worksheet set ws = worksheets("sheet1") i = ws.cells(rows.count, "al").end(xlup).row '←リスト表示列を変更 application.screenupdating = false if i > 1 then range(ws.cells(2, "al"), ws.cells(i, "al")).clearcontents end if cnt = 1 for i = 2 to ws.cells(rows.count, "a").end(xlup).row if strconv(ws.cells(i, "b"), vbkatakana) like strconv(selection, vbkatakana) & "*" then '←b列がリスト候補 cnt = cnt + 1 ws.cells(cnt, "al") = ws.cells(i, "b") '←sheet1のb列データをal列に表示 end if next i application.screenupdating = true end sub 次にsheet2のシートモジュールに↓のコードを! private sub worksheet_selectionchange(byval target as range) if target.column = 2 and target.count = 1 then '←列をb列(2)に変更 call リスト end if end sub 最後にsheet2の入力規則の「元の値」の欄に =offset(sheet1!al$1,1,,counta(sheet1!al:al)-1) これで何とかご希望に近い形にならないでしょうか? ※ 今回も一旦データを入力 → enter → 元のセルに戻る という操作になってしまいます。m(_ _)m