返回列表 上一主題 發帖

未知資料筆數計算

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-8 16:14 | 只看該作者

未知資料筆數計算

Sub Macro1()
    Range("N7:N20000") = "=AVERAGE(E7:M7)"
    Range("O7:O20000") = "=MAX(E7:M7)"
    Range("P7:P20000") = "=MIN(E7:M7)"
    Range("N7:P20000") = Range("N7:P20000").Value
End Sub
因為資料筆數不一定
目前都用上列程式執行完後.再手動刪除沒有計算值的資料
請問有沒有不用手動.其他更簡單的寫法去執行
收藏 分享
boyao

chen_cook

帖子
81 
主題
2 
精華
0 
積分
95 
點名
320  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-29 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
2#
發表於 2012-8-9 04:49 | 只看該作者
回復 1# boyao


    N20000....等..換成[ n65535].end(xlup).row....變動尾筆!!
    相對的用 ......& "n" & [n65535].end(xlup).row去帶入....

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#
發表於 2012-8-9 08:07 | 只看該作者
回復 1# boyao
試試看
  1. Option Explicit
  2. Sub Macro1()
  3.     Dim Rng(1 To 2) As Range
  4.     Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
  5.     Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
  6.     Rng(2).Columns(1) = Application.Average(Rng(1))
  7.     Rng(2).Columns(2) = Application.Max(Rng(1))
  8.     Rng(2).Columns(3) = Application.Min(Rng(1))
  9. End Sub
複製代碼

TOP

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
4#
發表於 2012-8-9 11:14 | 只看該作者
回復 3# GBKEE


GBKEE大大
試出來的結果會計算所有資料的 最大.最小.平均
需要再改哪邊的參數?
boyao

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-8-13 10:05 | 只看該作者
回復 4# boyao
試出來的結果會計算所有資料的 最大.最小.平均 需要再改哪邊的參數?
    領悟不出說法涵義,請再說明一下

TOP

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
6#
發表於 2012-8-14 11:15 | 只看該作者
回復 5# GBKEE


    GBKEE大大
我想求的是同一列資料的最大值.最小值跟平均值
但依你提供的資料去套用
計算出來是所有資料統計出來的 最大值.最小值跟平均值.而非單列(每一列的計算結果都是相同答案)

之前習慣用錄製後再修改.跟用寫的語法差好多
想請教有沒有其他的寫法可以比較簡單的執行
謝謝!
boyao

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2012-8-14 11:42 | 只看該作者
回復 6# boyao
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, i As Integer
  4.     Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
  5.     Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
  6.     For i = 1 To Rng(2).Rows.Count    '.Count : Rng(2).Rows的總數
  7.          'Rows 物件: 範圍的列
  8.          'Columns 物件: 範圍的欄
  9.          ' Rng(1).Rows(i)的第i列
  10.          ' Rng(2).Rows(i)的第i列
  11.         Rng(2).Rows(i).Cells(1) = Application.Average(Rng(1).Rows(i))
  12.         Rng(2).Rows(i).Cells(2) = Application.Max(Rng(1).Rows(i))
  13.         Rng(2).Rows(i).Cells(3) = Application.Min(Rng(1).Rows(i))
  14.     Next
  15. End Sub
複製代碼

TOP

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
8#
發表於 2012-8-15 09:22 | 只看該作者
回復 7# GBKEE


    OK 可以了
謝謝GBKEE大大
boyao

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題