エクセルのユーザー定義で

質問

エクセルのユーザー定義で、打ち込む数値の途中にアルファベットが含まれる場合アルファベットはそのまま表示させたいのですが、無理なのでしょうか？
例えば、打ち込む数値が「1234561」のとき表示は「123456－1」
「12345B1」のときは「12345B-1」というふうには出来ないのでしょうか？

回答No.3

keithin

一言目に回答した通り、まずユーザー定義じゃ出来ません。信じる信じないはご自由に。

＞以外の方法

具体的にどうしたら出来るのかは、既に回答済みです。他に方法はありません。

＃参考
Ｂのセルに「0000"B-"0」とユーザー定義を設定し12341と記入させ、
Ａのセルに「0000"A-"0」と異なるユーザー定義を設定し12342を記入させる、
そんなウマシカ的方法でも「出来ます」

＞無理なのでしょうか

スキルさえあれば、出来ます。

操作例：
Ａ列に00000-0のユーザー定義の書式設定を取り付けておく
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

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"))　’実際に合わせて修正
　　if h <> "" then
　　h.numberformat = "00000-0"
　　if application.istext(h) then
　　application.enableevents = false
　　h = application.replace(h, len(h), 0, "-")
　　application.enableevents = true
　　end if
　　end if
　next
end sub

ファイルメニューから終了してエクセルに戻る
Ａ列に123451や1234A1とデータを記入する。

手でやりますとお話ししたことを、代わりに機械がやってくれます。

補足

わぁ、ありがとうございます！
実際はもう少し複雑で「1234511」で「12345A1-1」となるユーザー定義
「00000"A"0"-"0」を使っていて
「12345B1」で「12345AB-1」にしたいのですが、
先のコードでどこを修正したらよろしいでしょうか？
スキルがないので、何度もすみません。