Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46156 / 76732

←次へ　｜　前へ→


	【35554】実行時エラー'1004': 'Range'メソッドは失敗しました

K.K. - 06/3/7(火) 16:51 -


	引用なし

	パスワード

以下のところで「実行時エラー'1004': 'Range'メソッドは失敗しました」
と表示されますが、何が原因なのか分かりません。

Dim Ha2 As Integer
Ha2 = Application.Match("Oct 2005 HA", Range(Cells(2, 6), Cells(2, 6).End(xlToRight)), 0)
Workbooks("Nov 2005.xls").Sheets("input").Activate
Union(Range(Cells(5, Ha2 + 5 + i), Cells(10, Ha2 + 5 + i)), Range(Cells(14, Ha2 + 5 + i), Cells(22, Ha2 + 5 + i)), Range(Cells(26, Ha2 + 5 + i), Cells(37, Ha2 + 5 + i)), Range(Cells(41, Ha2 + 5 + i), Cells(65, Ha2 + 5 + i)), Range(Cells(70, Ha2 + 5 + i))).FormulaR1C1 = "=RC[-10]-RC[-1]"

2 hits

▼

【35554】実行時エラー'1004': 'Range'メソッドは失敗しました K.K. 06/3/7(火) 16:51

≪