[[20070914163653]]　『数値を文字に置き換え』（ｋｕｎｇａ）　ページの最後に飛ぶ

『数値を文字に置き換え』（ｋｕｎｇａ）

 セルに１を入力したら『あり』、２を入力したら『なし』に自動的に置き換えてくれる設定を教えてください。
 入力後の置換ではなく入力後確定で即変換してくれる設定を希望します。
 よろしくお願いします。

  ユーザー定義　「[=1]"あり";[=2]"なし";G/標準」
  置き換えっていうより、正確には表示(見える)ですが…

 （e3g)表示形式のユーザー定義
https://www.excel.studio-kazu.jp/lib/e3g/e3g.html

 (Ohagi)

バッチリでした！ありがとうございました。今後もよろしくお願いします。

 解決済みのようですが、こんなのも如何でしょう？
　
 シートモジュールへコピペ
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    With Target
        .Replace what:="1", Replacement:="あり"
        .Replace what:="2", Replacement:="なし"
    End With
    Application.EnableEvents = True
End Sub
　
 （キリキ）(〃⌒o⌒)b

コメント返信：

[ 一覧(最新更新順) ]

[[20070914163653]] 『数値を文字に置き換え』（ｋｕｎｇａ） ページの最後に飛ぶ

[[20070914163653]]　『数値を文字に置き換え』（ｋｕｎｇａ）　ページの最後に飛ぶ