重开贴写一个VBA 用form写过滤器

陈酿

sundf 发表于 2011-12-18 22:11
Sheets("Practice data").Copy After:=Sheets("Practice data")
换成
Sheets("Practice data").Copy Afte ...

上个回复不用看了。发现了新的问题，我把orginal的 换成 Sorting之后代码 If CDbl(Sheets("remark").Cells(i, j)) >= CDbl(TextBox1.Text) Then
                            Sheets(TextBox1.Text).Cells(i, j) = Sheets("Sorting").Cells(i, j) 这句貌似没有运行，直接把表复制过去，没有进行对0的替换

1.     Private Sub CommandButton1_Click()
   
2.     Dim r As Integer
   
3.     Dim n As Integer
   
4.     Dim f As Integer
   
5.     Dim i, j As Integer
   
6.     Sheets("Sorting").Select
   
7.     Sheets("Sorting").Copy After:=Sheets("Sorting")
   
8.     ActiveSheet.Name = TextBox1.Text
   
9.     ActiveCell.CurrentRegion.Select
   
10.         n = Selection.Columns.count
    
11.         r = Selection.Rows.count
    
12.     f = n - Descolumncount
    
13.     For i = 2 To m
    
14.             For j = 2 To f
    
15.          
    
16.     If CDbl(Sheets("remark").Cells(i, j)) >= CDbl(TextBox1.Text) Then
    
17.                             Sheets(TextBox1.Text).Cells(i, j) = Sheets("Sorting").Cells(i, j)
    
18.     Else
    
19.     Sheets(TextBox1.Text).Cells(i, j) = 0
    
20.     End If
    
21.      Next j
    
22.       Next i
    
23.    
    
24.     End Sub
    

复制代码

陈酿

sundf 发表于 2011-12-18 22:11
Sheets("Practice data").Copy After:=Sheets("Practice data")
换成
Sheets("Practice data").Copy Afte ...

十分感谢，前边所有的帖子都可以无视了，全都搞定了，二月份挑个周末吧，吃拉面吧，要是喜欢摄影可以一起拍片子

sundf

陈酿 发表于 2011-12-20 16:20
十分感谢，前边所有的帖子都可以无视了，全都搞定了，二月份挑个周末吧，吃拉面吧，要是喜欢摄影可以一起 ...

我是拉面控

陈酿

sundf 发表于 2011-12-20 23:20
我是拉面控

别的也可以啊，哈哈，我是松屋控