【最大10000ポイント】当たる!!質問投稿キャンペーン!

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

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

このQ&Aに関連する最新のQ&A

value VBA」に関するQ&A: VBA .Value=.Value ?

A 回答 (2件)

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



下記内容は、A列の1行~10行の入力値を評価し
となりの列(B列)の同一行に自動編集する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
    • good
    • 0
この回答へのお礼

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

お礼日時:2010/04/01 16:09

"A1"の隣は"B1"じゃないんでしょうか?


Case "a": Range("B1").Value = "リンゴ"

この回答への補足

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

補足日時:2010/04/01 15:50
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング