[[20090408224653]]　『数値を入力すると“○”等を表示させるには？』（yoshi）　ページの最後に飛ぶ

『数値を入力すると“○”等を表示させるには？』（yoshi）

数値（１，２，３・・・）を入力して同じセルの表示を“○”“×”“△”・・・とさせる方法はありますでしょうか。別のセルに表示させるのは関数を使えばよいと思うのですがお入力したセルに表示させる方法を探しています。セルの表示形式で３種類は可能だと思うのですが、それ以上の種類を表示させたいのですがどなたか教えていただけませんか。よろしくお願いいたします。

 Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  Application.EnableEvents = False
     For Each C In Target
     Select Case C
         Case "1"
             C.Value = "○"
         Case "2"
             C.Value = "×"
         Case "3"
             C.Value = "△"
     End Select
     Next C
 Application.EnableEvents = True

 End Sub

 種類を増やしたい場合は、下記2行を増やして下さい。
         Case "N"←Nを増やす
             C.Value = "Ｘ"←お好きな文字をどうぞ

 （りんご姫）

 入力規則のリストでの入力なら、LOOKUPさん提案の方法で応用できそうですが。
[[20040319230842]] 『プルダウンから』（Kenny）
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20090408224653]] 『数値を入力すると“○”等を表示させるには？』（yoshi） ページの最後に飛ぶ

[[20090408224653]]　『数値を入力すると“○”等を表示させるには？』（yoshi）　ページの最後に飛ぶ