Snasui Excel Forum

Code: Select all

Private Sub Image1_Click()
If rh = 0 Then
ObInvisible1
Rows(1).Interior.ColorIndex = 41
Rows(1).RowHeight = 10
Rows(2).RowHeight = 20
rh = 1

Range("B2").Value = "<< ........."
Exit Sub

ElseIf rh = 1 Then

Rows(1).Interior.Color = vbHighlight
Rows(1).RowHeight = 20
Rows(2).RowHeight = 150
rh = 0
ObVisible1
Range("B2").Value = ""
Exit Sub

End If
End Sub

Private Sub Label5_Click()
    ObReset
End Sub

Private Sub Worksheet_Activate()
rh = 0
Image1_Click
End Sub

Code: Select all

If Range("a1") = 1 Then
    Shapes.Range(Array("กลุ่ม 1")).Visible = True
    Rows(2).RowHeight = 150
    Range("a1").Value = 0
    Range("b2").Value = ""
Else
    Shapes.Range(Array("กลุ่ม 1")).Visible = False
    Rows(2).RowHeight = 20
    Range("a1").Value = 1
    Range("b2").Value = "<< ........."
End If