Snasui Excel Forum

Sub SaveData()
'
' SaveData Macro
'

ThisWorkbook.Activate

If Range("Check1") = 0 Then
MsgBox ("Non Save Data")
Exit Sub
Else
Application.ScreenUpdating = False

If Range("Check2") = 1 Then
MyVal2 = [Course_Input]
[Course_New] = MyVal2
End If

MyVal = [Input]
[Target] = MyVal

Application.Goto Reference:="Clear"
Selection.ClearContents
Range("G4").Select
Application.ScreenUpdating = True
MsgBox ("Data Saved Success")
End If
End Sub
Sub ClearData()
Application.Goto Reference:="Clear"
Selection.ClearContents
Range("G4").Select
End Sub

If Range("Check2") = 0 Then
MsgBox ("Non Save Data")
Exit Sub
Else
Application.ScreenUpdating = False

If Range("Check2") = 1 Then
MyVal2 = [Course_Input]
[Course_New] = MyVal2
End If

ใช้ Tag เป็น Tag ปิดโค้ดด้วยตามกติกาข้อ 5 ครับ