VBA计算求和代码

760636412 · 发表于 2024-1-12 18:56

需求1：（数量*工价）+(数量*电镀)＝总金额（电镀/拉彩/激光）
需求2： (数量*工价)+(产品重量*克工价)=总金额（克工价）

黄色单元格（电镀）可自由选择的,当选(/电镀/拉彩/激光/）就按需求1的求和
只有选择唯一/克工价/时才按需求2求和

每次改函数，改来改去好麻烦

求助可以转换为VBA单元格触动计算吗？谢谢，详细如附件：

计算.zip (155.77 KB, 下载次数: 4)

感谢求助哪位大神，老师帮忙下指点……

760636412 · 发表于 2024-1-12 20:57

自已顶一个，坐等大神指导……

dambcer · 发表于 2024-1-12 21:20

760636412 发表于 2024-1-12 20:57
自已顶一个，坐等大神指导……

坐等雷锋

。。。。。。。。。。。。。。

ykcbf1100 · 发表于 2024-1-12 21:25

附件供参考。。。

760636412 · 发表于 2024-1-14 12:05

dambcer 发表于 2024-1-12 21:20
坐等雷锋。。。。。。。。。。。。。。

感谢四楼的帮助，学艺不精，还在VBA门口，未踏进门,略懂点，又不太懂……再次感谢四楼，鲜花已奉献上，我也作了小小修改，改成工作表触动单元格运行……他是雷锋，你落进下石，你是大神，不能和我这种才刚学不久的小白计较，你看看就好……

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 8 And Target.Column = 7 Or Target.Column = 8 Then
With Sheets("送货单")
      Range("I8:I18").Value = 0
      arr = Range("A7:I18").Value
      For i = 2 To UBound(arr)
         If arr(i, 6) <> Empty Then
            If InStr(arr(1, 8), "克工价") Then
                  arr(i, 9) = arr(i, 6) * arr(i, 7) + arr(i, 5) * arr(i, 8)
            Else
                  arr(i, 9) = arr(i, 6) * (arr(i, 7) + arr(i, 8))
            End If
         End If
      Next
      Range("a7:i18").Value = arr
End With
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助] VBA计算求和代码

评分