求大神改改并解答

行走的

各位朋友好，

1. Private Sub Worksheet_Change(ByVal target As Range)  '当表格修改内容发生变化时
   
2. 
   
3.   Dim selectsheet, svsheet As Worksheet
   
4. 
   
5. 'On Error Resume Next  '如果运行错误则忽略
   
6. 
   
7.    Dim m, i, j As Integer
   
8.      Set selectsheet = Application.ThisWorkbook.Worksheets("信息查询界面")  '设置工作表
   
9.      m = 1
   
10.      If target.Value = selectsheet.Range("i16") Then
    
11.         If selectsheet.Range("i16") <> 0 Then
    
12.             For i = 3 To 13 Step 2
    
13.                 For j = 18 To 23
    
14.                 m = m + 1
    
15.                     selectsheet.Cells(j, i) = Application.WorksheetFunction.VLookup(selectsheet.Range("i16"), selectsheet.Range("A38:AK100"), m, 0)
    
16.                 Next j
    
17.             Next i
    
18. 
    
19.      'Else
    
20.         'selectsheet.Range("C18:C23,E18:E23,G18:G23,i18:i23,k18:k23,M18:M23") = ""
    
21.      End If
    
22.      End If
    
23. End Sub

复制代码

上面这个代码，调试时也是If target.Value = selectsheet.Range("i16") Then报 range 作用于worsheet对象失败，什么意思，不懂怎么回事啊，求大神不吝赐教！！！

1. 
   

复制代码

LIUZHU

没有附件，不处理

3190496160

调试代码，更是应该要上传附件才行呀，不然，谁知道你的表格的具体情况呢？？