[PR]ネットとスマホ まとめておトク!

質問です。

入力したデータから入力範囲まで
ある条件を超えたら(例えば 100超えたら セル色を黄色にする)
セル色を変えるVBAを作りたいのですが
何故か?出来ません。

知識ある方々・ご意見ある方々のご意見やアドバイスを
お願いします。

コードは下記に記入しました。
Private Sub 色付け_Click()
Dim n1 As Variant
Dim n2 As Variant
Dim i As Variant


n1 = Range("C3")
n2 = Range("C3").End(xlDown)

For i = n1 To n2

If i.Value >= 32000 Then
i.Interior.ColorIndex = 38
End If
Next i
End Sub

A 回答 (1件)

sub macro1()


 dim n1 as long
 dim n2 as long
 dim i as long

 n1 = range("C3").row ’n1 = 3 とすればよい
 n2 = range("C65536").end(xlup).row ’行番号を調べる

’「行番号」によって巡回する
 for i = n1 to n2
  if cells(i, "C").value > 100 then ’「セル(の値)を」調べる
   cells(i, "C").interial.colorindex = 38
  end if
 next i
end sub
みたいに。



●VBE画面でウォッチウィンドウを表示し、ステップ実行で1行ずつマクロの動作をトレース、その過程でそれぞれの変数の値が具体的にどういう風に変わっていくか(いま何が格納されているか、なぜそうなったのか)自分の目で見ながら作業をしていくと、理解が進みます。
    • good
    • 0
この回答へのお礼

ご回答有難うございます。
大変勉強になりました。
今後とも宜しくお願いします。

お礼日時:2014/09/07 10:48

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


人気Q&Aランキング