返回列表 上一主題 發帖

[發問] 程式碼用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
複製代碼
收藏 分享

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2017-8-29 23:46 | 只看該作者
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
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

liebe

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

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2017-8-30 17:38 | 只看該作者
回復 3# liebe

% 整數
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題