常用工具6.4测试版(拆分、合并、汇总、SQL）功能更强大

Itachi

学习学习～～～～

rerere6

谢谢了，下了慢慢学

lincug

怎么把那个工具安装上去啊？

csjcsj

另存为加载宏，然后加载就可以啦。

lbl016

谢谢了，下了慢慢学

山风点伙

有个问题,好多不能在2007下运行,会报错
但是我先装2003再装2007,让两个共存好象2007下面功能就都能使用,不知道是什么原因

bacasoul

好东西。太喜欢了。。。学习ing。。

16661666

在此网址有附件      http://club.excelhome.net/thread-463702-1-1.html
VB编的 筛选 问题
想要的是，当E列有要筛选的数据时，把E列找出来，E列没有，而F列有时找出F列的数据，E和F列都有时，把这两列的数据都找出来。
E列带字母的，输入F列的数值能正确找出来。
E列不带字母的，输入F列的数值就找不出来。如：E列 6100   在对应的F列 里有3108  6131等，输入3108就找不出来
请高手给看看，很不解？？？
宏的密码是：1666

Const 密码 = 1666    '保护密码
Private Function FFind(x As String, y As String) As Integer
  n = Len(y)
  FFind = n + 1
  For i = 1 To n
    If Mid(y, i, 1) = x Then
      FFind = i
      Exit For
    End If
  Next
End Function

Private Sub CommandButton1_Click()
If Trim(Me.TextBox1.Text) <> "" Then
  n = FFind(",", TextBox1.Text)
  tj1 = Mid(Me.TextBox1.Text, 1, n - 1)
  tj2 = Mid(Me.TextBox1.Text, n + 1)
Else
  tj1 = ""
  tj2 = ""
End If
If tj1 = "" Then
  tj1 = " "
End If
If tj2 = "" Then
  tj2 = tj1
End If
ActiveSheet.Unprotect Password:=密码
'下面这行中Field:=1中的1就是要筛选数据的列，
'Range("$A$1:$B$10")是数据范围
  ActiveSheet.Range("$F$5:$F$6000").AutoFilter Field:=6, Criteria1:="=*" + tj2 + "*"
  ActiveSheet.Range("$E$5:$E$6000").AutoFilter Field:=5, Criteria1:="=*" + "*" + "*", _
        Operator:=xlOr, Criteria2:="=" + tj1
        
ActiveSheet.Protect Password:=密码, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFiltering _
        :=True
End Sub

Private Sub CommandButton2_Click()
  ActiveSheet.Unprotect Password:=密码
  ActiveSheet.Range("$A$5:$L$6000").AutoFilter Field:=5
  ActiveSheet.Range("$A$5:$L$6000").AutoFilter Field:=6
  ActiveSheet.Protect Password:=密码, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFiltering _
        :=True
End Sub

Private Sub UserForm_Activate()
  Me.TextBox1.SetFocus
End Sub

danishman

一直用常用工具4.2版,给我的工作带来了很多的方便(尤其是经常使用合并),减少了很多重复劳动的时间.这个5.7版功能更强大,再次感谢版主的无私奉献!

墨荷

好人哪，非常感谢！
工作中经常需要用到合并、拆分，一直寻求中，这下终于可以“鼠标一点通”了，呵呵。
唉，什么时候我能达到这个境界啊，小女子佩服佩服！