Excel VBA質問箱 IV

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

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


9025 / 76732 ←次へ | 前へ→

【73275】Re:繰り返し処理について
質問  ひまこ  - 12/12/16(日) 21:38 -

引用なし
パスワード
   ▼UO3 さん:

どうもありがとうございます。

offset、Resizeの使い方、
変数からマイナスして繰り返す方法
とても勉強になりました!

すっきりとしていて
私が悩んでいたコードって野暮ったいなと思ってしまいました。。。

これを印刷したいのですが、
1ページ目は1月、
2ページ目は2月となっています。
メッセージボックスから指定して印刷する方法はありますでしょうか。

後からの続けての質問で申し訳ございません。

もし分かりましたらよろしくお願い申し上げます。

>▼ひまこ さん:
>
>
>了解です。
>
>>初めの13段10列の表と同じものが
>>12回目に最終的に出来上がります。
>>コピーの1回目は元表からE3:J13を消した表
>>コピーの2回目は元表からE4:J13を消した表
>>以下続く、、という感じです。
>>(最初の質問はこの形でした)
>>
>>
>>もっと良い方法がある場合も含めて
>>考え方をアドバイス頂けると助かります。
>
>この考え方がシンプルでよろしいかと思います。
>以下、コード案です。
>
>Sub Sample()
>  Dim i As Long
>  Dim x As Long
>  Dim n As Long
>  Dim myR As Range
>  
>  '処理中の画面の動きを隠す
>  Application.ScreenUpdating = False
>  
>  Set myR = Range("A1:J13") 'コピー領域
>  '処理前に転記領域をクリア
>  Range("A1", ActiveSheet.UsedRange).Offset(43).ClearContents
>  
>  For x = 1 To 12 '処理回数
>    i = x * 43 + 1 '転記行番号
>    myR.Copy Cells(i, "A")   'コピペ
>    n = x + 1        'J列までの値がコピーされるべき行数
>    If 13 - n > 0 Then
>      'D列までの値でいい領域につぃて、E〜J列の値をクリア
>      Cells(i, "A").Offset(n, 4).Resize(13 - n, 6).ClearContents
>    End If
>  Next
>  
>  Application.ScreenUpdating = True
>  MsgBox "転記終了です"
>  
>End Sub
227 hits

【73267】繰り返し処理について ひまこ 12/12/16(日) 0:33 質問
【73271】Re:繰り返し処理について UO3 12/12/16(日) 7:11 発言
【73272】Re:繰り返し処理について ひまこ 12/12/16(日) 10:12 発言
【73273】Re:繰り返し処理について UO3 12/12/16(日) 10:56 発言
【73275】Re:繰り返し処理について ひまこ 12/12/16(日) 21:38 質問
【73277】Re:繰り返し処理について UO3 12/12/16(日) 22:36 発言
【73278】Re:繰り返し処理について UO3 12/12/16(日) 22:40 発言
【73282】Re:繰り返し処理について ひまこ 12/12/17(月) 6:23 お礼
【73287】Re:繰り返し処理について ひまこ 12/12/17(月) 22:00 お礼
【73286】Re:繰り返し処理について 12/12/17(月) 21:49 発言
【73288】Re:繰り返し処理について ひまこ 12/12/17(月) 22:04 質問
【73291】Re:繰り返し処理について 12/12/18(火) 6:32 発言
【73301】Re:繰り返し処理について ひまこ 12/12/18(火) 21:17 お礼
【73276】Re:繰り返し処理について 12/12/16(日) 21:59 回答
【73281】Re:繰り返し処理について ひまこ 12/12/17(月) 6:21 お礼
【73289】Re:繰り返し処理について ひまこ 12/12/17(月) 23:24 質問
【73292】Re:繰り返し処理について 12/12/18(火) 6:34 回答
【73302】Re:繰り返し処理について ひまこ 12/12/18(火) 21:19 お礼
【73311】Re:繰り返し処理について 12/12/19(水) 18:48 回答
【73298】Re:繰り返し処理について UO3 12/12/18(火) 12:42 発言
【73303】Re:繰り返し処理について ひまこ 12/12/18(火) 21:29 お礼

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