ステートメントが基準を満たしたときにループを停止する方法はありますか？ -vba-excel

Question

Private Sub CommandButton1_Click() 

Dim Year    As Long 
Dim i As Long 

Year = 2008 
For Year = 2008 To ComboBox2.Value 
    For i = 2 To 200 Step 12 
     If ComboBox1.Value = "Januari" Then 
      Range("G15").Value = Sheets(3).Cells(i, 1).Value 
     ElseIf ComboBox1.Value = "Februari" Then 
      Range("G15").Value = Sheets(3).Cells(i + 1, 1).Value 
     ElseIf ComboBox1.Value = "Maret" Then 
      Range("G15").Value = Sheets(3).Cells(i + 2, 1).Value 
     ElseIf ComboBox1.Value = "April" Then 
      Range("G15").Value = Sheets(3).Cells(i + 3, 1).Value 
     ElseIf ComboBox1.Value = "Mei" Then 
      Range("G15").Value = Sheets(3).Cells(i + 4, 1).Value 
     ElseIf ComboBox1.Value = "Juni" Then 
      Range("G15").Value = Sheets(3).Cells(i + 5, 1).Value 
     ElseIf ComboBox1.Value = "Juli" Then 
      Range("G15").Value = Sheets(3).Cells(i + 6, 1).Value 
     ElseIf ComboBox1.Value = "Agustus" Then 
      Range("G15").Value = Sheets(3).Cells(i + 7, 1).Value 
     ElseIf ComboBox1.Value = "September" Then 
      Range("G15").Value = Sheets(3).Cells(i + 8, 1).Value 
     ElseIf ComboBox1.Value = "Oktober" Then 
      Range("G15").Value = Sheets(3).Cells(i + 9, 1).Value 
     ElseIf ComboBox1.Value = "November" Then 
      Range("G15").Value = Sheets(3).Cells(i + 10, 1).Value 
     ElseIf ComboBox1.Value = "Desember" Then 
      Range("G15").Value = Sheets(3).Cells(i + 12, 1).Value 
     End If 
    Next i 

Next Year 

Sheets(2).Range("I5").Value = ("CONTRACT SPOT") 

End Sub 

januari 2009のコンビネーションを表示する場合は1を、januari 2010のコンビネーションを表示する場合は13を選択します。助けてください

Answer 1

したがって、ComboBox1.Valueには月があり、ComboBox2.Valueには年があります。

そして、あなたは 1 = 1月、2009 2 = 2009年2月 をカウントしたい... 13 = 2010年1月には

その後、あなたには、いくつかの数学を行う必要があり

Dim iMonth as Integer 

Dim iYear as Integer 
iYear = ComboBox2.Value 

Select Case ComboBox1.Value 
    Case "Januari" 
     iMonth = 1 
    Case "Februari" 
     iMonth = 2 
    Case "Maret" 
     iMonth = 3 
    Case "April" 
     iMonth = 4 
    Case "Mei" 
     iMonth = 5 
    Case "Juni" 
     iMonth = 6 
    Case "Juli" 
     iMonth = 7 
    Case "Agustus" 
     iMonth = 8 
    Case "September" 
     iMonth = 9 
    Case "Oktober" 
     iMonth = 10 
    Case "November" 
     iMonth = 11 
    Case "Desember" 
     iMonth = 12 
End Select 

Range("G15").Value = Sheets(3).Cells(iMonth + ((iYear - 2009) * 12), 1).Value 

Iこれをオンザフライでコーディングしただけで、エラーが発生することがあります。 :)