Excel VBA質問箱 IV

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

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


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

11207 / 76735

←次へ　｜　前へ→


	【71068】Re:ifの整理

kanabun - 12/1/27(金) 17:34 -


	引用なし

	パスワード

▼ｸﾘｼｭﾌｧｰさん：おじゃまさまです >歯抜けになってしまうのだけなんとかできればありがたいのですが Copy先セルを覚えておいて、Copyするごとに順に移動していったらどうでしょう（↓ Copy元シートを Sheet1 と仮定しています） Option Explicit Private Sub CommandButton1_Click() 　Dim c As Range 　Dim i As Long 　Dim 行 As Long 　行 = 2 '「行」はどこでどのように決まるのか？分かりません。　Set c = Sheet2.Range("C6") 　For i = 1 To 7 　　　If Me("CheckBox" & i).Value Then 　　　　　Sheet1.Cells(行, i + 5).Copy c.Resize(2, 7) 　　　　　NextCell c 　　　End If 　Next End Sub ’// Copy先セル移動 Private Sub NextCell(ByRef c As Range) 　　If c.Column < 27 Then 　　　　Set c = c.Offset(, 8) 　　Else 　　　　Set c = c.Worksheet.Cells(c.Row + 2, "C") 　　End If End Sub かんちがいしてるかな？