Attribute VB_Name = "testif1"
Sub テスト()
    Dim x As Integer
    
    x = 12
    
    If x > 10 Then
        Range("A1").Value = "変数は10より大きい"
    End If

End Sub