Excel VBA質問箱 IV

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

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


15748 / 76738 ←次へ | 前へ→

【66465】Re:名前に規則性のあるシートの一括削除
回答  UO3  - 10/9/5(日) 8:50 -

引用なし
パスワード
   ▼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

0 hits

【66458】名前に規則性のあるシートの一括削除 mori0928 10/9/5(日) 2:02 質問
【66462】Re:名前に規則性のあるシートの一括削除 よろずや 10/9/5(日) 7:14 発言
【66464】Re:名前に規則性のあるシートの一括削除 mori0928 10/9/5(日) 8:46 発言
【66466】Re:名前に規則性のあるシートの一括削除 かみちゃん 10/9/5(日) 8:56 発言
【66465】Re:名前に規則性のあるシートの一括削除 UO3 10/9/5(日) 8:50 回答

15748 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free