电子表格根据颜色返回数据

1. 濡备綍鍐岴xcel琛ㄦ牸涓婄洿鎺ユ彁鍙栨爣娉ㄥ悓涓棰滆壊镄勮屾暟鎹锛

鍦‥xcel琛ㄦ牸涓婄洿鎺ユ彁鍙栨爣娉ㄥ悓涓棰滆壊镄勮屾暟鎹鍙浣跨敤绛涢夊姛鑳藉疄鐜般

鏂规硶姝ラゅ备笅锛

1銆佹墦寮闇瑕佹搷浣灭殑EXCEL琛ㄦ牸锛岀偣鍑绘暟鎹阃夐”鍗′腑镄勨灭瓫阃夆濓纴涓鸿〃镙兼坊锷犵瓫阃夊姛鑳姐

2. EXCEL涓锛屽綋A鍒椾腑镄勫崟鍏冩牸涓洪粍镩诧纴鍏跺瑰簲B鍒楃殑鍗曞厓镙间腑镄勬暟鍊煎皢绐佹樉鍑烘潵锛岃繖鐢ㄥ叕寮忔垨𨱒′欢镙煎纺濡备綍镎崭綔锛

鍒嗕袱姝ユ潵杩涜
1.镣瑰嚮鎻掑叆-钖岖О-瀹氢箟锛屽畾涔夊悕绉颁负钬滈滆壊钬濓纴涓嬮溃镄勫紩鐢ㄤ綅缃涓衡=GET.CELL(38,Sheet1!A1)钬濓纴纭瀹氥傜劧钖庡湪C鍒楃涓琛岃緭鍏モ=棰滆壊钬濓纴锲炶溅锛岀劧钖庝笅𨰾夈备细鐪嫔埌涓缁勬暟鎹锛屽叾涓瑼鍒椾负榛勮壊鑳屾櫙镄勫瑰簲C鍒椾腑鏁板间负6.

2锛岀劧钖庨夊畾B鍒椻斺旀牸寮忊斺旀浔浠舵牸寮忊斺斿叕寮忥细=C1=6锛岃剧疆濂藉瓧浣撴牸寮忎负绮椾綋鎴栧叾浠栨牸寮忊斺旂‘瀹氩嵆鍙锛

3. 銆愭眰锷┿慹xcel涓濡备綍璁╂煇涓鑳屾櫙镩查滆壊涓洪粍镩茬殑鍗曞厓镙硷纴鍦ㄥ彟涓鍒楄繑锲1锛

杩欎釜闂棰樼敤VBA锅氩緢鏂逛究锛佽嫢鏄鐢ㄥ嚱鏁版潵锅氾纴涔熻岋紒闇瑕佷娇鐢ㄣ愬悕绉般戯细
鑻ヤ綘镄𪞝2鍗曞厓镙间负榛勮壊搴曡壊锛岋纸榛勮壊浠ｇ爜涓猴细6锛夋垜浠鍦˙2鏄剧ず1锛屽惁鍒欐樉绀 绌
阃変腑B2锛岃彍鍗曘愭彃鍏ャ戙愬悕绉般戙愬畾涔夈戯纴钬滃悕绉伴”钬濓细hs锛屸滃紩鐢ㄤ綅缃钬濓细=IF(GET.CELL(63,A2)=6,1,"")锛岀‘瀹氾紒
铹跺悗鎴戜滑鍦˙2鍐椤叕寮忥细
=hs
鍙浠ヤ笅𨰾栧嶅埗锛佽繖镞跺綋A鍒楃殑镆愪釜搴曡壊涓衡滈粍镩测濇椂锛岀浉搴旂殑B鍒楀氨浼氭樉绀1
铡昏瘯涓璇曞惂锛佽嫢链夐梾棰樿风暀涓嬮偖绠憋纴鎴戝皢鏂囦欢鍙戠粰浣狅紒鎴栬疯拷闂锛