返回列表 上一主題 發帖

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

cdcc

帖子
10 
主題
3 
精華
0 
積分
18 
點名
0  
作業系統
WINDOWS XP 
軟體版本
SERVICE PACK 1 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2011-4-22 
最後登錄
2011-5-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享

cdcc

帖子
10 
主題
3 
精華
0 
積分
18 
點名
0  
作業系統
WINDOWS XP 
軟體版本
SERVICE PACK 1 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2011-4-22 
最後登錄
2011-5-15 
2#
發表於 2011-4-26 23:04 | 顯示全部帖子
謝謝大家幫忙.

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

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

謝謝

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題