[已解决]代码到底出什么问题了？还是缺少什么的？请高手帮忙看看并修改。谢谢了。

lbhlbh

当点击G9时出现下拉框（数据有效时是根据BF表形成的，已经处理好。）然后选择输入，当输入1时，自动在H单元格填列BF表A4单元对应的D4单元格的值“林可木”，以此类推。在I9单元输入时J9的值也会自动填列BF表相关的数据。也是以此类推。具体详见附件。谢谢老师了。还有个问题是，我办公室有两台电脑，配置和系统是一样的，其中一台运行这个工作表时，很正常（上面的功能都能实现），另一台就不知道什么原因，就只能运行一次，再次运行时（上面的要求），就是不反应。是不是代码有什么问题了，请老师帮忙看看，谢谢了。

最佳答案

月排行榜 / 总排行榜

grf1973

2015-12-21 15:26

搞复杂了。。。。整个代码可以大大简化

1. Private Sub Worksheet_Change(ByVal t As Range)
   
2.     Dim i
   
3.     If t.Address <> "$G$9" And t.Address <> "$I$9" Then Exit Sub
   
4.     With Sheet3
   
5.         Application.EnableEvents = False
   
6.         For i = 1 To .[a65536].End(xlUp).Row
   
7.             If .Cells(i, 1) = t.Value Then t.Offset(, 1) = t & "页(" & .Cells(i, "D") & ")": Exit For
   
8.         Next
   
9.         Application.EnableEvents = True
   
10.     End With
    
11. End Sub

复制代码

跳转到最佳答案楼层

zjdh

工作簿1.rar (34.16 KB, 下载次数: 7)

2015-12-21 13:49 上传

点击文件名下载附件

lbhlbh

zjdh 发表于 2015-12-21 13:49

谢谢老师了，真的不错。高！（I,A）和（I,"A"）就是不同，你太有才和细心了。谢谢了。不过还有个问题问问，不知道也能不能帮忙。谢谢了。
  R = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row
    If t.Address = "$G$9" Then
        A = Sheet3.Range("a4" & ":d" & R).Find(t.Value).Column
        Application.EnableEvents = False
        For i = 1 To Sheet3.Cells(65536, A).End(xlUp).Row
            If Sheet3.Cells(i, "A") = t.Value Then
                Cells(9 + N, "H") = Sheet3.Cells(i, "a") & "页(" & Sheet3.Cells(i, "D") & ")": N = N + 1
             End If
            Application.EnableEvents = True
        Next
    End If
    If t.Address = "$I$9" Then
        A = Sheet3.Range("a4" & ":d" & R).Find(t.Value).Column
        Application.EnableEvents = False
        For k = 4 To Sheet3.Cells(65536, A).End(3).Row
            If Sheet3.Cells(k, "A") = t.Value Then
                Cells(9 + N, "J") = Sheet3.Cells(k, "a") & "页(" & Sheet3.Cells(k, "D") & ")": N = N + 1
            End If
            Next
        End If
   Application.EnableEvents = True
   上面的红色部分和绿色部份的代码看起来是有规律的和有点相同的，能不能把它优化简单点。谢谢了。

grf1973

搞复杂了。。。。整个代码可以大大简化

1. Private Sub Worksheet_Change(ByVal t As Range)
   
2.     Dim i
   
3.     If t.Address <> "$G$9" And t.Address <> "$I$9" Then Exit Sub
   
4.     With Sheet3
   
5.         Application.EnableEvents = False
   
6.         For i = 1 To .[a65536].End(xlUp).Row
   
7.             If .Cells(i, 1) = t.Value Then t.Offset(, 1) = t & "页(" & .Cells(i, "D") & ")": Exit For
   
8.         Next
   
9.         Application.EnableEvents = True
   
10.     End With
    
11. End Sub

复制代码

lbhlbh

grf1973 发表于 2015-12-21 15:26
搞复杂了。。。。整个代码可以大大简化

谢谢了，真的不错。

zjdh

Private Sub Worksheet_Change(ByVal t As Range)
    Dim  R
    Application.EnableEvents = False
    With Sheet3
        R = .Cells(Rows.Count, 1).End(xlUp).Row
        If t.Address = "$G$9" Or t.Address = "$I$9" Then
            A = .Range("A4" & ":A" & R).Find(t.Value).Row
            t.Offset(0, 1) = .Cells(A, "A") & "页(" & .Cells(A, "D") & ")"
        End If
    End With
    Application.EnableEvents = True
End Sub

lbhlbh

zjdh 发表于 2015-12-21 15:43
Private Sub Worksheet_Change(ByVal t As Range)
    Dim  R
    Application.EnableEvents = False

谢谢，老师的帮忙，你的代码更优简，谢谢了。