求助添加代码功能，谢谢！！！

dzsrmyh

求助修改代码或重写代码，要求见附件？

G2单元格对应H2单元格为无税

于箱长

看蒙圈了

dzsrmyh

于箱长 发表于 2023-3-23 18:52
看蒙圈了

假如B2=A2+A2*6%，那么我只要在B2单元格输入4（这里的4就是H列的6%所对应的G列的4）就能达到公式的效果

gwjkkkkk

请参考附件。。。

准提部林

Dim K%

Private Sub Worksheet_Change(ByVal Target As Range)
Dim N%
With Target
     If .Column <> 2 Or .Row < 2 Or .Count > 1 Then Exit Sub
     N = .Value
     If N > 0 And N < 7 And K = 0 Then
        K = 1
        .Value = Round(.Cells(1, 0) * (1 + Val(Range("h" & N + 1))), 2)
        K = 0
     End If
End With
End Sub

准提部林

審核中..上图

dzsrmyh

gwjkkkkk 发表于 2023-3-23 19:11
请参考附件。。。

老师您好，代码非常好久，实际工作表的金额在F列，含税金额在K列，我试着修改，可没有修改成功？应该修改哪几处呢？谢谢

dzsrmyh

准提部林 发表于 2023-3-23 19:14
Dim K%

Private Sub Worksheet_Change(ByVal Target As Range)

老师您好，代码非常好久，实际工作表的金额在F列，含税金额在K列，我试着修改，可没有修改成功？应该修改哪几处呢？谢谢

gwjkkkkk

dzsrmyh 发表于 2023-3-23 19:45
老师您好，代码非常好久，实际工作表的金额在F列，含税金额在K列，我试着修改，可没有修改成功？应该修改 ...

请参考。。。

准提部林

dzsrmyh 发表于 2023-3-23 19:48
老师您好，代码非常好久，实际工作表的金额在F列，含税金额在K列，我试着修改，可没有修改成功？应该修改 ...

Dim U%

Private Sub Worksheet_Change(ByVal Target As Range)
Dim N%
With Target
     If .Column <> [k1].Column Or .Row < 2 Or .Count > 1 Then Exit Sub  'k列輸入
     N = .Value
     If N > 0 And N < 7 And U = 0 Then
        U = 1
        .Value = Round(Cells(.Row, "f") * (1 + Val(Cells(N + 1, "h"))), 2)  'f列金額*(1+h列稅率)
        U = 0
     End If
End With
End Sub