PTT
Submit
Submit
选择语言
正體中文
简体中文
PTT
Visual_Basic
[VBA ]求救!要如何判断储存格底色?
楼主:
sf4566373
(阿欧收啦)
2019-05-31 22:15:04
版本:Microsoft Office 2007
本人为刚接触VBA新手
目前使用录制宏
录制<格式化条件>
程式如下
Range("B4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=100", Formula2:="=50"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
上面表示选取范围储存格内数字介于50~100,底色变为浅绿色
这边有个疑问想请教!
如何下判断,当范围内皆为浅绿色跳出MSGBOX显示"OK"
以下为自己写的判断式(下列皆无法有效判断)
If Range("B4").Interior.Color = RGB(146, 208, 80) Then
MsgBox "OK"
End If
作者:
noworneverev
(小朋友)
2019-06-01 07:56:00
你写的两段是可以判断 没问题阿
楼主:
sf4566373
(阿欧收啦)
2019-06-01 09:49:00
https://imgur.com/WNfgnpo
https://imgur.com/TKYhPZy
我用逐行执行判断B4储存格,B4为粉红色底色仍判断成功事实上任何颜色都会判断OK = = 还是版本有差啊><
作者:
olycats
( )
2019-06-02 22:41:00
请问B4是原本就粉红色,还是格式化条件后变成粉红色的?最后一段 是针对储存格本身的底色去判断如果是格式化条件之后改变的颜色则无法判断
楼主:
sf4566373
(阿欧收啦)
2019-06-04 21:27:00
原来是格式化关系 = =
继续阅读
[VBA ] excel字串太长变成###...
aerolien
[VBA ] Excel的range().select的问题
HIRUMA
[VBA ] EXCEL VBA 筛选字段后分页或分档案
sonic74768
[VBA ] 问题:读取txt 某关键字下第n行的值
Nonplaner
[VBA ] 多字段画图逻辑请教
zchien
Re: [VBA ] 请问如何杀掉自己开启新版档案?
tsongs
[VBA ] 请问如何杀掉自己开启新版档案?
yimean
[.NET] 新手发问 乱数且连续的抽样(不同按钮)
yunniekevin
请问关于QB45及PDS71
bl2086
[VBA ] 请问WebBrowser如何侦测到Click
tootsie
Links
booklink
Contact Us: admin [ a t ] ucptt.com