Option Explicit
Private Sub CommandButton1_Click()
With Me
.Rows("3:44").Hidden = True
.Rows("52:55").Hidden = True
.Rows("59:74").Hidden = True
.Rows("79:94").Hidden = True
.Rows("99:114").Hidden = True
.Parent.Sheets(Array("Mo", "Di")).PrintPreview
End With
End Sub
Private Sub CommandButton2_Click()
Rows("2:172").Select
Range("N2").Activate
Selection.EntireRow.Hidden = False
Range("A1:A2").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp, i As Integer, sum As Double
If Target.Count = 1 Then
On Error GoTo ErrExit
Application.EnableEvents = False
If Target <> "" Then
Select Case Target.Column
Case 3 To 12, 14
Select Case Target.Row
Case 6 To 7
tmp = Split(Target, ",")
For i = 0 To UBound(tmp)
If IsNumeric(tmp(i)) Then
sum = sum + tmp(i)
Else
Select Case UCase(Trim(tmp(i)))
Case "H": sum = sum + 0.45
Case "D": sum = sum + 0.53
Case "T": sum = sum + 0.66
Case "M": sum = sum + 0.66
End Select
End If
Next
Target = sum
End Select
End Select
End If
If Target.Column = 3 Then Target.Formula = "=" & Replace(Target.Value, ",", ".") & "*.9-K6"
If Target.Column = 4 Then Target = Target * 0.9
End If
ErrExit:
Application.EnableEvents = True
End Sub