求高手指点, 看看红色内容的这段代码为什么无法在附件中执行, 谢谢!

419837499

各位老师:
        请帮忙看看红色内容的这段代码为什么无法在附件中执行, 或者是以下代码无法全面执行 :将以下那段红色字体的代码放在前面是可执行了,但其它的代码却又无反应了, 因本人是个初学VBA的菜鸟, 以下的这些代码都是从本论坛各帖子中借鉴引用拼凑起来的, 有很多地方不懂, 自己经过好多次调试测试都无法解决, 只好又来求助,附上附件请各位走过路过的老师、高手指点迷津， 多谢！

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then Target = LCase(Target.Value)
On Error Resume Next
Application.EnableEvents = True
Dim crr, frr
With Sheet1
crr = .Range("b2:c135")
frr = .Range("e2:f25")
End With
If Target.Column = 6 Then
For i = 1 To UBound(crr)
If Target = crr(i, 1) Then Target = crr(i, 2): Exit Sub
Next i
ElseIf Target.Column = 5 Then
For i = 1 To UBound(frr)
If Target = frr(i, 1) Then Target = frr(i, 2): Exit Sub
Next i
Else
Exit Sub
End If
If Target.Column = 5 Then
      Dim x&
        x = Sheet1.Range("f" & Cells.Rows.Count).End(3).Row
      Cells(Target.Row, 2) = Application.VLookup(Cells(Target.Row, 5), Sheet1.Range("f1:g" & x), 2, 0)
    End If
If Target.Column = 5 Then
Cells(Target.Row, 3) = "散水"
Cells(Target.Row, 9) = "KG"
End If
If Target.Column <> 11 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then
    Set c = Sheet1.Range("a1:a" & Sheet1.[a65536].End(xlUp).Row).Find(Target, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then Target.Offset(0, 0) = c
End If
Application.EnableEvents = True
End Sub

419837499

顶上。。。。。求老师们指点迷津！

419837499

不要沉啊，顶上。。。。。求老师们指点迷津！

蓝桥玄霜

有第6列、第5列，又不等于11列，不知道你的要求是什么？

lsc900707

不如直接说具体要求，看你代码有点绕。

419837499

蓝桥玄霜 发表于 2018-6-10 10:37
有第6列、第5列，又不等于11列，不知道你的要求是什么？

蓝桥老师，我想要在附件中的sheet3工作表上的第5列输入1~24的数字就能出现1#储罐~24#储罐 内容(已能实现), 在第6列中无论输入大写或小写字母都只显示是小写(因为要便于引用sheet1表上的B:C列数据, 亦已能实现),
在第5列有数据时,同行的第3列&第9列显示指定内容, 亦已能实现),现在我想在11列(K列)范围中输入车牌号的数字就可引用在sheet1表A列的内容, 这段代码我是从一个"输入车牌后面数字，车牌自动补齐"帖子借用的,但不知道是什么原因这段代码无法执行已无错误提示, 请老师指教, 谢谢!

If Target.Column <> 11 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then
    Set c = Sheet1.Range("a1:a" & Sheet1.[a65536].End(xlUp).Row).Find(Target, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then Target.Offset(0, 0) = c

419837499

lsc900707 发表于 2018-6-10 10:50
不如直接说具体要求，看你代码有点绕。

版主你好, 我想要的结果是在附件的"储罐入库"表中的K列,输入车牌后面的数字就能得到完整的车牌号(基础数据在sheet1表A列),帖子中的那段红色字体代码将它移到前面就可运行, 但又令到其它代码都无法运行了, 放在最后面后就只有这段无法运行已无错误提示, 不知是什么问题, 请版主指点迷津, 谢谢!

419837499

lsc900707 发表于 2018-6-10 10:50
不如直接说具体要求，看你代码有点绕。

版主, 我想得到的结果如附图所示, 谢谢!

419837499

蓝桥玄霜 发表于 2018-6-10 10:37
有第6列、第5列，又不等于11列，不知道你的要求是什么？

蓝桥老师, 我想得到的结果如附图所示, 谢谢!

419837499

请高手帮忙看看究竟是哪里有问题啊, 谢谢啦!