Excel VBA質問箱 IV

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

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


50930 / 76738 ←次へ | 前へ→

【30687】Re:10以上の検索
発言  ichinose  - 05/11/2(水) 21:56 -

引用なし
パスワード
   ▼V(ビクトリー) さん、皆さん、こんばんは。


>エクセルのF列のセルの中に
>数字だけの時ですと、
>Option Explicit
>
>Sub 最低値検索()
>
>
>  Range("F2").Activate
  Do Until val(ActiveCell.Value) > 10
>
>   ActiveCell.Offset(1, 0).Activate
>
    If val(ActiveCell.Value) > 10 Then
>     MsgBox "10以上があったよ♪"
>     End If
>
>   Loop
>End Sub
>

というようにVal関数を使用すると、文字は 0と解釈されます。
尚、上記のコードは10より大きい値が見つからないと
エラーになってしまいますから、どうすればよいかは
考えてみて下さい。

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 回答

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