Excel vba 当某个单元格改变时执行某个过程

小弟才了解到vba有个问题请教
Private Sub Worksheet_Activate()UserForm2.HideUserForm1.ShowWith Worksheets("客户产品及价格").Range("c1:dd1000")Set C = .Find(Range("C3").Value, LookIn:=xlValues)If Not C Is Nothing Then Range("H5") = "=IFERROR(VLOOKUP(C5,客户产品及价格!$A$2:$VJ$65536," & C.Column & ",FALSE),"""")"End IfEnd WithRange("H5").SelectSelection.AutoFill Destination:=Range("H5:H" & [A65536].End(xlUp).Row - 1)End Sub

意思就是当选择这个表时使H5这个单元格使用vlookup公式在另外一个表中查找产品对应的单价。
但是有个问题就是一上来的时候客户名称是空的，所以找不到对应的客户是在哪一行，而这段代码又必须要切换一下表才能执行，单价才能自动生成。
怎么能让
With Worksheets("客户产品及价格").Range("c1:dd1000")Set C = .Find(Range("C3").Value, LookIn:=xlValues)If Not C Is Nothing Then Range("H5") = "=IFERROR(VLOOKUP(C5,客户产品及价格!$A$2:$VJ$65536," & C.Column & ",FALSE),"""")"End IfEnd WithRange("H5").SelectSelection.AutoFill Destination:=Range("H5:H" & [A65536].End(xlUp).Row - 1)这一段在客户名称后面的那个地方C3发生改变时就执行一次?

举报该问题

其他回答

第1个回答推荐于2017-12-16

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 5 And Target.Column = 3 Then
'在这里写代码，整个代码要放在sheet 模块中 ,放在sheet1 ，sheet1生效，酱紫的
End If
End Sub

本回答被提问者采纳

第2个回答 2014-06-04

把代码放在Sheet客户产品及价格的
Worksheet_Change(…………)事件中
并判断Target的column=3和row>4是否满足，满足就运行

相似回答

在EXCEL VBA中当单元格字体颜色改变时,自动触发一个事件。这个事件,如 ...答：在 Excel VBA 中，您可以使用 Worksheet_SelectionChange 事件来监测单元格字体颜色的改变。以下是示例代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim selCell As Range For Each selCell In Target If selCell.Font.ColorIndex <> xlAutomatic Then '此处是您自定义的代码 MsgBo...

Excel vba中怎样填写数值改变单元格后触发事件答：If Target.Address = "$B$1" And [A1].Value > [B1].Value Then Target.Interior.ColorIndex = 3Else Target.Interior.ColorIndex = xlNone End If End Sub 注意一般加个IF来判断当前单元格量是否是指定的单元格，就是执行代码。

在excel中,一个单元格数据变化,触发一个事件,请问这个事件过程开头怎 ...答：Private Sub Worksheet_Change(ByVal Target As Range)End Sub VBA编辑器里有选择事件的，可以找一下。如果还要调用其他过程则用 “CALL 过程名”

excel vba 点击某单元格,让程序执行某个事件答：点击工作表标签查看代码,将一下代码复制进入光标所在区域内:Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 And Target.Count = 1 Then MsgBox "你选中了:" & Target.Text End If End Sub 点击A列的单元格,且选中的是1个单元格时触发事件 ...

excel中对一个指定单元格的修改历史和修改时间在另一单元格进行记录...答：同步更改记录：在b10 的编辑区输入“=”号然后鼠标点击b2，看到b2北闪动的圈围住了就可以按下回车，接下来无论b2怎么改，b10就跟着变修改时间不懂，没研究

Excel vba中怎样填写数值改变单元格后触发事件答：右击你要判断的工作表，查看代码。将下面几段代码复制进去当你改变单元格就会弹出提示数值被改变 Dim a Private Sub Worksheet_SelectionChange(ByVal Target As Range)a = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range)If a <> Target.Value Then MsgBox "单元格数值...

EXCEL VBA中单元格发生改变触发事件,怎么指定某个单元格?答：一般加个IF来判断当前单元格量是否是指定的单元格，是就执行代码。Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" Then [a2] = [a2] + 1 End If End Sub 微软的OFFICE是最为流行的办公软件，主要有OFFICE2010和OFFICE2007两个版本。Office 2000是第三代办公...

Excel VBA求助,当range中的任意一个值有变化时即启动宏?答：我建议你要调整一下你的程序逻辑分析一下判断任意单元格变动一定是用到 change事件也就是说即使在相关的表中输入一个字符都会引发程序的执行你的四个条件通过编程是有可能实现的，但是代码量会较大，程序执行需要时间可以设想，程序写完后，只要用一下表，就会执行半天，反应很慢，用户无法忍受...

请问excel vba 某个单元格区域变动,如何自动运行宏?答：选择某个单元格区域，右键单击工作表标签-查看代码- 在1、处选择WorkSheet，在2、处选择SelectionChange，在下面程序框中输入你要运行的内容即可。

大家正在搜