麻辣家族討論版版 - Powered by Discuz! Board

標題: 問個小問題~ [打印本頁]

作者: color790 時間: 2010-8-19 23:04 標題: 問個小問題~

本帖最後由 color790 於 2010-8-20 00:06 編輯

請問=後面要怎麼修改,我知道是錯的

想要cells(i-2 , 4)到cells( i, 4)列最大值 (之後也可能改i-10~i )
Worksheets("sheet2").Cells(j, 4) = Worksheets("sheet1").Max(cells(i-2, 4):cells(i, 4))

作者: oobird 時間: 2010-8-19 23:13

Application.Max(Range(Cells(i - 2, 4), Cells(i, 4)))

作者: color790 時間: 2010-8-19 23:38

HI~謝謝幫忙,再請問一下
Worksheets("sheet2").Cells(j, 4) = Worksheets("sheet1").Application.Max(Range(Cells(i - 2, 4), Cells(i, 4)))
是改成這樣嗎?可是這樣run,怎麼都秀0

作者: Hsieh 時間: 2010-8-19 23:55

Worksheets("sheet2").Cells(j, 4) = Application.Max(sheet1.Range(sheet1.Cells(i - 2, 4), sheet1.Cells(i, 4)))

作者: luhpro 時間: 2010-8-19 23:57

HI~謝謝幫忙,再請問一下
Worksheets("sheet2").Cells(j, 4) = Worksheets("sheet1").Application.Max(Rang ...
color790 發表於 2010-8-19 23:38

我有試過程式並不會有錯誤的結果呢...

Sub aa()
  Dim i, j
  i = 10
  j = 1
  Worksheets("sheet2").Cells(j, 4) = Worksheets("sheet1").Application.Max(Range(Cells(i - 6, 4), Cells(i, 4)))
End Sub

D1=2
D2=8
D3=6
D4=5
D5=10
D6=15
D7=8
D8=9
D9=10
D10=11

上述程式執行後的結果 Sheet2 的 D1 = 15

建議你是不是考慮把程式貼上來看看?

作者: color790 時間: 2010-8-20 00:06

已經附上了,再麻煩一下,謝謝各位

作者: kimbal 時間: 2010-8-20 00:08

回復 5# luhpro

如果當前的工作表是sheet2, 出來的就是sheet2的Range(Cells(i - 6, 4), Cells(i, 4))

作者: color790 時間: 2010-8-20 00:16

回復 7# kimbal

真的耶~為什麼???不是指定哪個 sheet了?

作者: luhpro 時間: 2010-8-20 00:21

本帖最後由 luhpro 於 2010-8-20 00:58 編輯

回復 luhpro

如果當前的工作表是sheet2, 出來的就是sheet2的Range(Cells(i - 6, 4), Cells(i, 4 ...
kimbal 發表於 2010-8-20 00:08

把 Worksheets() 改成 Sheets() 應該就可以了

Sheets("sheet2").Cells(j, 4) = Sheets("sheet1").Application.Max(Range(Cells(i - 6, 4), Cells(i, 4)))

主要是定義上的問題
Worksheets 表示正在 "工作中" 的表格

補充 :
剛剛發現上述的程式內容 :
Sheets("sheet1").Application.Max(Range(Cells(i - 6, 4), Cells(i, 4)))
確實會受限於目前作用中的 Sheet 是哪一個,
研判應該是那個 Application 敘述將作用物層級提升到 Application 以至於其後面的計算在Worksheet非為 sheet1 時,反而無法真正對應到 sheet1,
建議你還是改採 Hsieh 大的引用方式為宜.

作者: color790 時間: 2010-8-20 00:22

喔~原來如此,又學到了,謝謝~^^

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)