如何将满足条件的行染色？？？

wwdfefgg · 发表于 2024-4-24 08:17

gwjkkkkk 发表于 2024-4-23 22:59
请参考。。。

非常感谢，我想实现打开一个空的excel文件，在顶部菜单栏能有这个程序的链接，就像下图中的 “云服务”一样，怎样实现？？

截图20240424081322.png

wwdfefgg · 发表于 2024-4-24 09:39

顶起来、、、、、、、、、、、、、

wwdfefgg · 发表于 2024-4-24 10:20

顶起来、、、、、、、、、、、、

liulang0808 · 发表于 2024-4-24 11:15

wwdfefgg 发表于 2024-4-24 08:16
非常感谢，我想实现打开一个空的excel文件，在顶部菜单栏能有这个程序的链接，就像下图中的 “云服务”一 ...

你的截图是wps，具体可以问问对应客服，这个截图是哪个版本的

wwdfefgg · 发表于 2024-4-24 11:49

liulang0808 发表于 2024-4-24 11:15
你的截图是wps，具体可以问问对应客服，这个截图是哪个版本的

是wps2019版的

wwdfefgg · 发表于 2024-4-24 18:10

顶起来、、、、、、、、、、、、、

gwjkkkkk · 发表于 2024-4-24 19:18

wwdfefgg 发表于 2024-4-24 08:17
非常感谢，我想实现打开一个空的excel文件，在顶部菜单栏能有这个程序的链接，就像下图中的 “云服务”一 ...

给你左上角加了按钮了，请再看看，如果不行估计是wps的关系。。。

ykcbf1100 · 发表于 2024-4-24 19:41

用正则判断

ykcbf1100 · 发表于 2024-4-24 19:42

参与一下。。。

Sub ykcbf() '//2024.4.24
Set reg = CreateObject("VBScript.Regexp")
With Sheets("test")
r = .Cells(Rows.Count, 1).End(3).Row
arr = .[a1].Resize(r, 11)
.Cells.Interior.ColorIndex = 0
With reg
.Global = False
.Pattern = "AAA.csv|BBB.csv|CCC.csv|DDD.csv|AAA.csv-2|BBB.csv-2|CCC.csv-2|DDD.csv-2"
End With
For i = 2 To r
If arr(i, 1) <> Empty Then
If arr(i, 11) >= 1.3 Then
.Cells(i, 1).Resize(1, 11).Interior.ColorIndex = 3
Else
If reg.test(arr(i, 1)) Then
.Cells(i, 1).Resize(1, 11).Interior.ColorIndex = 8
End If
End If
End If
Next
End With
End Sub

复制代码

wwdfefgg · 发表于 2024-4-24 19:42

gwjkkkkk 发表于 2024-4-24 19:18
给你左上角加了按钮了，请再看看，如果不行估计是wps的关系。。。

TEST.xlsm 这个文件打开的时候，，我看到按钮了，

但重新打开一个新的excel文件，，这个按钮就不显示了。。。

我的意思是有没有什么办法把这个按钮永远固定到上面的菜单栏目？？？？

		自动登录	找回密码
密码			免费注册

[求助] 如何将满足条件的行染色？？？