关于添加购买的vba编程的问题 [英] Question about vba programming for adding up purchases

问题描述

嘿伙计们，&


我对vba很新，事实上我昨天才听说过，我只想用它来为我做一系列的计算。



我的excel电子表格中有三列，A列有字母B或S，下一列B，包含大量项目的单元格，列C具有每个项目的相应数量该特定行的成本。



我要做的是编写代码，按照电子表格下载数量*价格，然后给出负数。 B位于该特定行的A列中，如果S位于该特定行的列中，则为正值。然后
最后将这些计算出的数字加起来并给出结果£在消息框中。



这是可能的还是太复杂了？如果有人可以帮助我真的很感激。

推荐答案

我觉得提出公式更容易。但是如果你想要消息框最后，你可以试试宏。

I feel coming up with formulas is easier.But if you want the message box in the end then you can try macros.

如果您正在寻找以下内容，请将以下公式放在D栏中 

If the below is what you are looking for then put the following formula in column D  

= IF（A2 ="B"，（B2 * C2 *（ - 1）），IF（A2 ="S"，B2 * C2，"""）

=IF(A2="B",(B2*C2*(-1)),IF(A2="S",B2*C2,""))

而对于总计只使用和函数。希望他的帮助......

And for the grand total just use a sum function. Hope his helps...

 

 

 

如果您需要宏，那么

Sub sum_it_all（）

Dim Row As Long

    Row = 2

   范围（"F2"）。值= 0

   而Range（"A"& Row）.Value<> ""

       如果Range（"A"& Row）.Value =" B"然后是
           范围（"D"和"行".Value =范围（"B"和"行"）。值*范围（"C"&行）。值* -1

  ;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP; GoTo Sum_It

       另外，范围（"A"和"行"）.Value ="S"。然后是
           范围（"D"和"行".Value =范围（"B"和"行"）。值*范围（"C"和"行"）。值¥b $ b   &NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP; GoTo Sum_It

       否则为
           范围（"D"和行）.Value =" NA"

       结束如果

Sum_It：

       范围（"F2"）。值=范围（"F2"）。值+范围（"D"&行）。值

      &NBSP;&NBSP; Row = Row + 1

    Wend b
    MsgBox"£ " &安培;范围（"F2"）。值

结束子

Sub sum_it_all()
Dim Row As Long
    Row = 2
    Range("F2").Value = 0
    While Range("A" & Row).Value <> ""
        If Range("A" & Row).Value = "B" Then
            Range("D" & Row).Value = Range("B" & Row).Value * Range("C" & Row).Value * -1
            GoTo Sum_It
        ElseIf Range("A" & Row).Value = "S" Then
            Range("D" & Row).Value = Range("B" & Row).Value * Range("C" & Row).Value
            GoTo Sum_It
        Else
            Range("D" & Row).Value = "NA"
        End If
Sum_It:
        Range("F2").Value = Range("F2").Value + Range("D" & Row).Value
        Row = Row + 1
    Wend
    MsgBox "£ " & Range("F2").Value
End Sub

这篇关于关于添加购买的vba编程的问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！