Excel VBA質問箱 IV

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

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


2710 / 13645 ツリー ←次へ | 前へ→

【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 回答[未読]

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

引用なし
パスワード
   担当者様

mori0928です。
教えていただきたいことがありますので投稿させていただきます。

○質問○
AAA.xlsブックには、たくさんシートがあります。
ブックAAA.xlsのシート一覧はこうなっています。

2009年Ver1
2009年Ver2

2009年VerX (Xは任意の自然数)
2010年Ver1
2010年Ver2
2010年Ver:
2010年VerY (Xは任意の自然数)

これらのシートのうち「2009年」から始まるシートだけを
すべて削除したいのです。
『「2009年」から始まる名前のシートだけをすべて』という部分が書けず、
エラーばかり出しています。
申し訳ないですが、教えていただけないでしょうか?
よろしくお願いいたします。

以上

【66462】Re:名前に規則性のあるシートの一括削除
発言  よろずや  - 10/9/5(日) 7:14 -

引用なし
パスワード
   >『「2009年」から始まる名前のシートだけをすべて』

(1) すべてのシートを順に見ていって、
(2)   名前が「2009年」から始まる場合は
(3)     削除する。

【66464】Re:名前に規則性のあるシートの一括削除
発言  mori0928  - 10/9/5(日) 8:46 -

引用なし
パスワード
   ▼よろずや さん:

補足させてください。

>(1) すべてのシートを順に見ていって、
どうもこのステップでエラーを出しているようです。
すべてのシートを順に見ていくところがうまくかけないです。
よい書き方はないでしょうか?

>(2)   名前が「2009年」から始まる場合は
>(3)     削除する。
ここは大丈夫です。

【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

【66466】Re:名前に規則性のあるシートの一括削除
発言  かみちゃん  - 10/9/5(日) 8:56 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>(1) すべてのシートを順に見ていって、
>どうもこのステップでエラーを出しているようです。
>すべてのシートを順に見ていくところがうまくかけないです。
>よい書き方はないでしょうか?

UO3さんからコードが出ていますが、
ご自身が今書いているコードを提示されてはいかがでしょうか?
そうすると、どこが悪いか、修正できるかもしれません。

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