Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50925 / 76732

←次へ　｜　前へ→


	【30686】Re:10以上の検索

YN62 - 05/11/2(水) 21:36 -


	引用なし

	パスワード

▼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

1 hits

▼

【30679】10以上の検索 V(ビクトリー） 05/11/2(水) 18:07