[已解决]各位老师好，麻烦抽中午休息的时候帮我写段代码，谢谢了

1003136666

附件有说明，谢谢了

最佳答案

月排行榜 / 总排行榜

baksy

2014-9-2 13:17

1003136666 发表于 2014-9-2 12:25
老师，我又错了
我以为写好代码，我改下就可以用到我的工作表中了
其实我有很多表，有的是小于100，有的 ...

选定区域 -- 右键 -- 设置单元格格式 -- 自定义 -- 类型（复制公式 [>200]0;;; ）-- 确定

跳转到最佳答案楼层

无聊的疯子

选择那个区域，然后设置单元格格式为 ： “0;;0;@”  就可以了

1003136666

无聊的疯子 发表于 2014-9-2 12:02
选择那个区域，然后设置单元格格式为 ： “0;;0;@”  就可以了

老师，我又错了
我以为写好代码，我改下就可以用到我的工作表中了
其实我有很多表，有的是小于100，有的是大于100等
现在帮我解决一个表，小于200的单元格变为空（以后的表我依瓢画壶），谢谢了

无聊的疯子

1003136666 发表于 2014-9-2 12:25
老师，我又错了
我以为写好代码，我改下就可以用到我的工作表中了
其实我有很多表，有的是小于100，有的 ...

直接条件格式

用公式 “=A1<200”，然后设置单元格格式，选择自定义，输入 “;;;”

不需要写代码，

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j%
   
3. arr = ActiveSheet.UsedRange
   
4. For i = 1 To UBound(arr)
   
5.     For j = 1 To UBound(arr, 2)
   
6.         If arr(i, j) < 0 Then arr(i, j) = ""
   
7.     Next
   
8. Next
   
9. ActiveSheet.UsedRange = arr
   
10. End Sub

复制代码

baksy

1003136666 发表于 2014-9-2 12:25
老师，我又错了
我以为写好代码，我改下就可以用到我的工作表中了
其实我有很多表，有的是小于100，有的 ...

选定区域 -- 右键 -- 设置单元格格式 -- 自定义 -- 类型（复制公式 [>200]0;;; ）-- 确定

1003136666

无聊的疯子 发表于 2014-9-2 12:31
直接条件格式

用公式 “=A1

十分感谢老师，个人觉得六楼答案最好用，最佳就给他了，再说声谢谢了。

1003136666

dsmch 发表于 2014-9-2 12:35

十分感谢老师，个人觉得六楼答案最好用，最佳就给他了，再说声谢谢了。

su45

咱也来学学条件格式