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

陈酿

sundf 发表于 2011-12-15 23:34
另外这个是form的样子，textbox1是想生成的sheet名（图的上面）,textbox2是条件值，至于下拉筐么上面代码只 ...

界面是这样的

sundf

陈酿 发表于 2011-12-16 23:03
dim s as Integer 文本框
现在form上设计了一个 Generate 按钮，按了之后，触发以下顺序的事件，读取文本 ...

我不知道你想要的动态名字是啥，所以给你的例子是form输入。至于其他，应该满足要求了，if的写法看代码啦。

陈酿

sundf 发表于 2011-12-17 00:31
我不知道你想要的动态名字是啥，所以给你的例子是form输入。至于其他，应该满足要求了，if的写法看代码啦 ...

十分感谢，我现在用 Practice data做

陈酿

sundf 发表于 2011-12-17 00:31
我不知道你想要的动态名字是啥，所以给你的例子是form输入。至于其他，应该满足要求了，if的写法看代码啦 ...

1. Private Sub CommandButton1_Click()
   
2. Dim m As Integer
   
3. Dim n As Integer
   
4. Dim f As Integer
   
5. Dim i, j As Integer
   
6. Sheets("Practice data").Select
   
7. Sheets("Practice data").Copy After:=Sheets("Practice data")
   
8. ActiveSheet.Name = TextBox1.Text
   
9. ActiveCell.CurrentRegion.Select
   
10.     n = Selection.Columns.count
    
11.     m = Selection.Row.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(TextBox2.Text) Then
    
17.                         Sheets(TextBox1.Text).Cells(i, j) = Sheets("Practice data").Cells(i, j)
    
18. Else
    
19. Sheets(TextBox1.Text).Cells(i, j) = 0
    
20. End If
    
21. 
    
22.   Next i
    
23. Next j
    
24. End Sub
    
25. 
    

复制代码

改完的，next i 那里出错了。。。。

sundf

陈酿 发表于 2011-12-17 14:13
改完的，next i 那里出错了。。。。

next i和next j写反了
循环是嵌套的，不大喜欢跟着写i , j

陈酿

sundf 发表于 2011-12-17 18:06
next i和next j写反了
循环是嵌套的，不大喜欢跟着写i , j

名字为text2的表都在original的后边，而不是真个worksheet的最后，其他我都搞定了

陈酿

sundf 发表于 2011-12-17 00:31
我不知道你想要的动态名字是啥，所以给你的例子是form输入。至于其他，应该满足要求了，if的写法看代码啦 ...

发现个问题。。。。新的

1. Sheets(TextBox1.Text).Cells(i, j) = 0
   
2. 
   
3. 是不是把当前表所有的列中不满足的条件的替换掉。。。。。。

复制代码

sundf

陈酿 发表于 2011-12-18 22:03
发现个问题。。。。新的

是的，替换成0

sundf

陈酿 发表于 2011-12-18 18:05
名字为text2的表都在original的后边，而不是真个worksheet的最后，其他我都搞定了 ...

Sheets("Practice data").Copy After:=Sheets("Practice data")
换成
Sheets("Practice data").Copy After:=Sheets(Sheets.Count)

陈酿

sundf 发表于 2011-12-18 22:08
是的，替换成0

问题不是所有列。。。。和remark一样的列数，我试着加了个循环 j=2 to f 结果不行。。。。