[[20020829102142]]　『文字入力セルに連動して別のセルに文字を入力』（初心者Ｓ）　ページの最後に飛ぶ

『文字入力セルに連動して別のセルに文字を入力』（初心者Ｓ）

文字入力セルに連動して別のセルに文字を自動入力できるか

仮に、日という文字をＡ１のセルに入力したとき

Ｂ１のセルに自動的に米と表示するようにできるのでしょうか。

また、日あるいは本の場合に米と表示するように

またまた、日・本の場合は米と表示し、英・国の場合は中と、それ以外は空白

などということはできるのでしょうか。

 下記のように入力し、仮にこの範囲を選択して、名前ボックスにDATAと入力して範囲名をつけます。

 日	米

 本	米

 日・本	米

 英・国	中

B1に　=IF(A1="","",VLOOKUP(A1,DATA,2,0))　と入力すれば表示されます。

 (シニア)

マクロであれば、シート1のモジュールに下記コードで、可能かと思います。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells = Cells(1, 1) Then

Select Case Cells(1, 1).Value

  Case "日"

    Cells(1, 2) = "米"

   Case "本"

    Cells(1, 2) = "米"

   Case "日・本"

    Cells(1, 2) = "米"

   Case "英・国"

    Cells(1, 2) = "中"

   Case Else

    Cells(1, 2) = ""

  End Select

Else: Exit Sub

End If

End Sub

 （なお）

こんにちは､

 If Target.Cells = Cells(1, 1) Then

 の場合ですと画面が少しちらつく感じがするので

 If Target.Address = "$A$1" Then　で範囲を絞るのも手かと思います。

 あとは　intersectメソッドで範囲を指定するやり方も

 参考までに･･･････

　（尋）

 こちら事務局です、タイトルが少し長いので、修正しました。

 （kazu）

コメント返信：