Excel VBA質問箱 IV

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

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


54583 / 76732 ←次へ | 前へ→

【26935】Re:工程表について
回答  M  - 05/7/24(日) 9:13 -

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

おはようございます。

工程表のイメージが今ひとつ分かりませんが・・・

計画と実行(実施)された表で、「全て印刷する」と
偶数行の(実施)のみの「偶数行印刷」をしたいということでしょうか。

また、フォームの状況も一応見させていただきましたが、
大まかしか分かりませんので・・・
あくまでチェック1にチェックを入れると「偶数行のみの」また
チェック2にチェックを入れると「全て」の区分をさせました。

とりあえずコードは「.Select」で止めています。
そこまでのコードを書いておきます。
セルの空きも全て選択します。
後は、アレンジしてください。

Private Sub CheckBox1_Click()
 Dim i As Integer
 For i = 7 To 115 Step 2
 Rows(i).EntireRow.Hidden = True
 Next
 Range(Cells(6, 7), Cells(115, 68)).SpecialCells(xlCellTypeVisible).Select
End Sub
Private Sub CheckBox2_Click()
 Dim i As Integer
 For i = 7 To 115 Step 2
 Rows(i).EntireRow.Hidden = False
 Next
 Range(Cells(6, 7), Cells(115, 68)).Select
End Sub

印刷の範囲等の条件等は吉さんの方でないと、分からないと思いますので。
今のままですと偶数行(実施)を選択すると天地の高さが半分になります。
後はよろしく・・・
0 hits

【26931】工程表について 05/7/23(土) 20:35 質問
【26935】Re:工程表について M 05/7/24(日) 9:13 回答
【26976】Re:工程表について 05/7/25(月) 21:06 質問
【26984】Re:工程表について M 05/7/25(月) 23:00 回答
【26987】Re:工程表について 知ろう途 05/7/26(火) 0:03 発言
【26989】Re:工程表について 知ろう途 05/7/26(火) 0:15 発言
【27026】Re:工程表について 05/7/26(火) 18:47 お礼

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