VBAの基本的な質問で申し訳ありません

Ａ列で条件を判断し結果をＤ列に記入するにはどうすれば良いのですか。

A列が3000以上の場合Ｄ列にＡ
A列が2000から3000の場合Ｄ列にＢ
A列が1000から2000の場合Ｄ列にＣ

でＡ列が増えていきます。

　　　Ａ列　　　　　　Ｄ列
１　　3500　　　　　　Ａ
２　　2500　　　　　　Ｂ
３　　1000　　　　　　Ｃ
・
・
・
150　3400　　　　　　Ａ

よろしくお願いします。

No.1 ベストアンサー 回答者： naktak 回答日時： 2016/06/24 11:58

Public Sub hoge()

Dim i As Integer
For i = 1 To 150
Dim value As Currency
value = Cells(i, 1).value

Dim r As Range
Set r = Cells(i, 4)
If value >= 1000 Then
r.value = "C"
End If
If value >= 2000 Then
r.value = "B"
End If
If value >= 3000 Then
r.value = "A"
End If
Next

End Sub

ループする回数は、入力されている最終行を予め求めればいいと思います。

また、VBAなんてしなくても、D列に数式を入れれば済むと思います。

この回答へのお礼

ありがとうございます。
同じような処理をするのが何種類もあるのでエクセル関数じゃなくＶＢＡでって思い、色々始めたばかりで分からないことだらけです。

教えていただいたのを自分で理解しながら作ってみようと思います。

お礼日時：2016/06/24 13:06

No.2 回答者： t_fumiaki 回答日時： 2016/06/24 12:29

Dim 行 As Long

Dim END行 As Long

Set Sh = ActiveSheet
END行 = Sh.Range("A65536").End(xlUp).Row　’最終行

For 行 = 2 To END行
If IsNumeric(Sh.Range("A" & 行).Value) Then　’数値の場合のみ

If Sh.Range("A" & 行).Value >= 3000 Then
Sh.Range("B" & 行).Value = "A"

ElseIf Sh.Range("A" & 行).Value >= 2000 Then
Sh.Range("B" & 行).Value = "B"

ElseIf Sh.Range("A" & 行).Value >= 1000 Then
Sh.Range("B" & 行).Value = "C"

Else '1000未満なら無処理
End If

End If

Next 行

この回答へのお礼

ありがとうございます。

同じ処理をするのにも色々な方法があるんですね。
始めの方の回答とともに、勉強して覚えていきたいと思います。

お礼日時：2016/06/24 13:07