VBAでのケースの作成（文字列は異なる値）

Question

最後の質問は広すぎるため、個々の問題を個別に攻撃します。

マクロを修正してGoogleマップのアドレスを検索しましたが、残念ながらアドレスが含まれるクラスは「vk_sh vk_bk」と「_erg」（またはそのようなもの）の間で異なります。あなたはアドレスが「vk_sh vk_bk」それが立ち往生してフリーズしますに含まれていないページを検索する場合

Dim dd As String 
dd = IE.Document.getElementsByClassName("vk_sh vk_bk")(0).innerText 

：

現在はこれを使用して「vk_sh vk_bk」を検索します。

私が書きたいのですが、それが行くケース文です：

if dd = null 
Classname = "_erg" 
if dd = null (again) 
break operation 

だから、基本的には私はそれが私が探しているクラス名を変更する必要があります必要なクラスを見つけることができない場合、およびもう一度見つけられない場合は、操作を中断してフリーズしません。

どのように私はこれを書くことができるかに関するアイデアはありますか？他の質問は、文字列を宣言し、それをループ内に、他のものを別のものとすると言う。

Answer 1

Dim dd As String, c 

for each c in Array("vk_sh vk_bk", "_erg") 
    on error resume next 
    dd = IE.Document.getElementsByClassName(c)(0).innerText 
    on error goto 0 
    If Len(dd) > 0 Then Exit For 
Next 

'do something with dd