麻辣家族討論版版 » Excel程式區 » (已解決)浮動區域的作業

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-3-2 17:53 | 顯示全部帖子

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

本帖最後由 freeffly 於 2012-2-22 17:05 編輯

我想要問一下如附加檔那樣我的sum那各部份要怎麼設?
因為每各月整理出來的區域都不一樣
所以沒辦法固定區間
原本想到下面的方式
可是不可行
n 雖然是對的
可能我還缺哪各部份
請大大幫我看一下
謝謝

Sub Macro1()
'
' Macro1 Macro
' User 在 2011/3/2 錄製的巨集
'
Dim 範圍 As Range, n As Integer
Set 範圍 = Range("A" & Range("A65536").End(xlUp).Row)
i = 範圍.CurrentRegion.Rows.Count - 1
n = i * -1
Range("H" & Range("A65536").End(xlUp).Row + 1) = "=sum(R[-1]C:R[n]C)"
End Sub

問題.rar (9.9 KB)

樓主熱帖

收藏

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 2011-3-3 08:30 | 顯示全部帖子

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

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

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

3^#

發表於 2011-3-3 12:17 | 顯示全部帖子

回復 3# GBKEE

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

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2011-3-3 12:26 | 顯示全部帖子

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

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2011-3-3 17:41 | 顯示全部帖子

回復 9# Hsieh

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

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

6^#

發表於 2011-3-3 17:43 | 顯示全部帖子

回復 8# GBKEE

   了解
   那下面這各有辦法說明嗎還是只能用背的?
   sum(" & R.Offset(, i - 1).Address & ")這種用法我不會耶可以解說一下嗎

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

7^#

發表於 2011-3-4 08:28 | 顯示全部帖子

回復 12# GBKEE

謝謝
有點看懂了
主要是R的區域的移動加總
可以這樣說嗎

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

8^#

發表於 2011-3-6 18:47 | 顯示全部帖子

回復 14# GBKEE

謝謝

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

9^#

發表於 2011-3-9 17:47 | 顯示全部帖子

回復 16# FAlonso

我只要加總最後依區塊
   你的方式好像是針對"O"進行加總
   我剛看別的區塊加總好像有問題
   你的方式好像有點類似另一位大大但是又有些差異
   明天在告訴你差在哪裡

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

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

10^#

發表於 2011-3-11 12:26 | 顯示全部帖子

回復 18# FAlonso

檔案內我有說明
請看檔案吧

浮動區域問題.rar (16.74 KB)

字典兩各字還真難理解

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題