Excel VBA質問箱 IV

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

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


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

19651 / 76732

←次へ　｜　前へ→


	【62509】Re:IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです

つん - 09/7/27(月) 17:45 -


	引用なし

	パスワード

▼T-K さん
こんにちは

>ご提案いただいたmougにもアクセスしたりして。
？？？私、モーグ提案した覚えないでっせ。

>r=任意の数値（か文字列）とすれば、プロシージャ実行時、
>セルに何か入っているので、それを飛ばし、
>次のプロシージャが実行できるのでは？と考えた次第です。

Dim r As Range

と、宣言した時点で、「ｒ」に入れらるのはセルそのものだけです。

Range(任意の数値（か文字列）)
こういう形はありえません。
「Range」についても、基本的なことをもうちっと調べられた方がいいように主今する。

>On Error Resume Nextステートメントも、On Error GoTo 0も調べました。
>（出典：Excel VBA 逆引き大全600の極意　秀和システム　他）
>そこでエラー無視によるプログラム非正常動作を覚悟でやってみよう、
>と思います。
>（できればそのリスクは回避したいので、上のプロシージャを考えました）

On Error Resume Nexをどうしても使いたくなかったら、
対象セル範囲もそう多くないようですし、

Sub test()

　　Dim r As Range
　　Dim blnFlag As Boolean
　　
　　blnFlag = False
　　
　　For Each r In Worksheets("Sheet1").Range("a1:c3")
　　　　If r.Value = "" Then
　　　　　　r.Interior.ColorIndex = 3
　　　　　　’一回一回メッセ^時ボックス出すのもうざいので、
　　　　　　’↓で、判定用の変数使って、最後にメッセージ出す♪
　　　　　　blnFlag = True
　　　　End If
　　Next r
　　
　　If blnFlag = True Then
　　　　MsgBox "空白セルがありまっせ・・云々"
　　End If
　　

End Sub

一つ一つセルをチェックして処理するやり方もありかも。

>また、SpecialCells(xlCellTypeComments)のCommentsとは、
>セルに挿入される「コメント挿入」でしょうか？
>恥ずかしいのですが分かりません。

SpecialCellsで検索かけたら、説明してるサイトとか簡単に見つかりそうですよ＾＾

108 hits

▼

【62397】IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです T-K 09/7/16(木) 15:45