excel - ExcelのVBA関数

Question

私はExcelVBAの初心者です。特定のセル（たとえばD）に分類された文字列が含まれている場合、別のセルに特定の値を返すように機能する非常に単純な関数を実行しようとしています。

たとえば、列Dのいずれかのセルに「Books」、「Food」、「Fruits」の文字列がセルの任意の場所に含まれている場合、列Eにそれぞれ01、02、03が返されます。以前に尋ねられた種類の質問ですが、私は初心者なので、解決策を得るために簡単な説明またはリンクで知らせてください。

前もって感謝します。

Answer 1

以下の答えへの簡単な修正

For Counter = 1 To 2000
    Set curCell = Worksheets("Sheet1").Cells(Counter, 4)
    '  'Books', 'Food', 'Fruits
    If curCell.Value = "Books" Then
        Worksheets("Sheet1").Cells(Counter, 5) = 1
    ElseIf curCell.Value = "Food" Then
        Worksheets("Sheet1").Cells(Counter, 5) = 2
    ElseIf curCell.Value = "Fruits" Then
        Worksheets("Sheet1").Cells(Counter, 5) = 3
    End If
Next Counter

Answer 2

For Counter = 1 To 2000
    Set curCell = Worksheets("Sheet1").Cells(Counter, 4)
    '  'Books', 'Food', 'Fruits
    If curCell.Value = "Books" Then Worksheets("Sheet1").Cells(Counter, 5) = 01
    elseIf curCell.Value = "Food" Then Worksheets("Sheet1").Cells(Counter, 5) = 02 
    elseIf curCell.Value = "Fruits" Then Worksheets("Sheet1").Cells(Counter, 5) = 03
    end if
Next Counter

Answer 3

マクロは必要ありません。
2番目の列で使用Vlookupして、テーブルの最初の列の値を検索できます。