| |
参照するセルが分かりませんが、
Ａ１、Ｂ１ CheckBox1
Ａ２、Ｂ２ CheckBox2
Ａ３、Ｂ３ CheckBox3 として
コントロールツールボックスのCheckBoxとします。
印刷の実行はコマンドボタンとして、
＜シートモジュールに記述して下さい。＞
Private Sub CommandButton1_Click()
If CheckBox1.Value = True And _
CheckBox2.Value = True And _
CheckBox3.Value = True Then
Worksheets("sheet1").PrintOut
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
If Range("A1").Value = Range("B1").Value Then
CheckBox1.Value = True
End If
If Range("A2").Value = Range("B2").Value Then
CheckBox2.Value = True
End If
If Range("A3").Value = Range("B3").Value Then
CheckBox3.Value = True
End If
End Sub
なお、空白＝空白は、チェックＯＮになります。
|
|
INA
- 03/10/6(月) 21:48 -
