Excel VBA質問箱 IV

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

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


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

53313 / 76736

←次へ　｜　前へ→


	【28239】Re:空白のセルを飛ばして処理したい

かみちゃん - 05/9/1(木) 0:10 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>以下のような記述で動作させたのですが空白のセルが２～３行以上あると
>動作が止まってしまいます。また１番最初の時もうまく処理してくれません。

動作がよく理解できないのですが、
特定のセル範囲の「数値」または「文字」が入っているセル範囲のみ処理する場合は、
一般操作の「編集」－「ジャンプ」の「セル選択」で「定数」を選択し、「数値」と「文字」にチェックを入れる
という操作を「マクロの記録」で記録して、少し変えると次のようなコードでできると思います。

Sub Macro1()
　Dim MyRange As Range
　For Each MyRange In Range("A1:B100").SpecialCells(xlCellTypeConstants, 3)
　　MsgBox MyRange.Address(0, 0) & " の値は " & MyRange.Value
　Next
End Sub

0 hits

▼

【28237】空白のセルを飛ばして処理したい あさか 05/9/1(木) 0:00