エクセル 一文字入力すると自動で指定の文字が入力できる方法

エクセルである特定の列のセルに
uと入力するとunsoldと自動で入力し確定するようにしたいのですが、
可能でしょうか。

No.4 ベストアンサー 回答者： merlionXX 回答日時： 2007/03/20 09:26

> D列とJ列に反映させたいのですが

yoshi0518さん、おはようございます。#2のmerlionXXです。
ちょっと複雑になりましたが、以下でどうでしょう？
Dが4、Jが10です。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 And Target.Column <> 10 Then Exit Sub
Application.EnableEvents = True
On Error GoTo line
If Target.Count > 1 Then
If ActiveCell.Value = "u" Then
Intersect(Selection, Columns(4)).Value = "unsold"
Intersect(Selection, Columns(10)).Value = "unsold"
End If
Else
If Target.Value = "u" Then Target.Value = "unsold"
End If
line:
Application.EnableEvents = True
End Sub

この回答へのお礼

本当にありがとうございます。
できました！
とてもとても助かりました！

お礼日時：2007/03/20 11:55

No.3 回答者： sab909 回答日時： 2007/03/19 13:07

　u と一文字を入力すれば、unsold と入力されればいいのですか？それ（unsold）以外で u を単独で入力する事も無いと？

なら「オートコレクト」に追加してやるのが無難かと…

　「ツール」→「オートコレクトのオプション」で「オートコレクト」タブの「□入力中に修正する」にチェックを入れ、その下「修正文字列」に「 u 」とし、「修正後の文字列」に「 unsold 」と入力して「追加」

　これで セルに u と入力し、Enterキーや、別のセルに移った時は「unsold」と入力されていると思います。

　この追加したオートコレクトが必要が無くなった時は、↑から「削除」するか「オートコレクト」を無効にして下さい。

　ただ、文頭にも書きましたが、それ以外で「 u 」を単独（一文字）で入力しなければいけない場面に遭遇した時には「オートコレクト」が適用されてしまうので、用事が済んだなら「オートコレクト」を無効にするか「 u 」で作ったオプションを削除して下さいね。

　これで望みは叶いますか…？

この回答へのお礼

どうもありがとうございます。
この方法だと他でエクセルを使うときにも反映されてしまうのですね。
毎回オートコレクトON　OFFは面倒な気がしてしまいました。
何か方策はありますかねえ。

お礼日時：2007/03/20 08:39

No.2 回答者： merlionXX 回答日時： 2007/03/19 13:01

「ある特定の列」をB列と仮定した場合、以下のコードで実現可能です。

１．シートのタブを右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Count > 1 Then
If ActiveCell.Value = "u" Then Intersect(Selection, Columns(2)).Value = "unsold"
Else
If Target.Value = "u" Then Target.Value = "unsold"
End If
End Sub

'*****ここより上までをコピペ*****

３．AltキーとF11キーを同時に押してワークシートへもどります。

この回答へのお礼

どうもありがとうございます。
うまくいきそうなのですが、D列とJ列に反映させたいのですが
どこを変えたらいいのでしょうか。
ちょっと分からないので教えてください。

お礼日時：2007/03/20 08:36

No.1 回答者： nanndemoii 回答日時： 2007/03/19 12:58

IMEに辞書登録するか、

http://members.at.infoseek.co.jp/kurenai346/tour …

オートコレクトに追加するか。
http://www.yoshikawa.co.jp/ybs/skilup/ybs0211.htm

この二つのやり方が一般的だと思います。お好きな方を選んでください。

この回答へのお礼

ありがとうございます。

お礼日時：2007/03/20 08:40