Snasui Excel Forum

Code: Select all

Sub ป1()
        ActiveSheet.Shapes.Range(Array("boxm1t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset4
          ActiveSheet.Shapes.Range(Array("boxm1t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        Range("C7:H7").Select
    ActiveCell.FormulaR1C1 = "ระดับชั้นประถมศึกษาปีที่ 1"
    Range("C8").Select
End Sub
Sub ป2()
        ActiveSheet.Shapes.Range(Array("boxm1t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
          ActiveSheet.Shapes.Range(Array("boxm1t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset4
        ActiveSheet.Shapes.Range(Array("boxm2t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        Range("C7:H7").Select
    ActiveCell.FormulaR1C1 = "ระดับชั้นประถมศึกษาปีที่ 2"
    Range("C8").Select
End Sub
Sub ป3()
        ActiveSheet.Shapes.Range(Array("boxm1t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
          ActiveSheet.Shapes.Range(Array("boxm1t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset4
        ActiveSheet.Shapes.Range(Array("boxm2t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        Range("C7:H7").Select
    ActiveCell.FormulaR1C1 = "ระดับชั้นประถมศึกษาปีที่ 3"
    Range("C8").Select
End Sub
Sub ป4()
        ActiveSheet.Shapes.Range(Array("boxm1t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
          ActiveSheet.Shapes.Range(Array("boxm1t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset4
        ActiveSheet.Shapes.Range(Array("boxm3t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        Range("C7:H7").Select
    ActiveCell.FormulaR1C1 = "ระดับชั้นประถมศึกษาปีที่ 4"
    Range("C8").Select
End Sub
Sub ป5()
        ActiveSheet.Shapes.Range(Array("boxm1t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
          ActiveSheet.Shapes.Range(Array("boxm1t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset4
        ActiveSheet.Shapes.Range(Array("boxm3t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        Range("C7:H7").Select
    ActiveCell.FormulaR1C1 = "ระดับชั้นประถมศึกษาปีที่ 5"
    Range("C8").Select
End Sub
Sub ป6()
        ActiveSheet.Shapes.Range(Array("boxm1t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
          ActiveSheet.Shapes.Range(Array("boxm1t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm2t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t1")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
        ActiveSheet.Shapes.Range(Array("boxm3t2")).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset4
        Range("C7:H7").Select
    ActiveCell.FormulaR1C1 = "ระดับชั้นประถมศึกษาปีที่ 6"
    Range("C8").Select
End Sub

Code: Select all

Sub Main()
    Select Case [l7]
        Case 1: »1
        Case 2: »2
        Case 3: »3
        Case 4: »4
        Case 5: »5
        Case 6: »6
    End Select
End Sub

Code: Select all

Function yangkodza(t) As String
Dim s As String
If t = 1 Then
Call Module13.»1
End If
If t = 2 Then
Call Module13.»2
End If
If t = 3 Then
Call Module13.»3
End If
If t = 4 Then
Call Module13.»4
End If
If t = 5 Then
Call Module13.»5
End If
If t = 6 Then
Call Module13.»6
End If
yangkodza = s
End Function

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$5" Then
Select Case [E5]
        Case 1: ป1
        Case 2: ป2
        Case 3: ป3
        Case 4: ป4
        Case 5: ป5
        Case 6: ป6
    End Select
    End If
            Range("E5").Select
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$7" Then
Select Case [E7]
        Case 1: ป1
        Case 2: ป2
        Case 3: ป3
        Case 4: ป4
        Case 5: ป5
        Case 6: ป6
    End Select
    End If
            Range("E5").Select
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$5" Then
[E7].Value = [E5].Value
Select Case [E5]
        Case 1: ป1
        Case 2: ป2
        Case 3: ป3
        Case 4: ป4
        Case 5: ป5
        Case 6: ป6
    End Select
    End If
            Range("E5").Select
End Sub