怎么根据一列金额判断填写另一列金额

透明世界1987

根据一列金额判断另列金额.zip (490.89 KB, 下载次数: 5)

2022-12-2 12:45 上传

点击文件名下载附件

leirongqin

请看附件。。

tennicse

公式可以么？

R8=IF(OR(K8="御墅",K8="泰禾"),G8,IF(AND(K8="赛奥",OR(H8="奥德普",H8="西泰",H8="立诺",H8="莱升",H8="欧仑凯",H8="和昌")),G8*1.1,G8*1.2))

ssfx1982

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. '本程序只适用于G列单个单元格数值修改后自动触发填充R列对应行的数据。
   
3. '若数据改动是通过批量复制粘贴等方法实现，则不会触发本程序。
   
4. '另请再次检查下方代码中客户和供应商的名字是否正确。
   
5.     If Target.Count > 1 Then Exit Sub
   
6.     If Target.Column = 7 Then 'G列
   
7.         n& = Target.Row
   
8.         jr = Target.Value
   
9.         ctm = Trim$(Cells(n, "K")) '客户名
   
10.         spl = Trim$(Cells(n, "H")) '供方名
    
11.         Select Case ctm '客户判断
    
12.         Case "御墅", "泰禾"
    
13.             Cells(n, "R") = Format(Round(jr, 2), "0.00")
    
14.         Case "赛奥"
    
15.             Select Case spl '供应商判断
    
16.             Case "奥德普", "西泰", "立诺", "莱升", "欧仑凯", "和昌"
    
17.                 Cells(n, "R") = Format(Round(jr * 1.1, 2), "0.00")
    
18.             Case Else
    
19.                 Cells(n, "R") = Format(Round(jr * 1.02, 2), "0.00")
    
20.             End Select
    
21.         End Select
    
22.     End If
    
23. End Sub

复制代码

ykcbf1100

似曾相识的数据。