(已解決)浮動區域的作業 - Excel程式區

freeffly

高中生 Rank: 3 Rank: 3

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

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

11^# 跳轉到 »

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

回復 8# GBKEE

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

字典兩各字還真難理解

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

12^#

發表於 2011-3-3 19:48 | 只看該作者

本帖最後由 GBKEE 於 2011-3-3 19:53 編輯

回復 11# freeffly
這是vba的說明
expression.Offset(RowOffset, ColumnOffset)
expression    必選。該運算式傳回 Range 物件。
RowOffset    選擇性的 Variant。用列數表示的區域位移 (正值、負數或零 (0))。正值表示向下位移，負值表示向上位移。預設值為 0。
ColumnOffset    選擇性的 Variant。用欄數表示的區域位移 (整數、負數或 0 (零))。正值表示右位移，負值表示左。預設值為 0。

expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)
expression 必選。此運算式會傳回上述其中一個物件。
RowAbsolute 選擇性的 Variant。若為 True 則以絕對參照模式傳回對列的參照。預設值為 True。
ColumnAbsolute 選擇性的 Variant。若為 True 則以絕對參照模式傳回對欄的參照。預設值為 True。
ReferenceStyle 選擇性的 XlReferenceStyle 。

XlReferenceStyle 可以是這些 XlReferenceStyle 常數之一。

xlA1 預設值。使用xlA1 可傳回 A1 樣式的參照。

xlR1C1。使用 xlR1C1 可傳回 R1C1 樣式的參照。

External 選擇性的 Variant。若為 True 則傳回外部參照。若為 False 則傳回區域參照。預設值為 False。
RelativeTo 選擇性的 Variant。如果 RowAbsolute 和 ColumnAbsolute 為 False，且 ReferenceStyle 為 xlR1C1，則必須加入相對參照的起始點。本引數即為定義起始點的 Range 物件。

以下是我的說明''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
R.Offset(, 2) ->R的範圍向右移動2欄
R.Offset(1, 2) ->R的範圍向右移動2欄向下移動1列

R.Offset(, 2).Address ->R的範圍向右移動2欄的絕對位置
R.Offset(1, 2)).Address ->R的範圍向右移動2欄向下移動1列的絕對位置

TOP

freeffly

高中生 Rank: 3 Rank: 3

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

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

13^#

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

回復 12# GBKEE

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

字典兩各字還真難理解

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

14^#

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

回復 13# freeffly
對的

TOP

freeffly

高中生 Rank: 3 Rank: 3

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

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

15^#

發表於 2011-3-6 18:47 | 只看該作者

回復 14# GBKEE

謝謝

字典兩各字還真難理解

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

16^#

發表於 2011-3-9 11:23 | 只看該作者

回復 1# freeffly
如果樓主有空的話,可否試試我這個作品,有錯的話請通知我讓我改正

Sub abc()
Dim myrange As Range, downlimit As Range, uplimit As Range, rightlimit As Range, myregion As Range
Dim a, h, i
Set myrange = Range("a65536").End(xlUp)
Do
Set downlimit = myrange
Set uplimit = downlimit.End(xlUp)
Set rightlimit = downlimit.End(xlToRight)
Set myregion = Range(uplimit, rightlimit)
h = 0
i = 0
For Each a In Range(uplimit, downlimit)
If a.Offset(, 6) = "O" Then
h = h + a.Offset(, 7).Value
i = i + a.Offset(, 8).Value
End If
Next
If h <> 0 Then
downlimit.Offset(1, 6) = "小計"
downlimit.Offset(1, 7) = h
downlimit.Offset(1, 8) = i
downlimit.Offset(1, 9) = h / i
downlimit.Offset(1, 7).Interior.ColorIndex = 6
downlimit.Offset(1, 8).Interior.ColorIndex = 6
downlimit.Offset(1, 9).Interior.ColorIndex = 6
End If
Set myrange = uplimit.End(xlUp)
Loop While myrange.Address <> "$A$1"
End Sub