[已解决]这段VBA的涵义

rewfs521

请教这个区的大神，刚发到函数区了！

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 2 And Target.Column = 1 And Target <> "" Then
    Range("H2").Formula = "=LOOKUP(A2,Sheet2!H2:H8,Sheet2!I2:I8)"
    End If
End Sub

这段代码的意义是什么？那些值能够修改并运用到其他地方！  为什么不是SUB开头的呢？ 为什么我运用到其他地方不行呢？  是不是修改红色的部分？

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-5-6 19:34

回复 rewfs521 的帖子

Private Sub Worksheet_Change(ByVal Target As Range)
’工作表变化的事件  把Target赋予单元格变量
    If Target.Row = 2 And Target.Column = 1 And Target <> "" Then
’如果Target   行号为2，列号为1，并且不为空时
    Range("H2").Formula = "=LOOKUP(A2,Sheet2!H2:H8,Sheet2!I2:I8)"
’给H2赋予公式："=LOOKUP(A2,Sheet2!H2:H8,Sheet2!I2:I8)"
    End If
End Sub

这个程序必须放在工作表里面，不能放在模块里面。

跳转到最佳答案楼层

蓝桥玄霜

这是工作表变化事件，代码要放在工作表的代码区里面。
也是有Sub的，只不过前面还有了一个定语：Private
代码的意思是：当A2不为空而且它的值发生变化时，就赋予单元格H2一个公式。
建议从VBA入门书开始学习。

rewfs521

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 5 And Target.Column = 5 And Target <> "" Then     当E5单元格发生变化时
    Range("K5").Formula = "=LOOKUP(F5,自然人其他!AE:AE,自然人其他!N:N)"   赋予K5单元格后面的公式
    End If
End Sub

我更改了下，为什么不能正确呢？

mqr66

就是建议楼主从vba入门学起。

rewfs521

但是工作需要呀！   

sunjing-zxl

回复 rewfs521 的帖子

Private Sub Worksheet_Change(ByVal Target As Range)
’工作表变化的事件  把Target赋予单元格变量
    If Target.Row = 2 And Target.Column = 1 And Target <> "" Then
’如果Target   行号为2，列号为1，并且不为空时
    Range("H2").Formula = "=LOOKUP(A2,Sheet2!H2:H8,Sheet2!I2:I8)"
’给H2赋予公式："=LOOKUP(A2,Sheet2!H2:H8,Sheet2!I2:I8)"
    End If
End Sub

这个程序必须放在工作表里面，不能放在模块里面。

sunjing-zxl

回复 rewfs521 的帖子

本帖最后由 rewfs521 于 2011-5-6 19:26 编辑 Private Sub Worksheet_Change(ByVal Target As Range)     If Target.Row = 5 And Target.Column = 5 And Target <> "" Then     当E5单元格发生变化时     Range("K5").Formula = "=LOOKUP(F5,自然人其他!AE:AE,自然人其他!N:N)"   赋予K5单元格后面的公式     End If End Sub 我更改了下，为什么不能正确呢？

把  Range("K5").Formula = "=LOOKUP(F5,自然人其他!AE:AE,自然人其他!N:N)"   赋予K5单元格后面的公式
改成  
Range("K5").Formula = "=LOOKUP(E5,自然人其他!AE:AE,自然人其他!N:N)"   

rewfs521

回复 sunjing-zxl 的帖子

我就是一瞎子，感谢！

yizhbi

学习了，谢谢