Excel VBA質問箱 IV

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

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


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

19110 / 76734

←次へ　｜　前へ→


	【63061】条件判定式にて質問です。

初心者 - 09/10/5(月) 13:22 -


	引用なし

	パスワード

現在作業中のExcelVBAなんですが、
-------------------
　A　|　B　|　C　|
空白| 数値｜数値 |
-------------------
のデータがある時、データ分繰り返し処理を行います。

Do Until IsEmpty～と値が在るか無いかの判定で実行すると
データが既にAで存在しない為、以降のデータを無視し処理が終了してしまいます。

また、AとCにデータがあって、Bにデータが無い場合にもBの段階で終了してしまいます。

空白を無くす仕様には出来ないので、どういった条件判定式にすればいいのか
困っています。

どなたかご教授お願いします。

参照しているコードも記載しておきます。
------------------------------------------------------------------
'値が空になるまで繰り返し
Do Until IsEmpty(data(cnt)(1, i + VALUE_START))

　 '数値変換が可能＝測定値
　　If IsNumeric(data(cnt)(1, i + VALUE_START)) Then

　　　 '書き込み位置の確保
　　　 .Range(NumToChr(writeCol) & writeRow + VALUE_WRITE + (i \ 2))
　　　 .PasteSpecial Paste:=xlPasteAll

　　　 'コメント
　　　 .Cells(writeRow + VALUE_WRITE + (i \ 2), writeCol) = head(5, i)

　　　 'コメント
　　　 .Cells(writeRow + VALUE_WRITE + (i \ 2), writeCol + 1)
　　
　　End If
　　
　　i = i + 1

Loop
---------------------------------------------------------------------------

2 hits

▼

【63061】条件判定式にて質問です。 初心者 09/10/5(月) 13:22

≪