以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何在已经筛选过的数据中根据某一列筛选出最小值并予以颜色标记呢？谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89140)
--  作者：文刀土山羊
--  发布时间：2016/8/16 10:37:00
--  请问如何在已经筛选过的数据中根据某一列筛选出最小值并予以颜色标记呢？谢谢
时间   维持时间 室外温度 用水量    用电量    用气量    用盐量    回水温度      备注 
2016/1/7 0:00:00    0 1    33    44    4446    76    87    
2016/1/7 7:00:00    7    2    33    33    4777    67    79    
2016/1/7 11:00:00     4    2    44    25    3788    35    84    
2016/1/7 15:00:00     4    3    33    87    3656    67    68  

 

 

对如上的一个表，我已经根据维持时间和室外温度对数据进行第一次筛选了。接下来我希望在筛选后的数据分别找出最小值，然后再将最小值那一个单元格进行颜色标记。备注：筛选是在窗口里进行的，要求筛选是一次性的，关闭窗口后就表格恢复原来那样的。
--  作者：文刀土山羊
--  发布时间：2016/8/16 10:42:00
--  
以下是引用文刀土山羊在2016/8/16 10:37:00的发言：
时间   维持时间 室外温度 用水量    用电量    用气量    用盐量    回水温度      备注 
2016/1/7 0:00:00    0 1    33    44    4446    76    87    
2016/1/7 7:00:00    7    2    33    33    4777    67    79    
2016/1/7 11:00:00     4    2    44    25    3788    35    84    
2016/1/7 15:00:00     4    3    33    87    3656    67    68  

 

 

对如上的一个表，我已经根据维持时间和室外温度对数据进行第一次筛选了。接下来我希望在筛选后的数据分别找出最小值，然后再将最小值那一个单元格进行颜色标记。备注：筛选是在窗口里进行的，要求筛选是一次性的，关闭窗口后就表格恢复原来那样的。

 

 

——————————————————————————————我是萌萌哒n(*≧▽≦*)n的分割线———————————————————————————————

 

又不小心直接发送了。

 

我第一步筛选已经实现了，将代码写在一个按钮里面。但是第二步对筛选后的数据进行再筛选并标记没实现，我弄的代码只会在全部数据中筛选出最小值。第二步的代码要放在另外一个按钮里的。这个我不太会，希望大神指教啦！谢谢啦！

 

(可以放一个支付宝账号的，你们这样无偿帮助我有点害羞，我小小的支持一下，嘿嘿！)

 
--  作者：Hyphen
--  发布时间：2016/8/16 11:34:00
--  
参考：http://www.foxtable.com/webhelp/scr/0656.htm
--  作者：文刀土山羊
--  发布时间：2016/8/18 15:10:00
--  回复：（Hyphen）参考：http://www.foxtable.com/webh...
谢谢回答，但是我发现这个只能做到标记最小值，并不能对筛选后的最小值进行标记。大哥，我的重点是要筛选后再筛选，标记是其次。请问能不能告诉我如何做到对筛选后的数据进行再筛选？谢谢了，真的感谢你！
--  作者：大红袍
--  发布时间：2016/8/18 16:11:00
--  

 参考代码

 

Dim f As String = Tables("表A").Filter
f = iif(f > "", "(" & f & ") and 新的条件", "新的条件")
msgbox(f)
Tables("表A").Filter = f