| |
▼吉 さん：
おはようございます。
工程表のイメージが今ひとつ分かりませんが・・・
計画と実行(実施）された表で、「全て印刷する」と
偶数行の（実施）のみの「偶数行印刷」をしたいということでしょうか。
また、フォームの状況も一応見させていただきましたが、
大まかしか分かりませんので・・・
あくまでﾁｪｯｸ１にﾁｪｯｸを入れると「偶数行のみの」また
ﾁｪｯｸ２にﾁｪｯｸを入れると「全て」の区分をさせました。
とりあえずコードは「.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
印刷の範囲等の条件等は吉さんの方でないと、分からないと思いますので。
今のままですと偶数行（実施)を選択すると天地の高さが半分になります。
後はよろしく・・・
|
|
M
- 05/7/24(日) 9:13 -
