[已解决]range.find 总是出错

mosaic

在第1行1列输入值后查询到第一列符合条件的相应的行
红色部分一直改一直出错

Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As String
Dim c As Range
Dim d
If Target.Address(0, 0) = "A1" Then
'Range("A2:j21").Borders.LineStyle = xlNone
Target.Value = UCase(Target.Value)
b = Target.Value
Set c = Range(”A2:A20").Find(b, lookat:=xlWhole)
If Not c Is Nothing Then
d = c.Row
ActiveWindow.ScrollRow = d
'Range("A3:j3").BorderAround xlContinuous, xlThick, ColorIndex:=3
End If
End If
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2015-10-19 15:20

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim b As String
    Dim c As Range
    Dim d
    Application.EnableEvents = False
    If Target.Address(0, 0) = "A1" Then
        'Range("A2:j21").Borders.LineStyle = xlNone
        
        Target.Value = UCase(Target.Value)
        b = Target.Value
        Set c = Range("A2:A20").Find(b, lookat:=xlWhole)
        If Not c Is Nothing Then
            d = c.Row
            ActiveWindow.ScrollRow = d
            'Range("A3:j3").BorderAround xlContinuous, xlThick, ColorIndex:=3
        End If
    End If
    Application.EnableEvents = True
End Sub

跳转到最佳答案楼层

金樽空对月

是什么样的错误提示呢？

mosaic

金樽空对月 发表于 2015-10-19 14:56
是什么样的错误提示呢？

各种错误，一会range无效，一会find无效，一会应用程序或对象定义无效

mosaic

find作用于range时失败
Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As String
Dim c As Range
Dim d
Sheet2.Activate
If Target.Address(0, 0) = "A1" Then
'Range("A2:j21").Borders.LineStyle = xlNone
Target.Value = UCase(Target.Value)
b = Target.Value
Set c = Range("A2:A20").Find(b, lookat:=xlWhole)If Not c Is Nothing Then
d = c.Row
ActiveWindow.ScrollRow = d
'Range("A3:j3").BorderAround xlContinuous, xlThick, ColorIndex:=3
End If
End If
End Sub

grf1973

Set c = Range("A2:A20").Find(b, lookat:=xlWhole)   
放到编辑器里显示，左边的引号错了。

grf1973

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim b As String
    Dim c As Range
    Dim d
    Application.EnableEvents = False
    If Target.Address(0, 0) = "A1" Then
        'Range("A2:j21").Borders.LineStyle = xlNone
        
        Target.Value = UCase(Target.Value)
        b = Target.Value
        Set c = Range("A2:A20").Find(b, lookat:=xlWhole)
        If Not c Is Nothing Then
            d = c.Row
            ActiveWindow.ScrollRow = d
            'Range("A3:j3").BorderAround xlContinuous, xlThick, ColorIndex:=3
        End If
    End If
    Application.EnableEvents = True
End Sub

mosaic

grf1973 发表于 2015-10-19 15:20
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim b As String
    Dim c As Range

哥，我要哭了，我捣鼓了好久就是不好，复制了你的代码立刻好了
可以告诉我关键是哪里的问题吗？不会是那个“吧，以前"对的时候也报错

grf1973

你在Worksheet_Change里用Target.Value = UCase(Target.Value)
改变单元格，有可能会陷入死循环。用 Application.EnableEvents = False禁用事件就OK了。

金樽空对月

看一下是不是符号格式不对。

mosaic

grf1973 发表于 2015-10-19 15:51
你在Worksheet_Change里用Target.Value = UCase(Target.Value)
改变单元格，有可能会陷入死循环。用 Appli ...

了解，谢谢