[發問] (已解決)浮動區域的作業

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

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

2^#

發表於 2011-3-2 18:22 | 只看該作者

回復 1# freeffly

看起來應該是對I/O欄位做分組小計

學海無涯_不恥下問

GBKEE

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-3-2 20:38 | 只看該作者

回復 1# freeffly

Sub EX()
Dim R As Range, i As Integer
For Each R In Sheet3.Range("G5:G" & Rows.Count).SpecialCells(xlCellTypeConstants).Areas
R.Cells(R.Count + 1, 1) = "小計"
For i = 2 To 4
R.Cells(R.Count + 1, i) = "=sum(" & R.Offset(, i - 1).Address & ")"
Next
Next
End Sub

複製代碼

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2011-3-3 08:30 | 只看該作者

我只想對下面那塊區域做小計的動作
不過這各方法也是我想知道的
謝謝

如果只想對最下面的區域做小計動作
要做哪一各修改呢?

字典兩各字還真難理解

oobird

　頭銜: 街友一族

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

論壇貢獻勳章

5^#

發表於 2011-3-3 08:56 | 只看該作者

mrow = [g:g].Find("o", , , 1).Row
[g65536].End(3)(2).Resize(, 4) = Array("小計", "=sum(r" & mrow & "c:r[-1]c)", "=sum(r" & mrow & "c:r[-1]c)", "=rc[-2]/rc[-1]")

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

6^#

發表於 2011-3-3 12:17 | 只看該作者

回復 3# GBKEE

Range("G5:G" & Rows.Count) 可以用Columns("G:G")取代嗎這兩各方式有哪裡不同嗎?
sum(" & R.Offset(, i - 1).Address & ")這種用法我不會耶可以解說一下嗎

字典兩各字還真難理解

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

7^#

發表於 2011-3-3 12:26 | 只看該作者

回復 5# oobird
我的資料基本上是計算"o"
但是第一塊區域也有可能含有"o"的部份(不列入計算的部份)
所以我原本想的方式是從第二塊區域去計算並且計算第二塊區域的列數
不過還是從各位大大的方式看到自己沒用過的方式
可以問一下End(3)(2).Resize(, 4) 這各是什麼意思嗎?

字典兩各字還真難理解

GBKEE

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-3-3 14:33 | 只看該作者

本帖最後由 GBKEE 於 2011-3-3 14:39 編輯

回復 GBKEE
Range("G5:G" & Rows.Count) 可以用Columns("G:G")取代嗎這兩各方式有哪裡不同嗎?
...
freeffly 發表於 2011/3/3 12:17

是可以用Columns("G:G")來取代的,但如g1:g3有數字會失掉準確性
End(3)(2).Resize(, 4)=>.End(xlUp).Cells(2, 1).Resize(1, 4)

Hsieh

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

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

9^#

發表於 2011-3-3 14:42 | 只看該作者

區塊既以空白列區隔
r = [A65536].End(xlUp).End(xlUp).Row
[A65536].End(xlUp).Offset(1, 6).Resize(, 4) = Array("小計", "=SUM(R" & r & "C:R[-1]C)", "=SUM(R" & r & "C:R[-1]C)", "=RC[-2]/RC[-1]")

學海無涯_不恥下問

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

10^#

發表於 2011-3-3 17:41 | 只看該作者

回復 9# Hsieh

是的我要計算的區塊已經用空白列區隔
   所以是大大的簡單方式
   不過再這裡看到很多不一樣的處理方式
   真是還有的學
   謝謝喔

字典兩各字還真難理解