エクセルで、セルに入力された文字を別なシートで数字

質問

エクセルで、セルに入力された文字を別なシートで数字で表すにはどうしたらいいのですか？

いま、会社でエクセルVBAを使って表を作っています。

そこで、例えば、
Sheet2で、セルA1に○○会社 ～、セルA2に△△会社と入力したら、
Sheet1で、数字で、2
と表すには、どういう風に作ればいいのでしょうか？

回答No.1

mt2008 · ベストアンサー

質問文の通りだと、Sheet2のシートモジュールに↓なんですが……
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Range("A1") = "○○会社 ～" And Range("A2") = "△△会社" Then
　　　　Sheets("Sheet1").Range("A1") = 2
　　End If
End Sub

本当にやりたい事とは違いますよね。