標題: [發問] 請問如何判斷COLUMN A 是否空白, 之後自動將COLUMN B 及COLUMN C 乘在一起? [打印本頁]

---

作者: cdcc    時間: 2011-4-22 23:22     標題: 請問如何判斷COLUMN A 是否空白, 之後自動將COLUMN B 及COLUMN C 乘在一起?

本帖最後由 cdcc 於 2011-4-22 23:25 編輯

USD        20        1        =+B3*C3
HKD        60        7.8       
USD        2        1       
USD        1        1       
HKD        99        7.8       

只能利用Application.Sum 語法, 將column b & column c 加在一起. 但不知如何修改才能達到乘在一起?
謝謝幫忙

Sub a()
   
    Dim ae As Integer, ce As String, cf As String, he As Variant
   
   
   
    For ae = 2 To [A999].End(xlUp).Row
    ce = Sheets("sheet1").Cells(ae, 2)
    cf = Sheets("sheet1").Cells(ae, 3)
    he = Application.Sum(ce, cf)
    Cells(ae, 4) = he
    Next ae
   
    End Sub

---

作者: chin15    時間: 2011-4-23 11:05

For ae = 2 To [A999].End(xlUp).Row
   If Cells(ae, 1) <> "" Then Cells(ae, 4) = Cells(ae, 2) * Cells(ae, 3)
    Next

---

作者: hugh0620    時間: 2011-4-25 10:46

回復 1# cdcc

    樓主的意思解讀起來像是
   1. 先將每一列的b與c相乘
   2. 依幣值將b*c的值加總起來
   若是這樣的話,如下述程式碼
Sub a()
   
For ae = 1 To [A999].End(xlUp).Row
   If Cells(ae, 1) <> "" Then Cells(ae, 4) = Cells(ae, 2) * Cells(ae, 3)
    Next
    Range("A1:A5").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _
        ), Unique:=True
Do Until Range("E" & 1 + I) = ""
   Range("F" & 1 + I) = Application.SumIf(Range("A1:A5"), Range("E" & 1 + I), Range("D1:D5"))
I = I + 1
Loop
End Sub

---

作者: cdcc    時間: 2011-4-26 23:04

謝謝大家幫忙.

可能我表達不好. 所以出現唔解.

其實chin15 的答覆, 已經是我需要的要求.

謝謝

---

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