「DO LOOP」についての質問です。VBA初心者です。

質問

「DO LOOP」についての質問です。VBA初心者です。

『入力画面』というシートに日付を入力してマクロ実行すると
『入力画面』の右隣りにその日付名のシートが新しく作られるように設定しています。
入力する日は不定期で連続した日付ではありません。

それでお聞きしたいのは、新しく作成するシートから右隣に一つずつ検索していって、
一致するものがあればデータ取得でループ終了。
もしくは全てのシートを検索しても一致するものがなければゼロ表示でループ終了。

という作業をしたいんですが、構文がどのように作ればいいのかがわかりません。
自分でやってみたいのですが、締め切りも近いのでどなたか教えてください。

回答No.1

chochobizo · ベストアンサー

シート名は取得できてますか？

http://www.asahi-net.or.jp/~zn3y-ngi/YNxv202.html#3
こちらにVBAが詳しく出てます。

For～Next でチェックをかけ、その中でフラグを立てます。

例：
Dim flg
flg = "見つからない"

For i = 1 To シート数

If 日付 = シート名 Then
flg = "見つかった！"
Exit For
End If

Next

If flg = "見つかった！" Then
'見つかったときの処理
Else
'見つからなかったときの処理
End If

こんな感じになります。

お礼

誠に申し訳ありません。
私の質問の書き方が悪かったみたいでm(_ _；)m

シート名の検索ではなく、新しく作られたシートのB列に名前を複数入力後
その名前をキーに以前のシートを新しい方の日付から順に検索していって
同行のN列とP列の値を取得したかったのです。
せっかく回答していただいたのに本当に申し訳ないです。

でも、頂いた文をちゃんと勉強して、今後に役立てたいと思ってます。

有難うございました。

回答No.7

mar00

たびたびすいません。#5です。
Sub Macro1()
シートが新しく作られる処理
On Error GoTo Line
シート名変更の処理
以下の処理
Exit Sub
Line:
MsgBox "同じ日付があります。"
'以下は新しくできたシートを削除する処理です。
'新しく作られるシートが２番目にある場合です。
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = False
End Sub

お礼

誠に申し訳ありません。
私の質問の書き方が悪かったみたいでm(_ _；)m

シート名の検索ではなく、新しく作られたシートのB列に名前を複数入力後
その名前をキーに以前のシートを新しい方の日付から順に検索していって
同行のN列とP列の値を取得したかったのです。
せっかく何度も回答していただいたのに本当に申し訳ないです。

でも、頂いた文をちゃんと勉強して、今後に役立てたいと思ってます。

有難うございました。

回答No.6

mar00

#5です。
シートが新しく作られる処理のところは
シートの名前を変更する処理でした。

回答No.5

mar00

私も初心者に近い方ですが
同じ名前のシートは作れないはずなので、そもそもエラーになるのでは?
エラー時の処理をしておけば済むと思います。

Sub Macro1()
On Error GoTo Line
シートが新しく作られる処理
以下の処理　　
Exit Sub
Line:
MsgBox "同じ日付があります。"
End Sub
で良いかと思います。
間違ってたらすいません。

回答No.4

keithin

sub macro1()
　dim s as worksheet
　for each s in worksheets
　　if s.name = "目的の名前" then
　　　msgbox "あります"
　　　exit sub
　　end if
　next
　msgbox "ありませんでした"
end sub

sub macro2()
　dim i as long
　for i = 1 to worksheets.count
　　if worksheets(i).name = "目的の名前" then
　　　msgbox "ありました"
　　　exit sub
　　end if
　next i
　msgbox "なかったです"
end sub

sub macro3()
　dim i as long
　i = 0
　do
　　i = i + 1
　　if worksheets(i).name = "目的の名前" then
　　　msgbox "見つかりました"
　　　exit sub
　　end if
　loop until i = workshsets.count
　msgbox "無い"
end sub

お礼

誠に申し訳ありません。
私の質問の書き方が悪かったみたいでm(_ _；)m

シート名の検索ではなく、新しく作られたシートのB列に名前を複数入力後
その名前をキーに以前のシートを新しい方の日付から順に検索していって
同行のN列とP列の値を取得したかったのです。
せっかく回答していただいたのに本当に申し訳ないです。

でも、頂いた文をちゃんと勉強して、今後に役立てたいと思ってます。

有難うございました。

回答No.3

ASIMOV

書き忘れました(^_^;)
３行目
　fl = 0: sp = 3
の「sp = 3」は検索を始めるシート番号です
適当に「３」としてしまいましたが、調整してください

回答No.2

ASIMOV

シート名の重複をチェックするという意味なら
こんな感じでどうでしょう
-------------------------------------
Sub Mc1()
　　sc = Worksheets.Count
　　fl = 0: sp = 3
　　stnm = "3月11日" '検索するシートの名前
　　Do
　　　　If stnm <> Worksheets(sp).Name Then
　　　　　　sp = sp + 1
　　　　Else
　　　　　　fl = 1
　　　　　　Exit Do
　　　　End If
　　Loop Until sc < sp
　　If fl = 0 Then
　　　　MsgBox "一致するシートなし"
　　Else
　　　　MsgBox sp & " 番目のシートと一致"
　　End If
End Sub
-------------------------

お礼

誠に申し訳ありません。
私の質問の書き方が悪かったみたいでm(_ _；)m

シート名の検索ではなく、新しく作られたシートのB列に名前を複数入力後
その名前をキーに以前のシートを新しい方の日付から順に検索していって
同行のN列とP列の値を取得したかったのです。
せっかく回答していただいたのに本当に申し訳ないです。

でも、頂いた文をちゃんと勉強して、今後に役立てたいと思ってます。

有難うございました。