Excel VBA質問箱 IV

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

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


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

19628 / 76735

←次へ　｜　前へ→


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

つん - 09/7/29(水) 11:31 -


	引用なし

	パスワード

▼T-K さん
おはようございます。

えーっと・・・

こちらで、下記のコードを試してみたら、特に問題なく動きましたが。
（簡単に用意したデータではわからん、なにか他の要因があるんかな？）

下記のコードを何も触らず実行したらエラーが出るのですか？

>このOn Error GoTo 0と　f文の間に「実行エラー'424' 」が出るなら、
>r=ブランクセルをセットするはず？なのですが・・・
>そこで、r.SpecialCells (xlCellTypeBlanks)と
>オブジェクトrとそのプロパティSpecialCells (xlCellTypeBlanks)を
>つけてみたましたがうまくいかず。
>Rangeについての記述も合ってると思うんですが。
>何がいけないのでしょう？

言うてはる意味がイマイチわからんのですが・・・
どこにどういうコードを付け加えたんですか？

「On Error GoTo 0」と　「f文の間」に、また
Set r = Worksheets("Sheet1").Range("AB3,AC3").SpecialCells(xlCellTypeBlanks)
入れたら、そりゃまたそこでエラーが出るのは当たり前やと思いますが・・

あ、ところで、
「WorksheetFunction.CountBlank」使ったら・・・って提案しました。
けど、今試してみたら、選択範囲が複数やったらダメみたいですね＾＾；
そういえば、ちょっと前にも同じことにぶち当たったような・・・・学習能力なさすぎorz

0 hits

▼

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