代码已写出，如何使其自动运行？

excelqz

请教各位大侠，如何设置代码，使B2单元格的值是【INDEX(J:L,MATCH(B3,K:K,),1)】公式的计算结果呢？

excelqz

通过一下午的学习，我自己写了一个代码，需要点击运行后，才能执行结果，如果不添加按钮，能不能直接出结果呢？
请老师们帮我改进下， 谢谢

1. 
   
2. Sub ce()
   
3. Dim jx, jqh, i
   
4. jx = Range([f1], [f200])
   
5. jqh = Range([g1], [g200])
   
6. For i = 1 To UBound(jqh)
   
7. If Range("b3").Value = Cells(i, "g") Then
   
8.   Cells(2, "b") = Cells(i, "f")
   
9.   End If
   
10.   Next
    
11.   End Sub
    

复制代码

lsc900707

excelqz 发表于 2018-7-13 17:12
通过一下午的学习，我自己写了一个代码，需要点击运行后，才能执行结果，如果不添加按钮，能不能直接出结果 ...

用工作表事件试试。

excelqz

lsc900707 发表于 2018-7-13 19:28
用工作表事件试试。

感谢您的指点，我这个代码想和之前您帮我写的代码结合使用，我刚刚试验了使用工作表事件。但是，貌似使用工作表事件的时候，两个名称会冲突。
系统提示“发现二义性的名称：Worksheet_Change”
因为都是更改单元格的值，所以我现在不知道改怎么修改了，我下午再学习学习

zopey

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 2 Then
Dim arr, k0, dic
Set dic = CreateObject("Scripting.Dictionary")
k0 = [f1].End(4).Row - 1
arr = [f2].Resize(k0, 3)

For i = 1 To k0
   dic(arr(i, 1) & "") = i
Next

If dic.exists(Target.Value & "") Then
   [b2] = arr(dic(Target.Value & ""), 2)
   [d3] = arr(dic(Target.Value & ""), 3)
Else
   [b2] = ""
   [d3] = ""
End If
End If
End Sub

zopey

此例直接使用公式写法，更简单、有效。

excelqz

zopey 发表于 2018-7-16 14:57
此例直接使用公式写法，更简单、有效。

这个是肯定的，但是我需要用VBA来实现