Excel VBA質問箱 IV

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

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


27135 / 76732 ←次へ | 前へ→

【54921】Re:マクロ初心者です。
発言  わいわい  - 08/4/4(金) 12:36 -

引用なし
パスワード
   Sub T()
Dim i As Long
Dim T_Range As Range
i = 8
For Each T_Range In Sheets("元データ").Range("A4:A10")
  MsgBox T_Range.Address & " のコピぺ開始"
  Sheets("元データ").Select
  T_Range.Copy 'Sheets("元データ").Range("A4").Copy
  Sheets("冊子").Range("C" & i).PasteSpecial Paste:=xlValues
  Sheets("元データ").Select 'PasteSpecialなので必要ない
  MsgBox T_Range.Offset(0, 1).Address & " のコピぺ開始"
  T_Range.Offset(0, 1).Copy 'Sheets("元データ").Range("B4").Copy
  Sheets("冊子").Range("C" & i + 3).PasteSpecial Paste:=xlValues
  i = i + 8
Next T_Range
End Sub
で、動きの確認してチョ
OKだったら、コードの整理をしてUPします。
1 hits

【54919】マクロ初心者です。 kool 08/4/4(金) 11:22 質問
【54920】Re:マクロ初心者です。 ν 08/4/4(金) 12:07 発言
【54922】Re:マクロ初心者です。 kool 08/4/4(金) 13:46 発言
【54924】Re:マクロ初心者です。 ν 08/4/4(金) 14:29 発言
【54926】Re:マクロ初心者です。 わいわい 08/4/4(金) 15:01 発言
【54928】Re:マクロ初心者です。 kool 08/4/4(金) 15:36 お礼
【54927】Re:マクロ初心者です。 kool 08/4/4(金) 15:31 お礼
【54929】Re:マクロ初心者です。 ν 08/4/4(金) 15:40 発言
【54932】Re:マクロ初心者です。 kool 08/4/4(金) 16:05 発言
【54934】Re:マクロ初心者です。 ν 08/4/4(金) 16:11 発言
【54936】Re:マクロ初心者です。 kool 08/4/4(金) 16:31 お礼
【54937】Re:マクロ初心者です。 ν 08/4/4(金) 17:37 発言
【54976】Re:マクロ初心者です。 kool 08/4/8(火) 10:02 お礼
【54930】Re:マクロ初心者です。 ひげくま 08/4/4(金) 15:42 発言
【54931】Re:マクロ初心者です。 わいわい 08/4/4(金) 16:04 発言
【54933】Re:マクロ初心者です。 kool 08/4/4(金) 16:09 お礼
【54935】Re:マクロ初心者です。 kool 08/4/4(金) 16:14 お礼
【54921】Re:マクロ初心者です。 わいわい 08/4/4(金) 12:36 発言
【54923】Re:マクロ初心者です。 kool 08/4/4(金) 13:51 回答
【54925】Re:マクロ初心者です。 注意 08/4/4(金) 14:31 発言

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