別のヒント:添付図
E2:
=C2&" "&D2
以下コピー
手順:
A列を選び,入力規則のリストでE列のネタを設定し,さらにエラーメッセージのタブで「無効なデータが入力されたら…」のチェックを外す
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける
private sub worksheet_change(byval target as excel.range)
dim h as range
on error resume next
for each h in application.intersect(target, range("A:A"))
application.enableevents = false
h = left(h, instr(h, " ")-1)
application.enableevents = true
next
end sub
ファイルメニューから終了してエクセルに戻り,A列の入力規則で入力してみる。
お礼
出来そうで出来ませんでした…。 とても参考になりました。 ご丁寧にありがとうございました。