Snasui Excel Forum

Code: Select all

Code: Select all

Option Explicit
Dim Rangselect As String
Private Sub ComboBox1_Change()
Call ViewReport
End Sub
'ทำงานทันทีเมื่อคลิกปุ่ม ENTER ( Sheet Report )
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect "xxx"
If Target.Address = "$C$3" Or Target.Address = "$D$3" Or Target.Address = "$E$3" Or Target.Address = "$F$3" Or Target.Address = "$G$3" Or Target.Address = "$H$3" Or Target.Address = "$I$3" Or Target.Address = "$J$3" Then
Call ViewReport
'ActiveSheet.Protect "xxx"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("AutoShape 1").Top = ActiveCell.Top
End Sub

Code: Select all

'ทำงานทันทีเมื่อคลิกปุ่ม ENTER ( Sheet Report )
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect "xxx"
If Target.Address = "$C$3" Or Target.Address = "$D$3" Or Target.Address = "$E$3" Or Target.Address = "$F$3" Or Target.Address = "$G$3" Or Target.Address = "$H$3" Or Target.Address = "$I$3" Or Target.Address = "$J$3" Then
Call ViewReport
'ActiveSheet.Protect "xxx"
End If
End Sub