[發問] 此程序如何修改?

t8899

我想找A欄 倒數第一個小於 TimeValue("12:48:20")  右移一格(B欄)
再統計B1到此格的合計
或有更好的寫法??
Book2.rar (7.67 KB)

下載次數: 2

2014-4-28 07:36

Sub aaa()
Dim x As Date
x = TimeValue("12:48:20")
For k = 1 To 165 Step -1
If Cells(k, 1) < x Then
Set t = Cells(k, 1).Offset(0, 1)
t.Offset(t, t, 0, -counta(range("b26:"& t), 1).Select
Exit For
End If
Next
End Sub

GBKEE

回復 1# t8899
工作表函數  OFFSET(reference,rows,cols,height,width)  (工作表上的函數公式)
Reference    是個參照位址，它是您用以計算位移結果的起始位置。Reference 必須參照到相鄰選取範圍的一個儲存格或範圍，否則 OFFSET 函數傳回錯誤值 #VALUE!。
Rows    是用以指示左上角儲存格要垂直 (往上或往下) 移動的列數。例如，rows 值為 5，意指所傳回之參照位址之左上角儲存格位址比 reference 引數低五列。此引數可以是正數 (表示在起始參照位址下方) 或負數 (表示在起始參照位址上方)。
Cols    是用以指示左上角儲存格要水平 (往左或往右) 移動的欄數。例如，cols 值為 5，意指所傳回之參照位址之左上角儲存格位址在 reference 引數右方的第五欄上。此引數可以是正數 (表示在起始參照位址右方) 或負數 (表示在起始參照位址左方)。
Height    是設定傳回的參照位址應包括的儲存格高度 (儲存格範圍的列數) 的數值。此引數必須是正數。
Width    是設定傳回的參照位址應包括的儲存格寬度 (儲存格範圍的欄數) 的數值。此引數必須是正數。
****************************************************************************
VBA Offset 屬性  (VBA 上的程式碼)
expression.Offset(RowOffset, ColumnOffset)
expression     必選。該運算式傳回 Range 物件。
RowOffset      選擇性的 Variant 資料類型。用列數表示的區域位移 (正值、負數或零 (0))。正值表示向下位移，負值表示向上位移。預設值為 0。
ColumnOffset      選擇性的 Variant 資料類型。用欄數表示的區域位移 (整數、負數或 0 (零))。正值表示右位移，負值表示左。預設值為 0。

t8899

回復  t8899
工作表函數  OFFSET(reference,rows,cols,height,width)  (工作表上的函數公式)
Reference ...
GBKEE 發表於 2014-4-28 20:24

我把工作表上的函數公式,跟VBA 混在一起了!:(