投稿/コメントを表示します。

エクセルマクロ・VBA発展編１フォローアップミニセミナー
エクセルマクロ・VBA発展編１フォローアップミニセミナーNo.04

荏隈 直樹さんの投稿

(投稿ID: 152)

どうも荏隈です。
［１］の問題を変数を使ってやってみようとしたのですが、エラーが発生します。
Sub mondai1()
    Dim c As Long
    Dim A As Range
    A = Range("A" & c)
    For c = 4 To 29
        If A.Value = Range("E4").Value Then
            A.Font.Bold = True
        Else
            A.Font.Bold = False
        End If
    Next
End Sub

発生したエラー
http://www5d.biglobe.ne.jp/~middle/rangemethod.JPG

念のため、
A = Range("A" & c)
を
Set A = Range("A" & c)
に変更しても、同様のエラーが発生しました。
2014/05/07 00:08