vba代码中红,黄,蓝,绿颜色的代码是什么 求助,在ExcelVBA中设置整页文档中输入0~70数字单元...
\u7528vba\u7f16\u5199100\u523090\u4ee3\u8868\u7ea2\u8272,90\u523080\u4ee3\u8868\u84dd\u8272,80\u523070\u4ee3\u8868\u9ec4\u8272,70\u523060\u4ee3\u8868\u7eff\u8272,60dim i as integer
select case i
case 90 to 100
print "\u84dd\u8272"
case 80 to 90
print "\u84dd\u8272"
case 70 to 80
print "\u9ec4\u8272"
case 60 to 70
print "\u7eff\u8272"
case else
print "\u7070\u8272"
end select
\u4ee3\u7801\u548c\u6267\u884c\u524d\u7684\u6837\u5b50\uff1a
\u4ee3\u7801\u548c\u6267\u884c\u540e\u7684\u6837\u5b50\uff1a
红色:.Interior.Color = RGB(255, 0, 0)
绿色:.Interior.Color = RGB(0, 255, 0)
蓝色:.Interior.Color = RGB(0, 0, 255)
黄色:.Interior.Color = RGB(255, 255, 0)
参考
红=vbred ,黄=vbyellow ,蓝=vbblue ,绿=vbgreen
绛旓細涓嶄竴瀹氱敤vba锛鐢╣et.cell鍑芥暟鍐嶉厤鍚堣嚜瀹氫箟鍚嶇О锛涘綋鐒秜ba鏇寸畝鍗曘傚彧瑕佸畾涔変竴涓2缁存暟缁勶紝鎶棰滆壊缂栧彿鍜屽搴旂殑鑻辨枃鍚嶅瓧鍏ㄧ撼鍏ュ埌鏁扮粍閲岋紝杩欐牱鐢╟olorIndex鍙栭鑹茬紪鍙凤紝灏辫兘鑾峰緱璇ョ紪鍙峰搴旈鑹茬殑鑻辨枃鍚嶃傛湁鍚嶇О鐨勯鑹插悕涓鍏56绉嶃
绛旓細Sub xx() Dim x(1 To 3) a = Range([K3]).Column b = Range([K3]).Column + Range([K3]).Columns.Count - 1 s = [L3] c = 1 Do While c < 4 ^ 8 For i = a To b If Cells(c, i).Interior.ColorIndex <> xlNone Then c = c - 1 ...
绛旓細VBA妯℃嫙鍣ㄩ:鈥滈噾鎵嬫寚鈥-鈥滈噾鎵嬫寚鍒楄〃鈥-鈥浠g爜鈥-杈撳叆涓婇潰鐨勯噾鎵嬫寚鐮佸悗鈥滅‘瀹氣濆嵆鍙 GBA鐨勯噾鎵嬫寚寮鏈虹爜: 钃濆疂鐭: 6E93895C C2679628 03514D3E 7157DA35 绾㈠疂鐭: 6E93895C C2679628 02BD3075 C9E2B4CE 鐏孩(鍏堣緭鍏ュ紑鏈虹爜): 393EA2E9 797834F7 AD86124F 2823D8DA 15DBCE46 EFDB9CEA E2302908 64FD3288...
绛旓細PictureFormat.Contrast = 1 '瀵规瘮搴0-1 xShp.Fill.Visible = msoFalse '涓嶅~鍏 End If Next xShpNext xSldEnd Sub'鎴愬憳銆佸睘鎬х瓑鏌ヨ http://msdn.microsoft.com/zh-CN/office3銆佸湪PPT涓繍琛岃瀹忥紝瀹屾垚棰滆壊鏇存敼銆傝嫢瑕佹敼涓洪粦鑹诧紝浠rightness = 0 ...
绛旓細杈撳叆绋嬪簭浠g爜 鍦ㄢ滄ā鍧1鈥濈殑浠g爜绐楀彛涓紝杈撳叆涓嬫墍绀虹殑浠g爜銆傝瀵熶腑鐨浠g爜锛鎴戜滑鍙互鐪嬪埌3绉棰滆壊锛氱豢鑹层佽摑鑹层侀粦鑹层備竴鑸潵璇锛屼唬鐮娉ㄩ噴鏄剧ず涓虹豢鑹锛孷BA鐨勪繚鐣欏瓧鏄剧ず涓鸿摑鑹诧紝鑰屽叾浠栧唴瀹规樉绀轰负榛戣壊銆傝鏄庯細褰撹緭鍏ヤ繚鐣欏瓧鏃讹紝VBE浼氳嚜鍔ㄥ皢鍏堕瀛楁瘝澶у啓銆備繚鐣欏瓧涓嶅彲浠ョ敤浣滃彉閲忓悕锛屽惁鍒欑▼搴忎細鎶ラ敊銆傛敞閲 浠g爜...
绛旓細Private Sub Worksheet_Change(ByVal Target As Range) Dim n%, i%, arr, brr If Target.Address = "$I$2" Then n = Cells(Rows.Count, 1).End(3).Row + 1 arr = [e1:g1] brr = Array("缁", "绾", "钃") For i = 1 To 3 Cells(n, i) = brr(...
绛旓細interior.color = rgb(,0,0)elseif n> then range("b").interior.color = rgb(0,,0)else range("b").interior.color = rgb(,,0)end ifend sub鍏跺疄杩欑鍔熻兘浣跨敤鏉′欢鏍煎紡灏辫兘瀹炵幇锛屽苟涓嶉渶瑕vba绋嬪簭銆
绛旓細WPS鏈夊彲鑳戒笉鏀寔VBA锛濡傛灉涓嶈鐨勮瘽浣犺繕鏄畨瑁呬竴涓婨xcel鍚э紝鎸夌収浣犵殑瑕佹眰锛屽彧鏄仛浜嗕竴涓畝鍗曠殑寰幆璇彞锛屽嚑涓囨潯鏁版嵁鐨勫姣斾篃涓閿悶瀹氾紝娌′粈涔堥毦鐨锛屼唬鐮濡備笅锛歋ub bijiao()Dim i For i = 10 To 31 If Cells(i, 2) > Cells(i, 3) Then Cells(i, 2).Interior.ColorIndex = 3 Else Cells(...
绛旓細鎴戝垰鎵嶅府浣犳煡璇簡锛屽鏋滅偣鍑讳竴娆℃槸榛勮壊锛鐐瑰嚮涓ゆ鐨勮瘽灏卞彉鎴愮豢鑹层
绛旓細Cells(one, c1).Interior.ColorIndex = 3 '娑棰滆壊 End If Next '姣旇緝涓嬩竴涓 C = 0 '娓呯┖CEnd IfEnd Sub鐢ㄦ硶: 浠g爜绮樿创鍦ㄨ〃1鐨勪唬鐮侀〉涓 1銆佸湪鏁版嵁1涓姣旇緝鐨勯偅鍒楅殢渚块変竴涓崟鏍 2銆佸湪鏁版嵁2涓姣旇緝鐨勯偅鍒楅殢渚块変竴涓崟鏍 ...