変数に範囲もしくはワイルドカードを指定する方法

質問

エクセルで変数に A > -100 and < 100のように数値を指定することはできるでしょうか。

以下の式はa~gまでの変数を全て足した値がそれぞれ該当の列での計算結果と一致していたら、セルを赤くするというものですが、a~gの全て使うのではなく、a~cまでしか使わないという時があります。
ですので、デフォルト値を範囲指定したり、ワイルドカードにすれば、計算結果に支障がでないと考えたのですが、そのようなことはできますか？
もしくは他にうまいやり方があったら教えて下さい。

a= 2
b = -2
省略
g = 4

For i = 1 to 最終行

If (Cells(i, "E").Value = a) And
(Cells(i, "G").Value = a + b) And
(Cells(i, "H").Value = a + b + c) And
(Cells(i, "I").Value = a + b + c + d)　And
省略
Then
Cells(i, "E").Interior.Color = RGB(255, 0, 0)
End If
Next i

回答No.2

kmee · ベストアンサー

範囲を指定して使いたいような値を、個別の変数に入れるのは、かなり無理があります。
配列を使います。
a(0)= 2
a(1) = -2
省略
a(6) = 4

こうすれば、Cells(i,"E")はCells(i,5)と同じですから
Cells(i,5).Value と a(0)
Cells(i,5+1).Value と a(0)+a(1)
Cells(i,5+2).Value と a(0)+a(1)+a(2)
...
と、いかにもループで簡単に書けそうな感じです。

条件のAndですが
count=0
...
' sum_a = a(0)+a(1)+...+a(j)
if Cells(i,5+j) = sum_a then count=count+1
...
等と条件が成立している数を数えて、
if count = 範囲の数 then 赤く塗る
のように判定するとか

Dim flag as Boolean
flag=True
...
flag = flag and (Cells(i,5+j) = sum_a)
...
if flag then 赤く塗る
等と、Booleanの変数を使って直接and演算をするとかできます。

お礼

お教え頂いたマクロを解読し、自分なりに組み立ててみて、 変数Limitにより上限値を設定することができました。
ただ、for j = 0 to Limitを二回使用しているので、もっとシンプルにできるはずなのですが、簡略化の仕方を教えて頂けませんか？
色々試してみたのですが、うまくいきませんでした。

Sub l()

Dim a(6) As Integer

Limit = 2

a(0) =
a(1) =
省略
a(6)=

sum = 0
For j = 0 To Limit
sum = sum + a(j)
Next j

ActiveSheet.Select
Dim flag As Boolean
For i = 1 To 100
For j = 0 To Limit
flag = True
flag = flag And (Cells(i, 5 + j) = sum)
If flag Then Cells(i, 5).Interior.Color = RGB(255, 0, 0)

Next j
Next i
End Sub

回答No.1

MarcoRossiItaly

ワイルドカードとかいうお話は、何が何だか分かりません。

Dim x As Double
x = -123.45

Debug.Print Abs(x)
Debug.Print Abs(x) < 100

お礼

んー、ごめんなさい、私の知識では解読できませんでした。
こちらで勉強しておきます。