[求助帖] 单元格的自动响应事件

留步道长

在表一的a列输入数值，b列就自动出现相对应的值，

留步道长

网络故障上不了表，用文字表达吧！ a列为学号，b列为姓名，c列为语文成绩，d列为数学成绩，现在在e列输入学号，要求在f列自动显示相应的姓名，代码应该怎么写。

留步道长

ptivare sub Worksheet_Change (byval target as range)  Application.ScreenUpdating = False '（不显示计算过程） Set d = CreateObject("scripting.dictionary")  ir = Range("a65536").End(xlUp).Row arr=range("a1:d"&ir) For i= 1 To ir  d(arr(i,1)) =arr (i, 2)  Next    s=range(a65536).end(3).row+1 for x= 1 to x if target.cells(x,1) then arr1=range("e2:e"&x) redim arr2(1  to ubound(arr1),1 to 1) arr2(x,1)=d(arr1(x,1)) next range("f2").resize(ubound(arr2,1))=arr2 end if Application.ScreenUpdating = True   end sub        

留步道长

自己写了一个，但是错了，谁能帮我做一个修改，不胜感激

taller

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target
   
3.     If .Column = 5 And .Count = 1 Then
   
4.         If .Value <> "" Then
   
5.             Set c = Me.Columns(1).Find(.Value, LookIn:=xlValues)
   
6.             If Not c Is Nothing Then
   
7.                 Application.EnableEvents = False
   
8.                 .Offset(0, 1).Value = c.Offset(0, 1).Value
   
9.                 Application.EnableEvents = True
   
10.             End If
    
11.         End If
    
12.     End If
    
13.     End With
    
14. End Sub
    

复制代码