返回列表 上一主題 發帖

[發問] 看不懂這個程式的迴圈

小華

帖子
36 
主題
8 
精華
0 
積分
44 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2013-1-8 
最後登錄
2020-10-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-8 22:06 | 只看該作者

[發問] 看不懂這個程式的迴圈

Private Sub CommandButton1_Click()
Set X = Sheets("Core KPIs")
Set Y = Sheets("KPI_to_China")
K1 = 3
K2 = 39
    For I = K1 To K2   
        Flag = Y.Cells(I, 1)  'sheets("KPI to_China").Cells(3,1) ??
        If Flag <> "" Then
               Y.Cells(I, 2) = X.Cells(Flag, 4) ' 這三句看不懂甚麼意思
               Y.Cells(I, 3) = X.Cells(Flag, 7)
               Y.Cells(I, 4) = X.Cells(Flag, 9)
               
               Select Case Y.Cells(I, 4)
                      Case "%"
                            Y.Cells(I, 5) = Format(X.Cells(Flag, 10), "00.00%")
                            Y.Cells(I, 6) = Format(X.Cells(Flag, 12), "00.00%")
                            Y.Cells(I, 7) = Format(X.Cells(Flag, 13), "00.00%")
                            Y.Cells(I, 20) = Format(X.Cells(Flag, 14), "00.00%")
                      Case "Abslute (#)"
                            Y.Cells(I, 5) = Format(X.Cells(Flag, 10), "00")
                            Y.Cells(I, 6) = Format(X.Cells(Flag, 12), "00")
                            Y.Cells(I, 7) = Format(X.Cells(Flag, 13), "00")
                            Y.Cells(I, 20) = Format(X.Cells(Flag, 14), "00")
                      Case Else
                            Y.Cells(I, 5) = Format(X.Cells(Flag, 10), "0.000")
                            Y.Cells(I, 6) = Format(X.Cells(Flag, 12), "0.000")
                            Y.Cells(I, 7) = Format(X.Cells(Flag, 13), "0.000")
                            Y.Cells(I, 20) = Format(X.Cells(Flag, 14), "0.000")
               End Select

另外請問檔案開啟之後，按鈕不能按(CommandButton)??
收藏 分享

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2013-1-9 08:34 | 只看該作者
Private Sub CommandButton1_Click()
Set X = Sheets("Core KPIs")
Set Y = Sheets("KPI_to_China")
K1  ...
小華 發表於 2013-1-8 22:06



    Set X = Sheets("Core KPIs")
Set Y = Sheets("KPI_to_China")

        Flag = Y.Cells(I, 1)  'sheets("KPI to_China").Cells(3,1) ??

                Y.Cells(I, 2) = X.Cells(Flag, 4) ' 這三句看不懂甚麼意思
                Y.Cells(I, 3) = X.Cells(Flag, 7)
                Y.Cells(I, 4) = X.Cells(Flag, 9)


'還原回原始
                FOR i = 3 to 39
                        Sheets("KPI_to_China").Cells(I, 2) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 4)
                        Sheets("KPI_to_China").Cells(I, 3) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 7)
                        Sheets("KPI_to_China").Cells(I, 4) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 9)

                        'Sheets("KPI_to_China").Cells(I, 2) ==> Sheets("KPI_to_China").range("b"&i).value

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2013-1-9 15:37 | 只看該作者
回復 1# 小華
是 Cells 屬性 看不懂? 可察看VBA 的說明.

TOP

小華

帖子
36 
主題
8 
精華
0 
積分
44 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2013-1-8 
最後登錄
2020-10-29 
4#
發表於 2013-1-9 17:16 | 只看該作者
回復 3# GBKEE


    CELLS 屬性大致了解，只是看不懂迴圈內所代表的意思

TOP

小華

帖子
36 
主題
8 
精華
0 
積分
44 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2013-1-8 
最後登錄
2020-10-29 
5#
發表於 2013-1-9 17:24 | 只看該作者
回復 2# mark15jill


                        Sheets("KPI_to_China").Cells(I, 2) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 4)  請問4.7.9  是代表甚麼意思???
                        Sheets("KPI_to_China").Cells(I, 3) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 7)
                        Sheets("KPI_to_China").Cells(I, 4) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 9)

                        'Sheets("KPI_to_China").Cells(I, 2) ==> Sheets("KPI_to_China").range("b"&i).value   這句是表示Sheets("KPI_to_China").range("b"&i).value 的值  複製到'Sheets("KPI_to_China").Cells(I, 2)的位置?

謝謝高手的指導，已大致明白程式所寫的意思  還有少部分不是很懂。

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
6#
發表於 2013-1-9 17:25 | 只看該作者
本帖最後由 mark15jill 於 2013-1-9 17:28 編輯

回復 5# 小華


4 7 9  = 欄數 (舉例  A=1 , B=2 ,C=3  以此類推
4=D欄
7=G欄
9=I欄

'Sheets("KPI_to_China").Cells(I, 2) ==> Sheets("KPI_to_China").range("b"&i).value
這行的意思 是  Sheets("KPI_to_China").Cells(I, 2) 等於 Sheets("KPI_to_China").range("b"&i).value

cells(I,2) 可以視為 range("b" & i).value

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

小華

帖子
36 
主題
8 
精華
0 
積分
44 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2013-1-8 
最後登錄
2020-10-29 
7#
發表於 2013-1-9 17:55 | 只看該作者
回復 6# mark15jill


    謝謝高手指導，第一次看到這種寫法。 程式太複雜 看到眼花花了.......

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
8#
發表於 2013-1-9 19:38 | 只看該作者
回復 7# 小華


    這個只是把程式碼用其他字眼取代 節省程式碼的長度...

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

小華

帖子
36 
主題
8 
精華
0 
積分
44 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2013-1-8 
最後登錄
2020-10-29 
9#
發表於 2013-1-9 20:13 | 只看該作者
回復 8# mark15jill

就是因為簡化了程式碼的長度，所以看不懂程式所代表的意思

我還是個剛學習的新手，只看得懂簡單的程式碼。

謝謝高手 幫我解開一些不懂的地方，現在我在著手了解這個程式整個的意思，好進行維護修改........

對於迴圈還不是很懂，所以有時候想到頭很痛........

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
10#
發表於 2013-1-10 08:12 | 只看該作者
本帖最後由 mark15jill 於 2013-1-10 08:15 編輯

回復 9# 小華


    偶不是高手... 偶只是潛水艇    ;P
這網址可參考看看

(VBA的使用)
http://civil.njtc.edu.tw/weng/excel/lectureNote/1.6.htm
比較適合剛接觸的

加油吧

我也剛接觸沒多久= =""(不知道等等會不會被打..
像我有時候，如果真的不知道怎濃縮程式
我會
1.跑上論壇問
2.拜見酷哥大神
3.將程式碼一段段展開 再找相同地方(或有依序) 在試驗濃縮，所以有時候 我的程式一開始會超過幾百行，結束時，剩不到幾十行..     ;P




教你個訣竅
利用數學的代數方式
把相同的代入 這樣你會比較好懂

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題