Excel VBA質問箱 IV

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

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


35215 / 76732 ←次へ | 前へ→

【46719】アプリケーション定義オブジェクト定義の方法
質問  初心者  - 07/2/13(火) 11:00 -

引用なし
パスワード
   次のことをやりたいと思います。
○sheet1からsheet2へ1行ずつコピーしていく。
sheet1のa4:c4をコピーし、sheet2のF4からH4へペースト。
sheet2のD4をコピーし、sheet2のM4へペースト。

実行すると以下のメッセージが出ます。
○「アプリケーション定義、またはオブジェクト定義のエラーです」

以下のことを教えて下さい。
○アプリケーション定義、オブジェクト定義のやり方

●sheet1のデータ
   A   B   C   D    E  F
4  a   b   c   文字1
5  d   e   f   文字2      
6  g   h   i   文字3
7  j   k   l   文字4


●sheet2のデータ
   F   G   H    ・・・   M  
4  a   b   c          文字1
5  d   e   f          文字2      
6  g   h   i          文字3
7  j   k   l          文字4


-------------------------------------------
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の文字1,2,3,4を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

----------------------------------------------------

1 hits

【46719】アプリケーション定義オブジェクト定義の方法 初心者 07/2/13(火) 11:00 質問
【46724】Re:アプリケーション定義オブジェクト定義... りん@とおりすがり 07/2/13(火) 12:26 回答
【46742】Re:アプリケーション定義オブジェクト定義... 初心者 07/2/13(火) 18:13 質問
【46743】Re:アプリケーション定義オブジェクト定義... 初心者 07/2/13(火) 18:22 お礼

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