VBAにはi in（ "foo"、 "bar"、 "baz"）がありますか？

Question

文字列の定数リストを反復処理する必要があります。私の知る限りではありません。

for item in ("foo", "bar", "baz") 
    doSth(item) 
next item 

私はこのような構成をどのようにエレガントにプログラムできるのでしょうか。

Answer 1

エレガント：

私は良いと考えMSDNの記事へのリンクを残しておきますか！あなたが決める。

試してみてください。

Sub test() 
    Dim x As Variant 

    For Each x In Array("foo", "bar", "bas") 
     Debug.Print x 
    Next 

End Sub 

Answer 2

あなたの質問は少し一般的ですが、はい、それはFor Eachを使用して行うことができます。私は自分自身のいくつかのコードを貼り付けます、そしてあなたはそれが動作することができますどのように表示されます：

Sub Example() 
    Dim tempFolderStr As String 
    Dim tempFullStr As String 
    Dim objFolder As Object 
    Dim objFile As Object 
    Dim fs As Object 

(...) 

    Set objFolder = fs.GetFolder(tempFolderStr) 

    For Each objFile In objFolder.Files 
     tempFullStr = tempFolderStr & objFile.name 
     Call Delete_File(tempFullStr) 
    Next objFile 

End Sub 

これは、それがフォルダtempFolderStrで見つかったすべてのファイルを反復処理します。 https://msdn.microsoft.com/en-us/library/5ebk1751.aspx