右击要填金额的表单(就是输入张三和金额的表单),查看代码,将以下代码复制进去即可实现
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Row = 3 And Target.Column = 3 Then
If Cells(3, 2) = "" Then
MsgBox "B3没有填名字!"
Exit Sub
End If
mz = Cells(3, 2)
a = Sheets("名字表").[a65536].End(xlUp).Row '你要操作的表格,表明自己改
ar = Sheets("名字表").Range("a1:a" & a)
For i = 2 To a
If ar(i, 1) = mz Then
k = i
i = a
End If
Next
b = Sheets("名字表").Cells(k, 255).End(xlToLeft).Column
Sheets("名字表").Cells(k, b + 1) = Target.Value
End If
End If
End Sub
追问你好,我在指定宏时找不到这个宏
追答不是录制宏 你直接右击sheet1然后点击查看代码。直接复制进去就好
我说sheet1说的是你要操作的表。并不是说真的sheet1表
这个复制完后 你在c3输入金额它就会自动把金额录到你要的表名字后面。不需要任何按钮之类的东西。如果你要点击一下再过去请追问
本回答被网友采纳