Excel VBA質問箱 IV

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

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


50922 / 76732 ←次へ | 前へ→

【30689】Re:10以上の検索
回答  YN62  - 05/11/2(水) 22:18 -

引用なし
パスワード
   ▼V(ビクトリー) さん:
このようなのは如何ですか?
横棒「−」は色々なサイズがありシートとコードの横棒が
同じで無いと10以上となってしまいますのでご注意をしてください。

Sub test()
Dim i As Integer
i = 5
Do Until ActiveSheet.Cells(i, 1) = ""

If Cells(i, 1).Value = "-" Then
i = i + 1
End If
If Cells(i, 1).Value > 10 Then
MsgBox "10以上が" & i & "列目にあったよ♪"
End If
i = i + 1
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 回答

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