[已解决]在线请求解答代码含义

长颈鹿

下面是F列的，g、h....等列的代码如何写，谢谢

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim arr, Diction, i!, num
    Set Diction = CreateObject("scripting.dictionary")
    arr = Sheets("表2").Cells(4, 6).Resize(7, 2)
    For i = 1 To UBound(arr)
        Diction(arr(i, 1)) = arr(i, 2)
        
    Next i
    If InStr(1, Target.Address, "F") > 0 Then
        num = Target
        Application.EnableEvents = False
        If Diction.exists(num) Then
            Target = Diction(num)
        Else
            Target = "无此名称"
        End If
        Application.EnableEvents = True
    End If
   
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-8 22:38

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim arr, Diction, i!, num
   
3.     '字典对象
   
4.     Set Diction = CreateObject("scripting.dictionary")
   
5. 
   
6.     'F4单元格开始的7行2列读入数组
   
7.     arr = Sheets("表2").Cells(4, 6).Resize(7, 2)
   
8.     For i = 1 To UBound(arr)
   
9.         '数据读入字典
   
10.         Diction(arr(i, 1)) = arr(i, 2)
    
11.     Next i
    
12. 
    
13.     '判断地址中是否包含F1
    
14.     '这时有BUG，当是FA-FZ列全，就中招了
    
15.     If InStr(1, Target.Address, "F") > 0 Then
    
16.         num = Target
    
17.         '关闭事件响应，避免事件死循环
    
18.         Application.EnableEvents = False
    
19.         '在字典中查找内容对应的值（居住性质）
    
20.         If Diction.exists(num) Then
    
21.             '另外这里应该也错了，Target.Offset(, 1) = Diction(num)
    
22.             Target = Diction(num)
    
23.         Else
    
24.             '单元格内写入无此名称
    
25.             Target = "无此名称"
    
26.         End If
    
27.         '打开事件响应
    
28.         Application.EnableEvents = True
    
29.     End If
    
30. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

你这用函数VLOOKUP就很好嘛，用事件还麻烦了。

长颈鹿

我在f4中输入1回车就出相应的“购房自住”，这是我要的要求，用函数必须加辅助列才能实现，但是，我对vba不大懂，至于后面的几列如何实现？谢谢

hwc2ycy

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim arr, Diction, i!, num
   
3.     '字典对象
   
4.     Set Diction = CreateObject("scripting.dictionary")
   
5. 
   
6.     'F4单元格开始的7行2列读入数组
   
7.     arr = Sheets("表2").Cells(4, 6).Resize(7, 2)
   
8.     For i = 1 To UBound(arr)
   
9.         '数据读入字典
   
10.         Diction(arr(i, 1)) = arr(i, 2)
    
11.     Next i
    
12. 
    
13.     '判断地址中是否包含F1
    
14.     '这时有BUG，当是FA-FZ列全，就中招了
    
15.     If InStr(1, Target.Address, "F") > 0 Then
    
16.         num = Target
    
17.         '关闭事件响应，避免事件死循环
    
18.         Application.EnableEvents = False
    
19.         '在字典中查找内容对应的值（居住性质）
    
20.         If Diction.exists(num) Then
    
21.             '另外这里应该也错了，Target.Offset(, 1) = Diction(num)
    
22.             Target = Diction(num)
    
23.         Else
    
24.             '单元格内写入无此名称
    
25.             Target = "无此名称"
    
26.         End If
    
27.         '打开事件响应
    
28.         Application.EnableEvents = True
    
29.     End If
    
30. End Sub

复制代码

hwc2ycy

代码帮你注释了，最好是用VLOOKUP吧。事件响应不靠谱。
顶多你就建立对应数据的名称就成了。

长颈鹿

谢谢，我看看情况再做决定