|
▼mori0928 さん:
おはようございます。
○○○から始まる文字列の判定、いろんな方法がありますが
サンプルを2つ。
Sub Sample1()
Dim s1 As String
Dim s2 As String
s1 = "2009年aaaa"
If s1 Like "2009年*" Then
MsgBox s1 & "2009年から始まっています"
Else
MsgBox s1 & "は2009年から始まっていません"
End If
If s1 Like "2010年*" Then
MsgBox s1 & "は2010年から始まっています"
Else
MsgBox s1 & "は2010年から始まっていません"
End If
End Sub
Sub Sample2()
Dim s1 As String
Dim s2 As String
s1 = "2009年aaaa"
If Left(s1, 5) = "2009年" Then
MsgBox s1 & "2009年から始まっています"
Else
MsgBox s1 & "は2009年から始まっていません"
End If
If Left(s1, 5) = "2010年" Then
MsgBox s1 & "は2010年から始まっています"
Else
MsgBox s1 & "は2010年から始まっていません"
End If
End Sub
|
|