こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBAでエラーになってしまう

初心者です。

RangeクラスのSelectメゾットが失敗しました。となります。

このコードは、マクロの記録を行い、そのコードをコマンドボタンのコードにコピーしたものです。

初心者なので、マクロの記録からやりました。
どうか、わかる方がいらっしゃいましたら、教えてください。



Private Sub CommandButton4_Click()

Sheets("印刷ページ").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("C6").Select ←ここが黄色くなり、エラーになります。
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("D6").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("E6").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("B8").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("C8").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("D8").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("E8").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("F8").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("B10").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("C10").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("D10").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"
Range("E10").Select
ActiveCell.FormulaR1C1 = "='鈴木 一郎'!R[2]C"


End Sub

投稿日時 - 2005-06-09 13:59:12

QNo.1438619

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。maruru01です。

RangeのSelectメソッドは、アクティブになっていないシートのセルに対して行うとエラーになります。
多分その件でのエラーでしょう。
ただ、結局やりたいことは、

Worksheets("印刷ページ").Range("B6:E6,B8:F8,B10:E10").FormulaR1C1 = "='鈴木 一郎'!R[2]C"

ということでしょうか。

投稿日時 - 2005-06-09 14:21:19

お礼

お答えありがとうございます。

うーん、まさにその通りです。
つたない説明の中で、完璧なお答えをいただきまして、
大変申し訳なく、ありがとうございました。

また、よろしくお願いします。

投稿日時 - 2005-06-09 15:03:27

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問