Excel VBA質問箱 IV

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

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


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

2778 / 76735

←次へ　｜　前へ→


	【79597】Re:最終行が取得できません...

［名前なし］ - 18/1/31(水) 23:58 -


	引用なし

	パスワード

ご回答ありがとうございました。
アドバイス・参考URLを拝見させていただき、再度下記のマクロで実行しましたが、いまだに同様のエラーが発生します。。。何か他に設定で変更しきれていなかったり、あるんでしょうか？

Option Explicit
Sub Histogram()
Dim i
Dim c_addr1
Dim c_addr2
Dim start_cell
Dim end_cell
Dim data_range
i = Cells(Rows.Count, 1).End(xlUp).Row
c_addr1 = 1　　'開始行
c_addr2 = i　 '最終行
start_cell = "$B$" & c_addr1
end_cell = "$E$" & c_addr2
data_range = start_cell & ":" & end_cell

Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range(data_range) _
, "", ActiveSheet.Range("$G$1:$G$10"), False, False, True, False

End Sub

▼γ さん：
>ちなみに、私の手元では正常に動作しました。
>（Option Explicitを無効化したうえですが）

7 hits

▼

【79593】最終行が取得できません... ［名前なし］ 18/1/31(水) 12:19