Excell whileループでサブ呼び出しを繰り返す

Question

B9に値が入るまでこのコードでサブをループしようとしています。 while文を含めるまでは、私が下手に何をしているのか不明です。

Private Sub CommandButton2_Click() 

Range("B5:B18").ClearContents 

If [D2] = [R15] Then 
    Do While IsEmpty("B9") = True 
     Randomname 
    Loop 
End If 

また、おそらく関連性の高いサブコードを投稿してください。 サブは、私が見つけて自分のニーズに合わせて変更したコードに基づいたランダムな名前選択ツールです。 2つの範囲を比較し、まだ使用されていないソース範囲の名前を一度に1つずつ取り出します。

Sub Randomname() 
Dim source, destination As Range 

Set source = ActiveSheet.Range("L15:L28") 
Set destination = ActiveSheet.Range("B5:B18") 
ReDim randoms(1 To source.Rows.Count) 
destrow = 0 
For i = 1 To destination.Rows.Count 
    If destination(i) = "" Then: destrow = i: Exit For 
Next i 
If destrow = 0 Then: MsgBox "no more room in destination range": Exit Sub 
For i = 1 To UBound(randoms): randoms(i) = Rnd(): Next i 
ipick = 0: tries = 0 
Do While ipick = 0 And tries < UBound(randoms) 
    tries = tries + 1 
    minrnd = WorksheetFunction.Min(randoms) 
    For i = 1 To UBound(randoms) 
    If randoms(i) = minrnd Then 
     picked_before = False 
     For j = 1 To destrow - 1 
     If source(i) = destination(j) Then: picked_before = True: randoms(i) = 2: Exit For 
     Next j 
     If Not picked_before Then: ipick = i 
     Exit For 
    End If 
    Next i 
Loop 
If ipick = 0 Then: MsgBox "no more unique name possible to pick": Exit Sub 
destination(destrow) = source(ipick) 
End Sub 

Answer 1

あなたの構文はあなたが

If destination(i) = "" Then: destrow = i: Exit For 

を持ってどこが同じ行に複数のコマンドを実行するために、コロンを使用する場合は、可能

If desination(i) = "" Then 
    destrow = i 
    Exit For 
End If 

とオフの方が良いだろう間違っているように見えます構文が正しいことを確認してください。私は自分のコードを読みやすくするために、個人的には各コマンドを自分の行に保存する方が好きです。これはループで特に重要です。

最後に、thenステートメントで1つのコマンドだけを実行する場合は、コロンを使用せずにthenの後に入力することができます。それ以外の場合は、ifブロックを使用します。

例えば

If True = True then msgbox "True" 

または複数のコマンドのための

If True = True Then 
    msgbox "True" 
    msgbox "Not False" 
End if 

それはより安全であり、それを理解することはあなたのコードが簡単になります。