当语句符合条件时如何停止循环？ -vba-excel

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等等。请帮忙当语句符合条件时如何停止循环？ -vba-excel

来源

2016-12-04 Yomi

到目前为止它只显示循环结束时的最后一个数字，例如，当我选择januari 2009时显示193 – Yomi

combobox2.value范围是2008至2050 – Yomi

如果您想要退出For'循环时条件得到满足，然后放入'If'语句的'Exit For'中。如果你解释得更好，也许有一种方法来优化你的代码 –

So ComboBox1.Value有月份，ComboBox2.Value有年份。

而且要算 1 = 2009年1月 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

我只是编码这个动态，它可能有一些错误，让我知道它是否工作！ :)

来源

2016-12-04 06:26:11

我希望它从另一个表中取值，2009年1月= 1，“1”仅仅是我创建的一个虚拟数字，以使其更容易。 – Yomi

目前尚不清楚你想说什么。因此，2009年1月的数据存储在工作表1中，2009年2月存储在工作表2中，依此类推？ –

不，所有月份和年份数据的组合都是商店3 – Yomi

当语句符合条件时如何停止循环？ -vba-excel

回答

相关问题