Board logo

標題: [發問] 如何把儲存格的乘積計算出來? [打印本頁]

作者: maiko    時間: 2013-10-10 14:01     標題: 如何把儲存格的乘積計算出來?

[attach]16285[/attach]

[attach]16286[/attach]
用陣列好像不是想要的效果,請各位幫忙解決,謝謝!
作者: p212    時間: 2013-10-11 08:58

本帖最後由 p212 於 2013-10-11 09:02 編輯

回復 1# maiko
可以提供「假設狀況」與「對應結果」的範例?謝謝!
儲存格A2至A51(1~50)是固定的?還是會繼續往下擴展?
「A欄有多少列數值」指的是1~50?(=COUNT(A2:A51)結果回應值50?)
作者: maiko    時間: 2013-10-11 20:00

回復  maiko
可以提供「假設狀況」與「對應結果」的範例?謝謝!
儲存格A2至A51(1~50)是固定的?還是會繼 ...
p212 發表於 2013-10-11 08:58



   
「A欄有多少列數值」也是不固定,可以加可以減,B1、C1、D1、E1、F1……不固定,就是先計算A欄和B1、C1、D1、E1、F1…… 之後,再計算它們的乘積計算出來。

例如:
B2=B1*A2、C2=C1*A2、D2=D1*A2……
B3=B1*A3、C3=C1*A3、D3=D1*A3……
作者: owen06    時間: 2013-10-12 17:02

回復 3# maiko
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. [B2:IV65536].Clear
  4. For X = 2 To Application.Count([A:A]) + 1
  5. For I = 2 To Application.Count([1:1]) + 1
  6. Cells(X, I).Value = Cells(X, I).Offset(1 - X, 0).Value * _
  7. Cells(X, I).Offset(0, 1 - I).Value
  8. Next
  9. Next
  10. Application.EnableEvents = True
  11. End Sub
複製代碼





歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)