Attribute VB_Name = "testif5"
Sub テスト()
    Dim x As String
    
    x = "福岡"
    
    Select Case x
    Case "東京"
        Range("A1").Value = "Tokyo"
    Case "大阪"
        Range("A1").Value = "Osaka"
    Case "名古屋"
        Range("A1").Value = "Nagoya"
    Case "札幌"
        Range("A1").Value = "Sapporo"
    Case "福岡"
        Range("A1").Value = "Fukuoka"
    End Select

End Sub