Excel VBA質問箱 IV

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

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


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

35221 / 76738

←次へ　｜　前へ→


	【46719】アプリケーション定義オブジェクト定義の方法

初心者 - 07/2/13(火) 11:00 -


	引用なし

	パスワード

次のことをやりたいと思います。 ○sheet1からsheet2へ１行ずつコピーしていく。 sheet1のa4:c4をコピーし、sheet2のF4からH4へペースト。 sheet2のD4をコピーし、sheet2のM4へペースト。実行すると以下のメッセージが出ます。 ○「アプリケーション定義、またはオブジェクト定義のエラーです」以下のことを教えて下さい。 ○アプリケーション定義、オブジェクト定義のやり方 ●sheet1のデータ　　 A　　　B　　　C　　　D　　　　E　　F 4　　a　　　b　　　c　　　文字１ 5　　d　　　e　　　f　　　文字２　　　　　 6　　g　　　h　　　i　　　文字３ 7　　j　　　k　　　l　　　文字４ ●sheet2のデータ　　Ｆ　　 G　　　H　　　　・・・　　　M　　 4　　a　　　b　　　c　　　　　　　　　　文字１ 5　　d　　　e　　　f　　　　　　　　　　文字２　　　　　 6　　g　　　h　　　i　　　　　　　　　　文字３ 7　　j　　　k　　　l　　　　　　　　　　文字４ ------------------------------------------- Sub sample() Dim a1, a2, a3, a4, a5 As Variant 'sheet1のabcをsheet2へコピーする　　　　　Sheets("sheet1").Select 　　　　　a3 = 4 　　a2 = 0 　　a4 = 4 　　a5 = 5 　　　　　Do While a1 <= a3 　　a1 = 4 　　　　　Sheets("sheet1").Select 　　Range("A4").Offset(a1 - 4).Resize(0, a5).Select 　　Selection.Copy 　　　　Sheets("sheet2").Select 　　Range("F4").Offset(a2 * a4).Select 　　ActiveSheet.Paste 　　　　 'sheet1の文字１，２，３，４をsheet2へコピーする　　Sheets("sheet1").Select 　　Range("d" & a1).Offset(a1 - 4).Select 　　Selection.Copy 　　Sheets("sheet2").Select 　　Range("M4").Offset(a2 * a4).Select 　　ActiveSheet.Paste 　　　　a1 = a1 + 1 　　a2 = a2 + 1 　　　　Loop 　　　　 End Sub ----------------------------------------------------