Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15744 / 76734

←次へ　｜　前へ→


	【66465】Re:名前に規則性のあるシートの一括削除

UO3 - 10/9/5(日) 8:50 -


	引用なし

	パスワード

▼mori0928 さん：

おはようございます。
○○○から始まる文字列の判定、いろんな方法がありますが
サンプルを２つ。

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

3 hits

▼

【66458】名前に規則性のあるシートの一括削除 mori0928 10/9/5(日) 2:02