Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Activate()
Dim score As Integer, result As String
LRegion = Range("Q13").Value
Select Case LRegion
   Case "1/11"
            Call Module25.รหัสวิทย์ม1เทอม1
   Case "1/12"
            Call Module25.รหัสวิทย์ม1เทอม2
   Case "2/11"
            Call Module25.รหัสวิทย์ม2เทอม1
   Case "2/12"
            Call Module25.รหัสวิทย์ม2เทอม2
   Case "3/11"
            Call Module25.รหัสวิทย์ม3เทอม1
   Case "3/12"
            Call Module25.รหัสวิทย์ม3เทอม2
   Case "1/21"
            Call Module2.ปกติม1เทอม1
   Case "1/22"
            Call Module2.ปกติม1เทอม2
   Case "1/31"
            Call Module2.ปกติม1เทอม1
   Case "1/32"
            Call Module2.ปกติม1เทอม2
   Case "2/21"
            Call Module2.ปกติม2เทอม1
   Case "2/22"
            Call Module2.ปกติม2เทอม2
   Case "2/31"
            Call Module2.ปกติม2เทอม1
   Case "2/32"
            Call Module2.ปกติม2เทอม2
   Case "3/21"
            Call Module2.ปกติม3เทอม1
   Case "3/22"
            Call Module2.ปกติม3เทอม2
   Case "3/31"
            Call Module2.ปกติม3เทอม1
   Case "3/32"
            Call Module2.ปกติม3เทอม2
   End Select
End Sub
   

Code: Select all

Private Sub Worksheet_Activate()
    Dim score As Integer, result As String
    Application.EnableEvents = False
    'Other code
    Application.EnableEvents = True
End Sub