Excel VBA質問箱 IV

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

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


50931 / 76738 ←次へ | 前へ→

【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

0 hits

【30679】10以上の検索 V(ビクトリー) 05/11/2(水) 18:07 質問
【30680】Re:10以上の検索 OBO 05/11/2(水) 18:23 発言
【30682】Re:10以上の検索 Kein 05/11/2(水) 20:25 回答
【30686】Re:10以上の検索 YN62 05/11/2(水) 21:36 回答
【30687】Re:10以上の検索 ichinose 05/11/2(水) 21:56 発言
【30688】Re:10以上の検索 V(ビクトリー) 05/11/2(水) 22:11 お礼
【30689】Re:10以上の検索 YN62 05/11/2(水) 22:18 回答

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