|
▼吉 さん:
おはようございます。
工程表のイメージが今ひとつ分かりませんが・・・
計画と実行(実施)された表で、「全て印刷する」と
偶数行の(実施)のみの「偶数行印刷」をしたいということでしょうか。
また、フォームの状況も一応見させていただきましたが、
大まかしか分かりませんので・・・
あくまでチェック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
印刷の範囲等の条件等は吉さんの方でないと、分からないと思いますので。
今のままですと偶数行(実施)を選択すると天地の高さが半分になります。
後はよろしく・・・
|
|