返回列表 上一主題 發帖

Application.Sum(Sheet.[g10:g20]) 裡面的Sheet 可用代碼取代嗎?

謝謝板主費心,找時間再試看看。

所以我應該寫成

Sub Ex()

Dim DQ As Integer, A As Range, Addr ...
cji3cj6xu6 發表於 2013-4-11 22:19



    MsgBox Application.Sum(A)  <== 這是跳出一個小對話框 顯示Application.Sum(A)   的結果...
可寫可不寫
寫了是妳到時候還要將那個小對話框按掉..

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

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

  少看=只看不做也枉然

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題