【再質問】下記のマクロを実行した所


http://q.hatena.ne.jp/1215222879

r As Long で“コンパイルエラー”同じ適用範囲内で宣言が重複しています。
というエラーが出てしまいました。

ここを削除してみた所、デバックエラーになり

endRow = DataSheet. Range("B9").End(xlDwon).Row

が“アプリケーション定義またはオブジェクト定義エラー”になってしまいます。

これを解決する方法を教えて下さい。

回答の条件
  • 1人2回まで
  • 登録:2008/07/07 22:31:28
  • 終了:2008/07/12 06:39:53

回答(2件)

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982008/07/08 06:46:46

ポイント65pt

最初の質問のほうで

Set PrintSheet = Worksheets("A")

Set PrintSheet = Worksheets("B")


とやってますね。

もしかしたら DataSheetの Setが なかったりしませんか?

Mookさんの回答では

Set DataSheet = Worksheets("A") '★★★ どっちかはデータシート?:とりあえずAを変更

とやってますが、これを修正して

Set PrintSheet = Worksheets("A") '★★★ どっちかはデータシート?:とりあえずAを変更

とかにしていませんか?

id:mokachan

ありがとうございます。

確かめたら、最初の質問の入力が間違っていて、マクロ上ではきちんと”B”はDataSheetに定義してあるんです。

その他の原因は何だか分からないんです・・・

2008/07/10 13:15:14
id:falcon2 No.2

falcon2回答回数331ベストアンサー獲得回数22008/07/09 02:42:27

ポイント5pt

書いた人に1ポイント送信でメールをすると気づくと思います。

id:mokachan

意味が分かりません

2008/07/12 06:39:13
  • id:SALINGER
    すでに解決してるかもしれませんが、
    xlDwon → xlDown
    こういうミスは、行の最初に
    Option Explicit
    を書くことでスペルミスを別の変数と認識されなくなるのでお勧めです。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません