返回列表 上一主題 發帖

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

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-8-29 15:35 | 顯示全部帖子

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

各位大大們好!
由於條件總共有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
複製代碼
收藏 分享

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
2#
發表於 2017-8-30 14:13 | 顯示全部帖子
回復 2# ML089
首先感謝版主大大!!
目前對於VBA程式的撰寫還有些不了解想再問一下版主
""" Dim T2I2%, K%"""
其中的 " % "代表什麼意思呢?
感謝!

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題