レッスン-投稿一覧パソコン仕事５倍塾ポータル

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

荏隈直樹さんの投稿

(投稿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

小川慶一さんのコメント

(コメントID: 857)

荏隈直樹さん:

Set A = Range("A" & c)

でよいのですが、 c の値が、これだと 0 ですね。
さきほどの画面で [デバッグ] を押したあと、マウスポインタを変数 c の上に置いてみると分かるかと思います。

まずは、そんな感じでいろいろトライして失敗して、という感じで学んでください。
自分でコードを書くのがいちばんよいですね！

ひきつづき、お楽しみを☆

2014/05/07 02:37

荏隈直樹さんのコメント

(コメントID: 858)

小川慶一さん:

おっと、入れるタイミングが違いましたね。
これは単純なミスでした。
今回もなかなか良い体験をしたと思います。

>荏隈直樹さん:
>
>Set A = Range("A" & c)
>
>でよいのですが、 c の値が、これだと 0 ですね。
>さきほどの画面で [デバッグ] を押したあと、マウスポインタを変数 c の上に置いてみると分かるかと思います。
>
>まずは、そんな感じでいろいろトライして失敗して、という感じで学んでください。
>自分でコードを書くのがいちばんよいですね！
>
>ひきつづき、お楽しみを☆
>

2014/05/07 03:29