Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7569 / 13644 ツリー ←次へ | 前へ→

【38201】複数セルの選び方-2 ハーレーダビットソン 06/5/29(月) 17:38 質問[未読]
【38206】Re:複数セルの選び方-2 Kein 06/5/29(月) 18:01 発言[未読]
【38221】Re:複数セルの選び方-2 漂流民 06/5/29(月) 21:57 発言[未読]

【38201】複数セルの選び方-2
質問  ハーレーダビットソン  - 06/5/29(月) 17:38 -

引用なし
パスワード
   A2に入っている数値とG8〜G20までの数値との比較ですが、
range("A2").value => range("G8:G20")
にしてもうまくいきません。
G8〜G20をどの様に表したら良いのでしょうか?
(先程教えて頂いたANDを使って1個1個書くのも…なので)
よろしくお願いします。

【38206】Re:複数セルの選び方-2
発言  Kein  - 06/5/29(月) 18:01 -

引用なし
パスワード
   数値を比較するなら当然、1対1の比較しか出来ませんよね ?
A2 に 1 が入力されていて、G8 に 1, G9 に 2 が入っているとして、
G8 と G9 のどちらを A2 と比べるか ? という小学生レベルの話に
なってしまいますが・・。もう少し具体的に説明して下さい。

【38221】Re:複数セルの選び方-2
発言  漂流民  - 06/5/29(月) 21:57 -

引用なし
パスワード
   ▼ハーレーダビットソン さん:
こんばんわ

>range("A2").value => range("G8:G20")

その演算子は使えません
http://excelvba.pc-users.net/fol6/6_1.html
(自動で「>=」に変換されるはずですが・・・)


>A2に入っている数値とG8〜G20までの数値との比較ですが、

こういうこと?


Option Explicit
Sub test()
  Dim i As Integer

  For i = 8 To 20
    If Cells(2, 1) >= Cells(i, 7) Then
      Cells(i, 8) = Cells(2, 1) & " 以下"
    ElseIf Cells(2, 1) < Cells(i, 7) Then
      Cells(i, 8) = Cells(2, 1) & " 超"
    End If
  Next i

End Sub

7569 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free