Excel VBA質問箱 IV

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

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


19109 / 76734 ←次へ | 前へ→

【63062】Re:条件判定式にて質問です。
発言  kanabun  - 09/10/5(月) 14:05 -

引用なし
パスワード
   ▼初心者 さん:

>-------------------
> A | B | C |
> 空白| 数値|数値 |
>-------------------
>のデータがある時、データ分繰り返し処理を行います。
>
>Do Until IsEmpty〜と値が在るか無いかの判定で実行すると
>データが既にAで存在しない為、以降のデータを無視し処理が終了してしまいます。

Do〜Loopでなく、
For〜Nextで回すとか、
  For i = 1 To 3    'カウンタ変数 i は Long型
   If Not IsEmpty(Cells(1,i).Value) Then
      If IsNumeric(Cells(1,i).Value) Then
        '処理
      End If
   End If
  Next

For Each 〜 Next で回せばよいかと思います。
  For Each c In Range("A2:C2") 'ループ変数c はRangeオブジェクト型
   If Not IsEmpty(c.Value) Then
      If IsNumeric(c.Value) Then
        '処理
      End If
   End If
  Next

2 hits

【63061】条件判定式にて質問です。 初心者 09/10/5(月) 13:22 質問
【63062】Re:条件判定式にて質問です。 kanabun 09/10/5(月) 14:05 発言
【63067】Re:条件判定式にて質問です。 初心者 09/10/5(月) 15:08 お礼

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