Excel VBA質問箱 IV

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

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


11211 / 76735 ←次へ | 前へ→

【71064】Re:ifの整理
発言  ちん  - 12/1/27(金) 15:59 -

引用なし
パスワード
   ▼クリシュファー さん:こんにちわ、ちんといいます。
if文をまとめる?ですが、
if内の処理が1命令であれば、
> If CheckBox1.Value = True Then
> Cells(行, "F").Copy Sheet2.Range("C6:I7")  '<--1命令 
> End If

If CheckBox1.Value = True Then Cells(行, "F").Copy Sheet2.Range("C6:I7")
If CheckBox2.Value = True Then Cells(行, "G").Copy Sheet2.Range("K6:Q7")
If CheckBox3.Value = True Then Cells(行, "H").Copy Sheet2.Range("S6:Y7")
と、なります。

シートの列は、A列から1,2,3 となりますので、
F列は6です。

RETU=6  とし、
 If CheckBox1.Value = True Then Cells(行, RETU).Copy Sheet2.Range("C6:I7"): RETU=RETU+1
 ※2命令あるときは、:でつなげていきます。
 If CheckBox2.Value = True Then
 Cells(行, RETU).Copy Sheet2.Range("K6:Q7"): RETU=RETU+1
 End If
 If CheckBox3.Value = True Then
 Cells(行, RETU).Copy Sheet2.Range("S6:Y7") : RETU=RETU+1
 End If
 If CheckBox4.Value = True Then
 Cells(行, RETU).Copy Sheet2.Range("AA6:AG7")
 RETU=RETU+1
 End If
 If CheckBox5.Value = True Then
 Cells(行, RETU).Copy Sheet2.Range("C8:I9")
 RETU=RETU+1
 End If
 If CheckBox6.Value = True Then
 Cells(行, RETU).Copy Sheet2.Range("K8:Q9")
 RETU=RETU+1
 End If
 If CheckBox7.Value = True Then
 Cells(行, RETU).Copy Sheet2.Range("S8:Y9")
 RETU=RETU+1
 End If

勘違いしてたらごめんなさい。参考までに・・・

10 hits

【71061】ifの整理 クリシュファー 12/1/27(金) 14:11 質問
【71062】Re:ifの整理 Yuki 12/1/27(金) 14:31 回答
【71063】Re:ifの整理 クリシュファー 12/1/27(金) 14:44 質問
【71064】Re:ifの整理 ちん 12/1/27(金) 15:59 発言
【71065】Re:ifの整理 クリシュファー 12/1/27(金) 16:47 質問
【71066】Re:ifの整理 クリシュファー 12/1/27(金) 17:09 質問
【71068】Re:ifの整理 kanabun 12/1/27(金) 17:34 発言
【71069】Re:ifの整理 kanabun 12/1/27(金) 17:39 発言
【71070】Re:ifの整理 クリシュファー 12/1/27(金) 18:43 質問
【71071】Re:ifの整理 Hirofumi 12/1/27(金) 20:37 発言
【71072】Re:ifの整理 クリシュファー 12/1/27(金) 20:50 発言
【71073】Re:ifの整理 Hirofumi 12/1/27(金) 21:18 発言
【71082】Re:ifの整理 クリシュファー 12/1/28(土) 8:18 質問
【71083】Re:ifの整理 Hirofumi 12/1/28(土) 9:26 発言
【71084】Re:ifの整理 Hirofumi 12/1/28(土) 9:32 発言
【71085】Re:ifの整理 クリシュファー 12/1/28(土) 9:38 質問
【71086】Re:ifの整理 kanabun 12/1/28(土) 10:55 発言
【71087】Re:ifの整理 クリシュファー 12/1/28(土) 11:35 お礼

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