變數加總

xxyyzzxyz627

不好意思了各位大大 因為是EXCEL新手所以這邊不太會

AB2的成交量是用外部資料會跳動的  請問我如何可以在AB2成交量跳動的時候用AJ2去加AB2
多謝各為大大忙幫!!!

t8899

sumif
SUMPRODUCT  這較強可以多條件

xxyyzzxyz627

t8899 發表於 16-6-28 19:18
sumif
SUMPRODUCT  這較強可以多條件

多謝大大 但我剛測試了他不是我要的謝謝你!!

Seer_et

既然是跳動的資料，意味是即時的數據
那就用VBA的Worksheet_Calculate來做更新

t8899

Seer_et 發表於 16-6-29 09:35
既然是跳動的資料，意味是即時的數據
那就用VBA的Worksheet_Calculate來做更新
...

用  Worksheet_Change 較簡單
假如 [a2]的值 改變 則   If Target.Address = Range("a2").Address Then.........

xxyyzzxyz627

t8899 發表於 16-6-29 12:45
用  Worksheet_Change 較簡單
假如 [a2]的值 改變 則   If Target.Address = Range("a2").Address Then. ...

可以請問大大全部的寫法嗎  因為我只會用錄製巨集  程式新手  所以指令很多不懂謝謝你了!!

t8899

xxyyzzxyz627 發表於 16-6-29 14:41
可以請問大大全部的寫法嗎  因為我只會用錄製巨集  程式新手  所以指令很多不懂謝謝你了!!
...

答案在ak2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("ab2").Address Then
  [ak2] = [aj2] + [ab2]
End If
End Sub'---------------------------------

整欄計算
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 28 Then 'ab2
  Target.Offset(0, 9) = Target + Target.Offset(0, 8)
End If
End Sub
上面不行就用 Worksheet_Calculate   一定可以 , 不過寫法不一樣

xxyyzzxyz627

t8899 發表於 16-6-29 14:56
答案在ak2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("ab2").Addr ...

大大你好我有疑問
答案在ak2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("ab2").Address Then
  [ak2] = [aj2] + [ab2]
End If
End Sub'--


因為本來需要的是用 AJ2+AB2 但現在變成答案在AK2 但是AJ2卻沒加總 那下次AB2數值變動的時候 我一樣是用 AJ2去加AB2
感覺好像怪怪的@@


多謝大大我後來改成  [aj2] = [aj2] + [ab2]可以用多謝大大!!!

t8899

xxyyzzxyz627 發表於 16-6-29 18:16
大大你好我有疑問
答案在ak2
Private Sub Worksheet_Change(ByVal Target As Range)

因為我不知道你要的答案要放那裡啊??
可以用就好，祝財運亨通

xxyyzzxyz627

t8899 發表於 16-6-29 14:56
答案在ak2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("ab2").Addr ...

請問大大 Worksheet_Calculate怎麼寫 我剛自己輸入數字會跳動 但是用外部資料他就不會動了.........

xxyyzzxyz627

Seer_et 發表於 16-6-29 09:35
既然是跳動的資料，意味是即時的數據
那就用VBA的Worksheet_Calculate來做更新
...

可以請問大大應該麼寫嗎  程式新手!!

t8899

xxyyzzxyz627 發表於 16-6-29 19:19
可以請問大大應該麼寫嗎  程式新手!!

語法類似下面，自已動動腦
Private Sub Worksheet_Calculate()
If [ak2] <> [aj2] Then
.....
....
end if
End Sub

Seer_et

xxyyzzxyz627 發表於 16-6-29 19:19
可以請問大大應該麼寫嗎  程式新手!!

這就可以:


Private Sub Worksheet_Calculate()
range("AJ2")=range("AB2")+range("AJ2")

End Sub