Excel VBA質問箱 IV

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

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


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

11205 / 76735

←次へ　｜　前へ→


	【71070】Re:ifの整理

ｸﾘｼｭﾌｧｰ - 12/1/27(金) 18:43 -


	引用なし

	パスワード

▼kanabun さん：
Private Sub CommandButton1_Click()

　
　Dim c As Range
　Dim i As Long
　Dim 行 As Long
　行 = ActiveCell.Row
　Set c = Sheet2.Range("C6:I7")
　For i = 1 To 17
　　　If Me("CheckBox" & i).Value Then
　　　　　Sheet12.Cells(行, i + 5).Copy c.Resize(2, 7)
　　　　　NextCell c
　　　End If
　Next

ありがとうございます
一歩近づきましたが、("C6:I7")等が結合されたセルの為かチェックボタンが二個以上指定すると「結合されたセルの一部うぃ変更することはできません」とでてしまいます

自分でもよく考えてみます

もし、わかりましたらご教授おねがいいたします

13 hits

▼

【71061】ifの整理 ｸﾘｼｭﾌｧｰ 12/1/27(金) 14:11