Question

我在Excel中有3列。
我想执行以下方案。
我想要一个宏按钮，它可以根据第一列的查找值为第3列赋值喜欢：

当我点击按钮时，它应该询问“价值（客户编号）”
输入值后，应询问“价值（金额）”
输入值后，应在第一列中找到“值（客户编号）”并在第3列中相应地指定“值（金额）”，此操作会针对多个值重复执行。

我的数据：

Customer No. |  Customer Name |  Amount
_____________|________________|__________
      1      |  Ramesh        |
      2      |  Kumar         |
      3      |  Dinesh        |
      4      |  Praveen       |
      5      |  Anand         |

我在按钮上使用以下代码来插入数据，但它无法读取客户编号，只读取行号

Sub Rectangle2()  
    iText = InputBox("Enter Amount")  
    iRow = InputBox("Enter Number")  

    Cells(iRow, 3).Value = iText  
End Sub

Answer 1

Sub Rectangle2()  
    Dim f As Range

    iText = InputBox("Enter Amount")  
    iRow = InputBox("Enter Number") 

    Set f = Activesheet.Columns(1).find(What:=iRow, LookIn:=xlValues, LookAt:=xlWhole) 
    If Not f Is Nothing then
        f.offset(0, 2).Value = iText
    End If  
End Sub

需要Excel宏代码来满足我的要求

1 个答案: