[[20220307214647]]　『VBA　cellsで取得した値のrangeへの代入』（じゃんぼ）　ページの最後に飛ぶ

『VBA　cellsで取得した値のrangeへの代入』（じゃんぼ）

VBAについて質問です。

Excel内でこのファイルのこの部分に色掛けしたいというものをリストアップして一表にしており、例えば以下のcellsではG54という値（色掛けしたいセル番地）が入っています。
このG54という値を取得したあと、実際にG54に色掛けするために以下のようなマクロを組んだのですが、
「実行時エラー1004
rangeメソッドは失敗しました、worksheetオブジェクト」と出てきます。
どのようにすれば良いかわかりますでしょうか？
かなり色々なサイトを調べたのですがどうも以下のようなケースにあてはまるものがなく、こちらで質問させていただいています。
もしおわかりになる方がいましたら、よろしくお願いします。

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("コピー貼り付け")
c = ws.Cells(5, 4).Value
ws.Range("c").Interior.Color = rgbLightYellow

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

ws.Range(c).だとどうなりますか。

（マナ） 2022/03/07(月) 22:08

■１
既にマナさんから指摘があるように↓だとcという名前をつけたセル範囲という意味になってしまいます。

 Range("c")

■２
Sub～End Subまでが１つのプロシージャと呼ばれるかたまりなので、最初から最後までを提示されたほうがお互いの誤解が無くてよいとおもいます。

■３
ということを踏まえ↓のように修正してみてはどうでしょうか。

    Sub さんぷる()
        With ThisWorkbook.Worksheets("コピー貼り付け")
            .Range(.Cells(5, 4).Value).Interior.Color = rgbLightYellow
        End With
    End Sub

（もこな２） 2022/03/08(火) 05:08

マナさん、もこな２さん、ありがとうございます！
（ｃ）でできました！
かなり基本的なミスだったようで、お手数おかけしました。。。
（じゃんぼ） 2022/03/08(火) 09:32

コメント返信：

[ 一覧(最新更新順) ]

[[20220307214647]] 『VBA cellsで取得した値のrangeへの代入』（じゃんぼ） ページの最後に飛ぶ

[[20220307214647]]　『VBA　cellsで取得した値のrangeへの代入』（じゃんぼ）　ページの最後に飛ぶ