[已解决]VBA程序出错，请大神帮忙

牛肉面缠绕地球 · 发表于 2017-6-27 10:36

本帖最后由牛肉面缠绕地球于 2017-6-28 09:03 编辑

一个简单的多条件查询表，老是出错不会调试，请大神帮忙，谢谢。见附件。---------附件里面有我自己编写的宏和论坛大神帮忙编写的宏，但还是无法完全达到我的目标，附件里面有详细说明，请大家帮忙看看。

最佳答案

月排行榜 / 总排行榜

chart888

2017-6-29 09:20

牛肉面缠绕地球发表于 2017-6-29 09:10
你是不是发错附件了？我希望的是1代码可以在任意我激活的sheet里面运行，不要指定sheet。2.运行时候不要 ...

还真是我发错了
你再看看

跳转到最佳答案楼层

chart888 · 发表于 2017-6-27 14:18

把你想要的具体要求说出来吧
什么十个小宏
看着头疼

牛肉面缠绕地球 · 发表于 2017-6-27 15:24

chart888 发表于 2017-6-27 14:18
把你想要的具体要求说出来吧
什么十个小宏
看着头疼

已经重新写好了。

grf1973 · 发表于 2017-6-27 15:32

1、返回查询结果时候都不要覆盖掉第30行以后的原数据。
答：每次输出的行数是x，可令x=iif(x<27,x,27)，这样每次输出最多27行（第3行--第29行）
2、制定了10个小宏，希望能合并为一个宏，运行一次就能得到结果
答： sub main
         call 小宏1
         call 小宏2
         。。。。。
      call 小宏10
   end sub

chart888 · 发表于 2017-6-27 16:00

Sub Test()
Dim Arr
Dim i&, r&
Dim AA, Sr As String
On Error Resume Next
Arr = Sheets("源数据").[A1].CurrentRegion
r = 2
With Sheets("查询")
.Range("A3:E" & Rows.Count).ClearContents
If .Cells(1, 2) = "" And .Cells(1, 4) = "" Then MsgBox "请输入查询条件"
If .Cells(1, 2) <> "" And .Cells(1, 4) <> "" Then
AA = .Cells(1, 2) & "|" & Sheets("查询").Cells(1, 4)
For i = 2 To UBound(Arr)
Sr = Arr(i, 1) & "|" & Arr(i, 2)
If AA = Sr Then
r = r + 1
.Cells(r, 2) = Arr(i, 1): .Cells(r, 3) = Arr(i, 2)
.Cells(r, 4) = Arr(i, 3): .Cells(r, 5) = Arr(i, 4)
End If
Next
Else
For i = 2 To UBound(Arr)
If Arr(i, 2) = .Cells(1, 4) Then
r = r + 1
.Cells(r, 2) = Arr(i, 1): .Cells(r, 3) = Arr(i, 2)
.Cells(r, 4) = Arr(i, 3): .Cells(r, 5) = Arr(i, 4)
End If
Next
End If
End With
End Sub

复制代码

牛肉面缠绕地球 · 发表于 2017-6-28 08:28

grf1973 发表于 2017-6-27 15:32
1、返回查询结果时候都不要覆盖掉第30行以后的原数据。
答：每次输出的行数是x，可令x=iif(x

谢谢，懂了！

牛肉面缠绕地球 · 发表于 2017-6-28 09:04

牛肉面缠绕地球发表于 2017-6-28 08:28
谢谢，懂了！

能帮忙看看我的附件吗？我还是不会。。

牛肉面缠绕地球 · 发表于 2017-6-28 09:05

chart888 发表于 2017-6-27 16:00

你编写的只能用于制定sheet，我想用于任意sheet，请帮忙再看看附件，里面有说明。。

chart888 · 发表于 2017-6-28 09:18

本帖最后由 chart888 于 2017-6-28 09:20 编辑

牛肉面缠绕地球发表于 2017-6-28 09:05
你编写的只能用于制定sheet，我想用于任意sheet，请帮忙再看看附件，里面有说明。。

1.从“源数据”返回查询结果到任意一个sheet，就是点那个sheet就返回到那个sheet，而非只用于目前这个sheet“查询”，因为我要返回的sheet有很多。

你是每个sheet用按钮单独控制，还是一个按钮后所有的sheet都进行查询？

5.返回查询结果时，不要覆盖目前sheet的第30行以后的数据
如果查询到的数据超过了30行怎么办？

牛肉面缠绕地球 · 发表于 2017-6-28 15:36

chart888 发表于 2017-6-28 09:18
1.从“源数据”返回查询结果到任意一个sheet，就是点那个sheet就返回到那个sheet，而非只用于目前这个she ...

1，我想点一个sheet，自己手动运行一次宏，其实有没有按钮没关系。
2.查询结果是不会超过30行的。主要是30行以后有别的数据，我不能改变工作表格式，所有只能覆盖前30行。

		自动登录	找回密码
密码			注册