Excel総合相談所 94
>>458
select case使うと楽と思う
ttp://homepage1.nifty.com/rucio/main/technique/Select.htm
Sub a()
a1 = 28
a2 = 50
b1 = 106
b2 = 115
c1 = 119
c2 = 141
For i = 1 To 200
Select Case i
Case a1 To a2, b1 To b2, c1 To c2
'処理 Cells(i, 1) = i
End Select
Next
End Sub
select case使うと楽と思う
ttp://homepage1.nifty.com/rucio/main/technique/Select.htm
Sub a()
a1 = 28
a2 = 50
b1 = 106
b2 = 115
c1 = 119
c2 = 141
For i = 1 To 200
Select Case i
Case a1 To a2, b1 To b2, c1 To c2
'処理 Cells(i, 1) = i
End Select
Next
End Sub
|
|
|