变量未定义 求解

wdz439283

PrivateSub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents= False

IfTarget.Column = 1 Then

Dims, i&, j&, n$      

n= Target.Value      

i= Sheets("订单明细").Range("a"& Cells.Rows.Count).End(3).Row

s= Sheets("订单明细").Range("a1:j"& i)

Fori = 2 To UBound(s)   

Ifs(i, 1) = n And n <> "" Then

Forj = 1 To 6   

Ifj > 4 Then     

Cells(Target.Row,j + 1) = s(i, j + 3)   

Else

Cells(Target.Row,j + 1) = s(i, j + 1)

EndIf

Range("b"& Target.Row & ":j" & Target.Row) = Sheets("订单明细").Range("b" & i & ":j" &i).Value   

Nextj

i= UBound(s)  

EndIf

Next

EndIf

Application.EnableEvents= True

EndSub

这是我在论坛上看到一个帖子里的  试了一下  老是提醒我 变量未定义 target   什么情况啊  本人菜鸟  求解释

小花鹿

把Option Explicit去掉。

yaozong

有许多行的空白符丢失了。

1. '''PrivateSub Worksheet_Change(ByVal Target As Range)
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. Application.EnableEvents = False
   
4. '''IfTarget.Column = 1 Then
   
5. If Target.Column = 1 Then
   
6. '''Dims , i&, j&, n$
   
7. Dim s, i&, j&, n$
   
8. n = Target.Value
   
9. i = Sheets("订单明细").Range("a" & Cells.Rows.Count).End(3).Row
   
10. s = Sheets("订单明细").Range("a1:j" & i)
    
11. '''Fori = 2 To UBound(s)
    
12. For i = 2 To UBound(s)
    
13. '''Ifs(i, 1) = n And n <> "" Then
    
14. If s(i, 1) = n And n <> "" Then
    
15. '''Forj = 1 To 6
    
16. For j = 1 To 6
    
17. '''Ifj > 4 Then
    
18. If j > 4 Then
    
19. Cells(Target.Row, j + 1) = s(i, j + 3)
    
20. Else
    
21. Cells(Target.Row, j + 1) = s(i, j + 1)
    
22. End If
    
23. Range("b" & Target.Row & ":j" & Target.Row) = Sheets("订单明细").Range("b" & i & ":j" & i).Value
    
24. '''Nextj
    
25. Next j
    
26. i = UBound(s)
    
27. End If
    
28. Next
    
29. End If
    
30. Application.EnableEvents = True
    
31. '''EndSub
    
32. End Sub

复制代码

香川群子

3楼分析的对。

代码中出现大量拼写错误！导致无法编译执行。

具体地说，就是每一句代码中、两个单词之间的空格符号被【抹去了】。
造成代码无法识别。

Zamyi

综合二楼三楼，
1、Option Explicit去不去掉没关系，作为过程中的参数，已经声明 ByVal Target As Range；
2、三楼修改分隔错误后仍然不行得到Target 未定义的问题；
3、只有附件才能说明真相。