[發問] 如何把儲存格的乘積計算出來?

maiko

下載 (34.66 KB)

2013-10-10 13:59

Product.rar (8.86 KB)

下載次數: 12

2013-10-10 14:00

用陣列好像不是想要的效果，請各位幫忙解決，謝謝!

p212

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

maiko

回復  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

回復 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

複製代碼