Excel VBA質問箱 IV

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

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


7875 / 13644 ツリー ←次へ | 前へ→

【35554】実行時エラー'1004': 'Range'メソッドは失敗しました K.K. 06/3/7(火) 16:51 質問[未読]
【35563】Re:実行時エラー'1004': 'Range'メソッドは... Ned 06/3/7(火) 20:21 発言[未読]
【35587】Re:実行時エラー'1004': 'Range'メソッドは... K.K. 06/3/8(水) 9:36 質問[未読]
【35630】Re:実行時エラー'1004': 'Range'メソッドは... Ned 06/3/8(水) 19:36 発言[未読]
【36342】Re:実行時エラー'1004': 'Range'メソッドは... K.K. 06/3/29(水) 12:23 お礼[未読]

【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]"

【35563】Re:実行時エラー'1004': 'Range'メソッド...
発言  Ned  - 06/3/7(火) 20:21 -

引用なし
パスワード
   こんにちは。
>Range(Cells(70, Ha2 + 5 + i))
の部分でしょうね。

Sub test()
  Range(Cells(70, 1)).Select
End Sub
とはできないでしょうから。

【35587】Re:実行時エラー'1004': 'Range'メソッド...
質問  K.K.  - 06/3/8(水) 9:36 -

引用なし
パスワード
   Nedさんレスありがとうございました。

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)), Cells(70, Ha2 + 5 + i)).FormulaR1C1 = "=RC[-10]-RC[-1]"
とはできないのですか?

【35630】Re:実行時エラー'1004': 'Range'メソッド...
発言  Ned  - 06/3/8(水) 19:36 -

引用なし
パスワード
   それはできるでしょう?試してみて何かエラーが出ましたか?
>Range(Cells(70, Ha2 + 5 + i))
が原因でしたから。

【36342】Re:実行時エラー'1004': 'Range'メソッド...
お礼  K.K.  - 06/3/29(水) 12:23 -

引用なし
パスワード
   Nedさん、できました。ありがとうございました。

7875 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free