【问题已圆满解决！】 怎样屏蔽#N/A错误为空白？

WYS67

老师：请看截图：《按指定期序提取相关数据》里的代码。指定C1为数据源I:J列最后行号，当前是4540。指定H1的最大行号为10252，当H1大于C1的最后行号4540时，E4541:J10252就会显示#N/A错误！怎样把#N/A屏蔽为空白？恳请老师帮忙解决！


代码如下：Sub 按指定期序提取相关数据()
Dim ar, br, i&, j&, k&, x&, y&, h1, h2, f2,c2
    f2 = Cells(2, "f"): h2 = Cells(2, "h"): c2 = Cells(2 ,"c")
    If f2 = "" And h2 <> "" Then MsgBox "f2:h2指定期序有误！": Exit Sub
    Windows("00 总表.xlsm").Activate
    ar = Range("e5:j" & Cells(2, "h"))
    For k = UBound(ar) To 1 Step -1
        If ar(k, 1) <> "" Then Exit For
    Next
    x = UBound(ar, 2): ReDim br(1 To k, 1 To x)
    For i = 1 To k
        If f2 = "" And h2 = "" Then
            If ar(i, 4) = c2 Then
                y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
            End If
        ElseIf f2 <> "" And h2 = "" Then
            If ar(i, 4) = f2 Then
                y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
            End If
        ElseIf f2 <> "" And h2 <> "" Then
            If ar(i, 4) >= f2 And ar(i, 4) <= h2 Then
                y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
            End If
        End If
    Next
    Windows("按指定期序提取相关数据.xlsm").Activate
    Worksheets("总表").Select
    h1 = Cells(1, "h"): [e5].Resize(h1 - 4, UBound(br, 2)) = br
End Sub



河南快三.zip (1.15 MB, 下载次数: 6)

2019-2-1 08:33 上传

点击文件名下载附件

bbm000000

用iserror判断下

WYS67

bbm000000 发表于 2019-2-1 08:48
用iserror判断下

老师：对VBA我是个小白。恳请老师帮忙在合适地方增加判断代码。多谢了！

liulang0808

楼主是赋值导致的吧
br这数组的一维上届是什么，最后赋值用的上届是什么楼主对比下看看吧

WYS67

bbm000000 发表于 2019-2-1 08:48
用iserror判断下

另外，能否设置为：无论源工作簿处于打开或关闭状态下，点击按钮后，都能提取指定数据？怎样设置？恳请老师一并解决！

bbm000000

WYS67 发表于 2019-2-1 08:54
另外，能否设置为：无论源工作簿处于打开或关闭状态下，点击按钮后，都能提取指定数据？怎样设置？恳请老 ...

没东西写啊，不打开的话需要ado

WYS67

liulang0808 发表于 2019-2-1 08:53
楼主是赋值导致的吧
br这数组的一维上届是什么，最后赋值用的上届是什么楼主对比下看看吧

版主老师：br这数组的一维上届是什么，最后赋值用的上届是什么？？？不明白您说的是什么意思。就是想请老师添加代码：当数据源的I列再没有符合条件的数据时，把E:J列里显示的#N/A错误为空白。

liulang0808

1. Sub 按指定期序提取相关数据()
   
2. Dim ar, br, i&, j&, k&, x&, y&, h1, h2, f2, c2
   
3.     f2 = Cells(2, "f"): h2 = Cells(2, "h"): c2 = Cells(2, "c")
   
4.     If f2 = "" And h2 <> "" Then MsgBox "f2:h2指定期序有误！": Exit Sub
   
5.     Application.ScreenUpdating = False
   
6.     Workbooks.Open (ThisWorkbook.Path & "\00 总表.xlsm")
   
7.     Windows("00 总表.xlsm").Activate
   
8.     ar = Range("e5:j" & Cells(2, "h"))
   
9.     For k = UBound(ar) To 1 Step -1
   
10.         If ar(k, 1) <> "" Then Exit For
    
11.     Next
    
12.     x = UBound(ar, 2): ReDim br(1 To k, 1 To x)
    
13.     For i = 1 To k
    
14.         If f2 = "" And h2 = "" Then
    
15.             If ar(i, 4) = c2 Then
    
16.                 y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
    
17.             End If
    
18.         ElseIf f2 <> "" And h2 = "" Then
    
19.             If ar(i, 4) = f2 Then
    
20.                 y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
    
21.             End If
    
22.         ElseIf f2 <> "" And h2 <> "" Then
    
23.             If ar(i, 4) >= f2 And ar(i, 4) <= h2 Then
    
24.                 y = y + 1: For j = 1 To x: br(y, j) = ar(i, j): Next
    
25.             End If
    
26.         End If
    
27.     Next
    
28.     Windows("按指定期序提取相关数据.xlsm").Activate
    
29.     Worksheets("总表").Select
    
30.     h1 = Cells(1, "h"): [e5].Resize(h1 - 4, UBound(br, 2)).ClearContents
    
31.     h1 = WorksheetFunction.Min(UBound(br), Cells(1, "h")): [e5].Resize(h1 - 4, UBound(br, 2)) = br
    
32.     Application.ScreenUpdating = True
    
33. End Sub

复制代码

WYS67

liulang0808 发表于 2019-2-1 09:18

万分感谢版主老师的帮忙！您的代码完美解决了问题。弱弱问一句，能否设置为：点击按钮后提取指定数据时，不会触发源工作簿自动打开或关闭的事件，保持源工作簿先前打开或关闭的原有状态不变？

liulang0808

WYS67 发表于 2019-2-1 09:30
万分感谢版主老师的帮忙！您的代码完美解决了问题。弱弱问一句，能否设置为：点击按钮后提取指定数据时， ...

可以，增加判断就可以
楼主可以尝试下