office 365, excel 条件格式

segothenburg

在一个excel 工作表里，有多个工作簿。 有没有办法一次设置每个工作簿里例如 数值少于4 的单元格都显示红色？
或有没有其他方式做到，数值少于4 的都能标出？
平常条件格式我只设到选定的工作簿

有人回复说设置不了，要VBA
请问有没有个具体方法？
前提：没碰过VBA

kuangben8

每个工作表都设置一次就好了。如果工作表多到手工设置很麻烦，那就VBA循环设置一下。

segothenburg

kuangben8 发表于 2020-1-10 13:28
每个工作表都设置一次就好了。如果工作表多到手工设置很麻烦，那就VBA循环设置一下。

所以想问VBA怎么设？ 没碰过VBA的，怎么弄?

mzbao

应该是一个工作簿里有多个工作表。你把工作簿和工作表的概念搞反了。

kuangben8

segothenburg 发表于 2020-1-10 13:37
所以想问VBA怎么设？ 没碰过VBA的，怎么弄?

上传附件啊！不然怎么给你弄呢。

segothenburg

kuangben8 发表于 2020-1-10 14:19
上传附件啊！不然怎么给你弄呢。

我以为有一个通用方式...
已上附件

kuangben8

1. Sub 设置格式()
   
2.     Dim sht As Worksheet, Rng As Range
   
3.     For Each sht In ThisWorkbook.Worksheets
   
4.         For Each Rng In sht.Range("E6:E36")
   
5.             If Rng.Value < 4 And Rng <> "" Then
   
6.                 Rng.Interior.Color = RGB(235, 238, 108)
   
7.             Else
   
8.                 Rng.Interior.Color = xlNone
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

kuangben8

给你做成工作簿事件吧。缺点就是破坏了原有工作簿的撤销功能。

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     Set Sh = ActiveSheet
   
3.     With Sh
   
4.         If Intersect(.Range("E6:E36"), Target) Is Nothing Then
   
5.             End
   
6.         ElseIf Target.Value < 4 And Target.Value <> "" Then
   
7.             Target.Interior.Color = RGB(235, 238, 108)
   
8.         Else
   
9.             Target.Interior.Color = xlNone
   
10.         End If
    
11.     End With
    
12. End Sub

复制代码

test.zip (22.93 KB, 下载次数: 7)

2020-1-10 16:27 上传

点击文件名下载附件

segothenburg

kuangben8 发表于 2020-1-10 15:27
给你做成工作簿事件吧。缺点就是破坏了原有工作簿的撤销功能。

哇哇哇，好厉害好厉害啊。 那个代码我插入，没有效果，只怪自己不会了。
这个做好的很符合
谢谢

segothenburg

kuangben8 发表于 2020-1-10 15:27
给你做成工作簿事件吧。缺点就是破坏了原有工作簿的撤销功能。

这位强人，我插入代码运行好像没有自己想要的效果，因为实在没碰过VBA，不知道操作是否有误。直接用你做的就没有问题。
请问有个指引具体步骤怎么做吗？