如何用VBA获取各颜色的英文名 VBA 获取所有字体颜色和填充颜色的FaceID
EXCEL VBA\u6309\u989c\u8272\u63d0\u53d6\u989c\u8272\u548c\u5185\u5bb9Sub s() Set rg1 = [K14:T23] Set rg2 = [V3:w13] Set t = [l1:p1] x = 1 y = 1 For i = 1 To 5 cl = t(i).Interior.Color kk = "" For j = 1 To rg1.Columns.Count For k = 1 To rg1.Rows.Count If rg1.Cells(k, j).Interior.Color = cl Then If kk = "" Then rg1.Cells(k, j).Copy rg2.Cells(x, y) kk = rg1.Cells(k, j) Else rg2.Cells(x, y) = kk & "/" & rg1.Cells(k, j) If x "" Then If x < rg2.Rows.Count Then x = x + 1 Else x = 1 y = y + 1 End If End If NextEnd Sub
excel \u91cc\u9762\u6839\u672c\u5c31\u4e0d\u4f1a\u4e3a\u6bcf\u4e2a\u989c\u8272\u5355\u72ec\u4f7f\u7528\u4e00\u4e2a\u56fe\u6807\u3002
A \u662f\u4e00\u4e2a\u56fe\u6807\uff0c\u4e0b\u9762\u7684\u989c\u8272\u6211\u731c\u662f \u63a7\u4ef6\u3002
\u4f60\u53ef\u4ee5\u81ea\u5df1\u7528\u4e0b\u9762\u4ee3\u7801\u6765\u679a\u4e3eFaceID\u770b\u770b\u3002
Sub ShowFaceIDs() Dim NewToolbar As CommandBar Dim NewButton As CommandBarButton Dim i As Integer, IDStart As Integer, IDStop As Integer On Error Resume Next Application.CommandBars("FaceIds").Delete On Error GoTo 0 Set NewToolbar = Application.CommandBars.Add _ (Name:="FaceIds", temporary:=True) NewToolbar.Visible = True IDStart = 1 IDStop = 1000 For i = IDStart To IDStop Set NewButton = NewToolbar.Controls.Add _ (Type:=msoControlButton, ID:=2950) NewButton.FaceId = i NewButton.Caption = "FaceID = " & i Next i NewToolbar.Width = 600End Sub
颜色有几千万种，亲不是每一种都有名字
有了：
http://www.excel123.cn/Article/excelvba/200908/429.html
下面是中文色名称，翻译后不一定能用，看网友能不能翻译下继续完成我的回答。
无色 = -4142
自动 = -4105
黑色 = 1
褐色 = 53
橄榄 = 52
深绿 = 51
深青 = 49
深蓝 = 11
靛蓝 = 55
灰色25 = 15
灰色40 = 48
灰色50 = 16
灰色80 = 56
深红 = 9
橙色 = 46
深黄 = 12
绿色 = 10
青色 = 14
蓝色 = 5
蓝灰 = 47
红色 = 3
浅橙色 = 45
酸橙色 = 43
海绿 = 50
水绿色 = 42
浅蓝 = 41
紫罗兰 = 13
粉红 = 7
金色 = 44
黄色 = 6
鲜绿 = 4
青绿 = 8
天蓝 = 33
梅红 = 54
玫瑰红 = 38
茶色 = 40
浅黄 = 36
浅绿 = 35
浅青绿 = 34
淡蓝 = 37
淡紫 = 39
白色 = 2
刚才试了一下，只有 红、绿、蓝、黄、黑、白（red green blue yellow black white）几种 颜色可以用英文名称进行赋值。只是用英文对单元格字体进行赋值，目前还不知道怎么反求。
Range("b1:b4").Font.Color = vbRed
这个貌似有点难
绛旓細涓嶄竴瀹氱敤vba锛岀敤get.cell鍑芥暟鍐嶉厤鍚堣嚜瀹氫箟鍚嶇О锛涘綋鐒秜ba鏇寸畝鍗曘鍙瀹氫箟涓涓2缁存暟缁勶紝鎶婇鑹茬紪鍙峰拰瀵瑰簲鐨勮嫳鏂囧悕瀛楀叏绾冲叆鍒版暟缁勯噷锛岃繖鏍风敤colorIndex鍙栭鑹茬紪鍙锛屽氨鑳借幏寰楄缂栧彿瀵瑰簲棰滆壊鐨勮嫳鏂囧悕銆傛湁鍚嶇О鐨勯鑹插悕涓鍏56绉嶃
绛旓細闄ら潪浣犲缓绔嬩竴涓瀵瑰簲琛紝鐢╒LOOKUP
绛旓細鐢0300510a:XX杈撳叆閲戞墜鎸, 鐒跺悗鍐嶅垹鎺夐噾鎵嬫寚, 鍥炲埌VBA鎸堿涔颁笅, 缁撴灉灏辨湁浜 XX鍒楄〃 鈻犵悆 0001 澶у笀鐞 0002 瓒呭姏鎬吔鐞 0003 瓒呯骇鐞(姣旀吔鐞冩洿鍘夊浜) 0004 鎬吔鐞(鏅氱殑鐞) 0005 鐮傜嫄鐞(鐮傜嫄涔愬洯涓撶敤鐞) 0006 瑙︾綉鐞(瀹规槗鎶撴按鍜岃櫕绫荤殑鎬吔) 0007 澶у竷鏂悆(瀹规槗鎶撴捣搴曠殑鎬吔) 0008 灏兼柉閬撶悆(鎬吔瓒...
绛旓細闇瑕佸幓涓嬭浇涓涓狿INYIN鍑芥暟锛岀劧鍚庤繘琛岃浆鎹 鑷充簬鏍煎紡瑙勮寖锛屽彲浠ョ敤UPPER(LEFT(鎷奸煶,1))&LOWER(RIGHT(鎷奸煶,LEN(鎷奸煶)-1))鑰屼笖锛屽浜庡闊冲瓧锛孭INYIN鍑芥暟鍙兘浼氫粎杩斿洖绗竴涓闊崇殑鎷奸煶
绛旓細鎿嶄綔姝ラ:鍋囪鎴戜滑鍦ˋ鍒楄緭鍏ュ鐢熺殑涓枃鍚,B鍒楄緭鍏ュ鐢鐨勮嫳鏂囧悕銆傚厛閫夊畾B鍒,鐐瑰嚮杩涘叆鏁版嵁\鏈夋晥鎬,鎵撳紑鏁版嵁鏈夋晥鎬у璇濇;閫夋嫨杈撳叆娉曞璇濇,鍦ㄦā寮忎笅鎷夎彍鍗曚腑閫夋嫨鍏抽棴(鑻辨枃妯″紡);鐒跺悗鍐嶇‘瀹,鐪嬬湅鎬庝箞鏍枫 [搴旂敤涓塢鏁版嵁鍞竴鎬ф楠 鍛樺伐鐨勮韩浠借瘉鍙风爜搴旇鏄敮涓鐨,涓轰簡闃叉閲嶅杈撳叆,鎴戜滑鐢ㄢ滄暟鎹湁鏁堟р濇潵鎻愮ず澶у銆
绛旓細涓枃鍚:瀹嬭寽 鑻辨枃鑹哄悕:Victoria Song 闊╂枃鑹哄悕:빅토리아 鏃ユ枃鑹哄悕:銉撱偗銉堛儶銈 鍥界睄:涓浗 瀹嬭寽 鍑虹敓鍦:灞变笢闈掑矝 鐢熸棩:1987.02.02 鏄熷骇:姘寸摱搴 鐢熻倴:鍏 韬珮:168CM 闃熷唴鑱屽姟:闃熼暱銆佷富棰嗚垶銆佽蒋浣撴媴褰撱佷腑鏂囨媴褰 琛鍨:A鍨 鏄电О:灏忛槦,瀹媗eader,涓浗濮愬(HF鐢),pororia(HF鐢),瀹嬪,瀹嬮槦,V濮,V闃,鑼滃,...
绛旓細1.鍏堟妸鏂囦欢鏀惧湪鍚屼竴涓洰褰曚笅,鏈濂芥槸鏍圭洰褰,鍥犱负杩欐牱鏂逛究,褰撶劧,涔熷彲浠ユ斁鍦ㄥ悓涓涓枃浠跺す鍐,浣嗘枃浠跺す涓瀹氳鐢鑻辨枃鍚銆 2.鍗曞嚮鈥滃紑濮嬧濊彍鍗,閫夋嫨鈥滆繍琛屸濄傜劧鍚庡湪杩愯妗嗗唴杈撳叆CMD(濡傛灉浣犵殑绯荤粺鏄2000鎴朮P)鎴栬卪and(濡傛灉鎮ㄧ殑绯荤粺鏄98),鎸夌‘瀹氬嵆鍙繘鍏ュ懡浠よ绋嬪簭銆 3.閫氳繃杈撳叆鍛戒护杩涘叆瑙嗛鏂囦欢鎵鍦ㄧ洰褰曘傚亣璁炬偍鐨...
绛旓細钃濆厜鎵嬫父澶у笀鍥㈤槦涓烘偍鍒嗕韩vba8鍦╓P8涓婄殑浣跨敤鏂规硶锛1銆佸埌WindowsPhone瀹樻柟甯傚満鎼滅储VBA8锛屽苟浠樿垂涓嬭浇锛岀劧鍚庡畨瑁咃紙鐩墠娌℃湁鐮磋В锛2銆佷笅杞紾BA ROM锛岀劧鍚庝笂浼犲埌浣犵殑skydrive绌洪棿銆傛敞鎰忥細ROM蹇呴』鏄鑻辨枃鍚銆3銆佺敤鎵嬫満鎵撳紑VBA8杞欢锛岀偣鍑烩渟ign in鈥濈櫥闄嗕綘鐨勫井杞处鍙枫4銆佺櫥鍏ユ垚鍔熶箣鍚庯紝杞欢鐣岄潰鐨勨渂rowse ...
绛旓細姣忔鍒涘缓鏂扮殑妯″潡鐨勬椂鍊欙紝鏈濂戒笉瑕佷娇鐢ㄩ粯璁ょ殑妯″潡鍚嶇О銆傚綋鐒跺鏋滄槸鑻辨枃鍚嶇О鐨勮瘽搴旇娌℃湁闂銆備絾濡傛灉鏄腑鏂囧悕绉扮殑璇濓紝绻佷綋鍚嶇О鐢ㄥ埌绠浣撶郴缁熶笅灏变細鍑洪敊锛岀敋鑷充涪澶便傚弽涔嬩篃鏄姝わ紒鍏绘垚鍙婃椂淇敼妯″潡鍚嶇О鐨勪範鎯紝鏈濂芥槸浣跨敤鑻辨枃鍚嶇О銆傜敤鍒颁换浣昗indows鎿嶄綔绯荤粺涓嬮兘涓嶄細鍑洪敊銆
绛旓細鐒跺悗鍦–:寤轰竴涓鑻辨枃鍚鏂囦欢澶,鎶夾wdflash.exe澶嶅埗鍒版枃浠跺す涓. 閫氳繃DOS鍚姩杩愯Awdflash. 鍦ㄧ涓琛岃緭鍏IOS鐨勫崌绾ф枃浠,鍋囧浣犲苟涓嶇煡閬撴垨鏄壘鍒拌嚜宸辩殑BIOS鐨勫崌绾ф枃浠,鍙互鍏堥殢渚胯緭鍏,涔嬪悗浼氭彁绀烘槸鍚﹁淇濆瓨褰撳墠BIOS鏂囦欢,閫塝鍚屾剰,杈撳叆闇瑕佷繚瀛樼殑BIOS鏂囦欢鍚,涓鑸负***.BIN(鍚庣紑鍚嶄竴鑸病鏈夊叧绯:Award BIOS涓築IN,AMI ...
