[已解决]请老师解释一下这个代码什么意思,谢谢

雨雪霏

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address <> "$A$1" Then Exit Sub
   
3.     Dim c As Range
   
4.     Set c = Sheets("Sheet2").Rows(1).Find(Target.Value, , , xlWhole)
   
5.     If Not c Is Nothing Then Target.Offset(1).Value = c.Offset(1) Else Target.Offset(1).Value = ""
   
6. End Sub

复制代码

谢谢老师！

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-4-17 23:25

Private Sub Worksheet_Change(ByVal Target As Range)
'当表格内容发生变化时
    If Target.Address <> "$A$1" Then Exit Sub
'若变化的不是A1单元格，那么就退出
    Dim c As Range
    Set c = Sheets("Sheet2").Rows(1).Find(Target.Value, , , xlWhole)
'从表2的第一行里查找A1单元格里的值
    If Not c Is Nothing Then Target.Offset(1).Value = c.Offset(1) Else Target.Offset(1).Value = ""
'若能找到，则A1下一行的值等于所找到的单元格的下一行的值，否则就为空
End Sub

如上所述。。。

跳转到最佳答案楼层

放浪形骸

Private Sub Worksheet_Change(ByVal Target As Range)
'当表格内容发生变化时
    If Target.Address <> "$A$1" Then Exit Sub
'若变化的不是A1单元格，那么就退出
    Dim c As Range
    Set c = Sheets("Sheet2").Rows(1).Find(Target.Value, , , xlWhole)
'从表2的第一行里查找A1单元格里的值
    If Not c Is Nothing Then Target.Offset(1).Value = c.Offset(1) Else Target.Offset(1).Value = ""
'若能找到，则A1下一行的值等于所找到的单元格的下一行的值，否则就为空
End Sub

如上所述。。。

放浪形骸

这段代码有点像LOOKUP函数的意思诶

wbzxz

回复 放浪形骸 的帖子

你别说，还真像，呵呵，有意思。

sunjing-zxl

这个代码有点意思，收藏起来，说不定还用得着