| |
▼V(ビクトリー） さん：
今晩は、セルの移動が見えないといけないのですね。
ちょっとした工夫？を付け加えました。
>Sub 最低値検索()
>
> Range("F2").Activate
>Do Until ActiveCell.Value > 10
>
>ActiveCell.Offset(1, 0).Activate
>
>If ActiveCell.Value > 10 Then
>MsgBox "10以上があったよ♪"
>End If
>
>Loop
>End Sub
もし
If Activecell.Value="-" Then
ActiveCellOffset(1,0).activate
End If
を入れると出来ますよ。↓
これをこのまま貼り付けて試して見てください。
Sub 最低値検索()
Range("A5").Activate
Do Until ActiveCell.Value = "" '←ここは「>」では無く「""」では無いでしょうか
'~~~~~~~~~~~65536まで行っちゃうよ~~~~~~~~
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = "-" Then
ActiveCell.Offset(1, 0).Activate
End If
If ActiveCell.Value > 10 Then
MsgBox "10以上があったよ♪"
End If
Loop
End Sub
|
|
YN62
- 05/11/2(水) 21:36 -
