|
▼つん さん
こんにちは。いつもありがとうございます。
これまでのご指導でPublic Sub CommandButton3_Click()を作ってみました。
デバッグしたのですが、セル値が全て入った状態でエラーが出てしまいました。
このプロシージャは、
1.Worksheets("Sheet1").Range("AB3,AC3")の色を白にする
2.rがブランクセルであることを確定
3.そうでない場合はセル色を変える
4.メッセージを表示して、if文から抜け出す
と解釈してます。
で、エラーが出た原因は、以下を走らせた時に既に指定セルに値が入っていた為、
2.の条件を満たさずエラーが上がったと考えています。
Public Sub CommandButton3_Click()
Dim r As Range
'チェック前に一度、クリア(白色)する
Worksheets("Sheet1").Range("AB3,AC3").Interior.ColorIndex = 0
Set r = Worksheets("Sheet1").Range("AB3,AC3")
.SpecialCells(xlCellTypeBlanks)
If Not r Is Nothing Then
r.Interior.ColorIndex = 3
End If
MsgBox ("赤いセルを入力して下さい")
Set r = Nothing
End Sub
そこで、Public Sub CommandButton3_Click()を次のようにしてみたいのです。
どうしたらよいでしょうか。
1.Worksheets("Sheet1").Range("AB3,AC3")の色を白にする
2.指定セルに値(数値や文字)が既に入っていれば無視
3.指定セルに値が入っていなければ、そのセルを着色する
4.メッセージ表示
Set r = Worksheets("Sheet1").Range("AB3,AC3")
.SpecialCells(xlCellTypeComments)
にして、
if r IS Nothing Then ・・・かな?とやってみましたが、
うまくいきません。
|
|