Sub テスト()
    Call 割り切り確認(10)
End Sub

Sub 割り切り確認(ByVal num As Integer)
    If num Mod 2 = 0 Then
        Range("A1").Value = "割り切れます"
    Else
        Range("A1").Value = "割り切れません"
    End If
End Sub

Sub 親関数()

    Call Yobidashi(5, 4)
    
End Sub

Sub Yobidashi(a As Integer, b As Integer)
    
    Dim result As Integer
    result = a + b
    
    Cells(1, 1).Value = result
    
End Sub

Sub 親関数2()

   Cells(1, 1).Value = Yobidashi2(4, 8)
    
End Sub

Function Yobidashi2(a As Integer, b As Integer)
    
   Dim result As Integer
   result = a + b
    
   Yobidashi2 = result
    
End Function

Function 分割(元文列, 区切り文字, 取出し番号)
	分割後 = Split(元文列, 区切り文字)
	分割 = 分割後(取出し番号 - 1)
End Function

Sub Sample()
    Dim rc As Integer
    rc = MsgBox("処理を行いますか？", vbYesNo + vbQuestion, "確認")
    If rc = vbYes Then
        MsgBox "処理を行います"
    Else
        MsgBox "処理を中断します"
        End
    End If
    MsgBox "いいえなら" & vbCrLf & "これは表示されない"
End Sub

 Sub Test()
 
   Dim i As Long
   Worksheets("Sheet1").Select
   Cells(1, 1).Select
   For i = 1 To 10
      Cells(1, i).Value = i
   Next
 
 End Sub

 Sub Test2()
 
   Dim i As Long
   Worksheets("Sheet1").Select
   Cells(1, 1).Select
   For i = 1 To 10
      Cells(i, 1).Value = i
   Next
 
 End Sub

Sub SampleEach()
    Dim myRange As Range
 
    For Each myRange In Selection
        myRange.Value = "Hello VBA!"
    Next myRange
End Sub

 Sub test3()
    Dim i As Long
    i = 1
    Worksheets("Sheet2").Select
    Cells(1, 1).Select
    Do While i < 11
        Cells(i, 1).Value = i
        i = i + 1
    Loop
End Sub

Sub test4()

    Dim i As Long
    i = 1
    Do Until Cells(i, 1) = ""
        Cells(i, 2).Value = i
        i = i + 1
    Loop

End Sub

Sub 得点判定()
    Dim intScore As Integer
    
    On Error GoTo ErrCelVal
    intScore = InputBox("得点を入力してください")
    
    
    If 79 < intScore And intScore <= 100 Then
        MsgBox " 天才です"
    ElseIf 69 < intScore And intScore < 80 Then
        MsgBox "もう一息で天才です"
    ElseIf 59 < intScore And intScore < 70 Then
        MsgBox "まぁまぁです"
    ElseIf 0 < intScore And intScore < 60 Then
        MsgBox "悲しいです"
    Else
        MsgBox "得点は 0?100の数字で入力してください"
    End If
    
ErrCelVal:
    MsgBox "セルに数値が入っていません。"
End Sub

Sub CaseTest()
    Dim str As String
    
    str = "中学生"
    
    Select Case str
        Case "小学生"
            MsgBox "小学生です"
        Case "中学生"
            MsgBox "中学生です"
        Case "高校生"
            MsgBox "高校生です"
        Case Else
            MsgBox "入力が不正です"
    End Select
End Sub

Sub CaseTest2()
    Dim age As Integer
    
    age = 14
    
    Select Case age
        Case 7, 8, 9, 10, 11, 12
            MsgBox "小学生です"
        Case 13, 14, 15
            MsgBox "中学生です"
        Case 16, 17, 18
            MsgBox "高校生です"
        Case Else
            MsgBox "入力が不正です"
    End Select
End Sub

Sub CaseTest3()
    Dim age As Integer
    
    age = 14
    
    Select Case age
        Case 7 To 12
            MsgBox "小学生です"
        Case 13 To 15
            MsgBox "中学生です"
        Case 16 To 18
            MsgBox "高校生です"
        Case Else
            MsgBox "入力が不正です"
    End Select
End Sub

Sub CaseTest4()
    Dim age As Integer
    
    age = 8
    
    Select Case age
        Case Is < 7, Is > 18
            MsgBox "7から18までの整数を入力してください"
        Case 7 To 12
            MsgBox "小学生です"
        Case 13 To 15
            MsgBox "中学生です"
        Case 16 To 18
            MsgBox "高校生です"
        Case Else
            MsgBox "入力が不正です"
    End Select
End Sub

Sub CaseTest5()
    Dim str As String
    
    str = "中学"
    
    Select Case True
        Case str Like "小*"
            MsgBox "小学生です"
        Case str Like "中*"
            MsgBox "中学生です"
        Case str Like "高*"
            MsgBox "高校生です"
        Case Else
            MsgBox "入力が不正です"
    End Select
End Sub