[發問] 程式碼用For迴圈簡化

liebe

各位大大們好!
由於條件總共有141個(從2到142個)，若是以IF ELSEIF 下去撰寫會使程式很龐大
由於對於For迴圈不了解，
所以想請教大大們下列程式該如何用FOR迴圈去簡化呢?
要求為當Range("I2")的値為X時，會刪除以下的點(如:數値=10時，會刪除1-9的點)
感謝大家!

1. If Sheets("Tabelle2").Range("I2").Value = 2 Then
   
2.     ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
   
3.    
   
4.     ElseIf Sheets("Tabelle2").Range("I2").Value = 3 Then
   
5.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
   
6.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
   
7.    
   
8.     ElseIf Sheets("Tabelle2").Range("I2").Value = 4 Then
   
9.     ActiveChart.SeriesCollection(2).Points(3).DataLabel.Delete
   
10.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
    
11.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
    
12.    
    
13.     ElseIf Sheets("Tabelle2").Range("I2").Value = 5 Then
    
14.     ActiveChart.SeriesCollection(2).Points(4).DataLabel.Delete
    
15.     ActiveChart.SeriesCollection(2).Points(3).DataLabel.Delete
    
16.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
    
17.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
    
18.    
    
19.     ElseIf Sheets("Tabelle2").Range("I2").Value = 6 Then
    
20.     ActiveChart.SeriesCollection(2).Points(5).DataLabel.Delete
    
21.     ActiveChart.SeriesCollection(2).Points(4).DataLabel.Delete
    
22.     ActiveChart.SeriesCollection(2).Points(3).DataLabel.Delete
    
23.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
    
24.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
    
25.       
    
26.        ElseIf Sheets("Tabelle2").Range("I2").Value = 7 Then
    
27.       ActiveChart.SeriesCollection(2).Points(6).DataLabel.Delete
    
28.     ActiveChart.SeriesCollection(2).Points(5).DataLabel.Delete
    
29.     ActiveChart.SeriesCollection(2).Points(4).DataLabel.Delete
    
30.     ActiveChart.SeriesCollection(2).Points(3).DataLabel.Delete
    
31.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
    
32.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete

複製代碼

ML089

Sub EX()
    Dim T2I2%, K%
    T2I2 = Sheets("Tabelle2").Range("I2").Value

    If T2I2 >= 2 And T2I2 <= 42 Then
        For K = 1 To T2I2 - 1
            ActiveChart.SeriesCollection(2).Points(K).DataLabel.Delete
        Next
    Else

    End If
End Sub

liebe

回復 2# ML089
首先感謝版主大大!!
目前對於VBA程式的撰寫還有些不了解想再問一下版主
""" Dim T2I2%, K%"""
其中的 " % "代表什麼意思呢?
感謝!

ML089

回復 3# liebe

% 整數