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

陈酿 · 发表于 2011-12-14 14:08:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册账号

x

本帖最后由陈酿于 2011-12-14 18:39 编辑

有两张表，其中一张是original，一张是remark。form上有一个文本框输入<1, >=2, >0.5之类的条件，满足条件的cell，在original表里相同位置的数据保留，剩下的删除。

陈酿 · 发表于 2011-12-14 18:59:42

本帖最后由陈酿于 2011-12-14 19:02 编辑

original表

remark表。

现在form那里填上0.5的话在original表的输出结果是

.5.jpg

现在form那里填上1的话在original表的输出结果是

换句话说form里填的是多少就把remark表里不满足条件的数据在original表里去除，这里去除之后生成新表，原表不动

sundf · 发表于 2011-12-14 19:02:53

知道了，不难的，慢点给你写个sample。今天身体欠安，明天吧。

陈酿 · 发表于 2011-12-14 19:15:49

dim s as Integer 文本框
现在form上设计了一个 Generate 按钮，按了之后，触发以下顺序的事件，读取文本框里的数字，然后复制original表，并新建一张表叫做Attribute value max（这里怎么做成动态命名？因为用户可能调用这里多次，每次都想建张新表并保留。）。然后active remark这张表，进行循环比较，循环加判断，if< x cell(i,j)=0 else do thing 是这么写吗？今天写了一下午没写出来，能不能继续帮帮，我太没有编程想象力了

陈酿 · 发表于 2011-12-14 19:16:16

sundf 发表于 2011-12-14 19:02
知道了，不难的，慢点给你写个sample。今天身体欠安，明天吧。

十分感谢。我也自己写写看明天

sundf · 发表于 2011-12-15 23:30:10

Private Sub CommandButton1_Click()
'copy sheet with the input name
Sheets("original").Select
Sheets("original").Copy After:=Sheets("original")
ActiveSheet.Name = TextBox1.Text
Dim i, j As Integer
For i = 2 To Sheets("original").Cells.SpecialCells(xlLastCell).Row
For j = 2 To Sheets("original").Cells.SpecialCells(xlLastCell).Column
Select Case ComboBox1.Value
Case "<"
If CDbl(Sheets("remark").Cells(i, j)) < CDbl(TextBox2.Text) Then
Sheets(TextBox1.Text).Cells(i, j) = Sheets("original").Cells(i, j)
Else
Sheets(TextBox1.Text).Cells(i, j) = 0
End If
Case "<="
'.....
End Select
Next
Next
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "<"
ComboBox1.AddItem "<="
ComboBox1.AddItem "="
'......
End Sub

复制代码

不多说，上代码。。。

sundf · 发表于 2011-12-15 23:34:39

另外这个是form的样子，textbox1是想生成的sheet名（图的上面）,textbox2是条件值，至于下拉筐么上面代码只加了<,<=,=，实际过滤器里只有<的那段，其他你自己加吧。

wangpei77777 · 发表于 2011-12-16 13:03:45

提示: 作者被禁止或删除内容自动屏蔽

wangpei77777 · 发表于 2011-12-16 13:04:06

提示: 作者被禁止或删除内容自动屏蔽

陈酿 · 发表于 2011-12-16 23:03:55

sundf 发表于 2011-12-15 23:30
不多说，上代码。。。

dim s as Integer 文本框
现在form上设计了一个 Generate 按钮，按了之后，触发以下顺序的事件，读取文本框里的数字，然后复制original表，并新建一张表叫做Attribute value max（这里怎么做成动态命名？因为用户可能调用这里多次，每次都想建张新表并保留。）。然后active remark这张表，进行循环比较，循环加判断，if< x cell(i,j)=0 else do thing 是这么写吗？

case 不用，直接 if >= 就可以了，我昨天夜班，回来睡觉，才起来，不好意思

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

[IT 交流] 重开贴写一个VBA 用form写过滤器

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

评分

评分

wangpei77777 wangpei77777 当前离线日志好友卖家信用买家信用注册时间 2011-12-15 在线时间小时显IP卡狗仔卡头像被屏蔽	发表于 2011-12-16 13:03:45 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复赞踩使用道具举报显身卡

wangpei77777 wangpei77777 当前离线日志好友卖家信用买家信用注册时间 2011-12-15 在线时间小时显IP卡狗仔卡头像被屏蔽	发表于 2011-12-16 13:04:06 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复赞踩使用道具举报显身卡