Select Case の条件式

質問

VBAの初心者です。
家計簿の品目に対して値段を自動で入力したいです。
以下のように、Select Case　の条件式の指定方法で、
列に入力された文字列の条件に対して、
自動でとなりのセルに入力したいのですが解らなくて困っております。

Sub TEST()
' A列セルの条件（文字列）でとなりのセルに文字列を入れたい
Select Case Range("A1").Value 'A1をどうすればいいのでしょうか。

Case "a": Range("列のセルのとなりに入力したい").Value = "リンゴ"
Case "o": Range("列のセルのとなりに入力したい").Value = "オレンジ"
Case "b": Range("列のセルのとなりに入力したい").Value = "バナナ"

Case Else: Range("列のセルのとなりに入力したい").Value = "error"

End Select
End Sub

ご存じの方がおられましたら教えていただけませんでしょうか。
よろしくお願いします。

回答No.2

Hardking · ベストアンサー

A1では１列目の１行目の値しか取得できないのですがいいのですか？

下記内容は、Ａ列の１行～１０行の入力値を評価し
となりの列（Ｂ列）の同一行に自動編集するVBA処理例です。

Dim rowidx, colidx As Integer
Dim inputval, As Stirng

For rowidx = 1 To 10
inputval = ThisWorkbook.ActiveSheet.Cells(rowidx,1).Value
Select Case inputval
Case "a"
ThisWorkbook.ActiveSheet.Cells(rowidx,2).Value = "リンゴ"
Case "o"
ThisWorkbook.ActiveSheet.Cells(rowidx,2).Value = "オレンジ"
Case "b"
ThisWorkbook.ActiveSheet.Cells(rowidx,2).Value = "バナナ"
Case Else
ThisWorkbook.ActiveSheet.Cells(rowidx,2).Value = "error"
End Select

Next

お礼

ありがとうございます。
非常に助かりました。

回答No.1

nda23

"A1"の隣は"B1"じゃないんでしょうか？
Case "a": Range("B1").Value = "リンゴ"

補足

説明が不足してい申し訳ありません。
A列のどこに入力されてもとなりのセルに条件ごとの値が入力できるようにしたいのです。
Select Caseの条件A1は例えです。