帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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))

Book2.rar (11.84 KB)

樓主熱帖

初學者color

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-8-19 23:13 | 只看該作者

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

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

3^#

發表於 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

初學者color

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-8-19 23:55 | 只看該作者

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

學海無涯_不恥下問

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^#

發表於 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

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

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

6^#

發表於 2010-8-20 00:06 | 只看該作者

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

初學者color

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

7^#

發表於 2010-8-20 00:08 | 只看該作者

回復 5# luhpro

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

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

8^#

發表於 2010-8-20 00:16 | 只看該作者

回復 7# kimbal

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

初學者color

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

9^#

發表於 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 大的引用方式為宜.

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

10^#

發表於 2010-8-20 00:22 | 只看該作者

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

初學者color

TOP