别怕,ExcelVBA其实很简单一文中,关于监考表章节中,编码怎么显示用户未定义? 求别怕,EXCEL VBA其实很简单 第二版
\u6c42\u522b\u6015excel vba\u5176\u5b9e\u5f88\u7b80\u5355 \u5b8c\u6574\u7684\u7535\u5b50\u7248\u5e94\u9080\u53d1\u9644\u4ef6\u4e0a\u6765\u4f9b\u5927\u5bb6\u4e0b\u8f7d
\u53ea\u6709\u7b2c\u4e00\u7248\u7684\u54e6\uff0c\u7b2c\u4e8c\u7248\u5efa\u8bae\u8d2d\u4e70\u5370\u5237\u7248
正确代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B3:Q22").Interior.ColorIndex = xlNone '清除单元格里原有底纹颜色
If Target.Count > 1 Then '当选中的单元格个数大于1时,重新给Target赋值
Set Target = Target.Cell(1)
End If '当选中的单元格步包含指定区域的单元格时,退出程序
If Application.Intersect(Target, Range("B3:Q22")) Is Nothing Then
Exit Sub
End If
Dim rng As Range '定义一个 Rang 型变量
'遍历单元格
For Each rng In Range("B3:Q22")
If rng.Value = Target.Vlalue Then
rng.Interior.ColorIndex = 8
End If
Next
End Sub
你错误的原因,两个地方range末尾的e打丢了。
rang 你拼写错误吧, 应该是range
这样试试看呢:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B3:Q22").Interior.ColorIndex = xlNone '清除单元格里原有底纹颜色
If Target.Count > 1 Then '当选中的单元格个数大于1时,重新给Target赋值
Set Target = Target.Cell(1)
End If '当选中的单元格步包含指定区域的单元格时,退出程序
If Application.Intersect(Target, Range("B3:Q22")) Is Nothing Then
Exit Sub
End If
Dim rng As Range '定义一个 Range 型变量(这句拼错了)
'遍历单元格
For Each rng In Range("B3:Q22") '另外,你这句的range也拼错了
If rng.Value = Target.Value Then ‘这句的value也拼错了。。。
rng.Interior.ColorIndex = 8
End If
Next
End Sub
绛旓細鎺ㄨ崘Excelhome鍑虹殑銆婂埆鎬曪紝Excel鍑芥暟鍏跺疄寰堢畝鍗曘嬪鏋滆瀛BA锛屽垯閫夋嫨銆鍒曪紝Excel VBA鍏跺疄寰堢畝鍗曘嬮氫織鏄撴噦锛屽浘鏂囧苟鑼傦紝鏄嚜瀛︾殑濂芥暀鏉愶紒
绛旓細涓ゆ湰瓒崇煟锛屼竴鏈槸绾歌川锛屽彟涓鏈槸鐢靛瓙涔 銆鍒曪紝Excel VBA鍏跺疄寰堢畝鍗曘嬨奅xcel VBA锛屼竴瀛﹀氨浼氥
绛旓細鏈功閫傚悎鍏峰涓瀹欵xcel 搴旂敤鍩虹鐭ヨ瘑锛屼簡瑙xcel 鍩虹鍑芥暟搴旂敤鐨勮鑰咃紝鍙﹀涔熼傚悎璐㈠姟銆佺粺璁°佷汉鍔涜祫婧愩佸鏈嶃佸敭鍚庢湇鍔°佺數鍟嗙瓑闇瑕佸鐞嗗ぇ閲忔暟鎹殑鏈嬪弸瀛︿範銆4銆併鍒曪紝excelVBA鍏跺疄寰堢畝鍗曘嬭檻鍒板ぇ澶氭暟璇昏呮病鏈夌紪绋嬪熀纭鐨勫疄闄呮儏鍐碉紝鏈功鐢ㄦ祬鏄炬槗鎳傜殑璇█鍜岀敓鍔ㄥ舰璞$殑姣斿柣锛屽苟閰嶅悎澶ч噺鐨勬彃鐢伙紝浠嬬粛Excel涓...
绛旓細ExcelHome鍑虹殑绯诲垪鏁欐潗閮藉緢涓嶉敊锛屾湁涓嶅皯瀹炵敤鐨勬妧宸с傘婁綘鏃╄杩欎箞鐜Excel銆嬶紝銆鍒ExcleVBA鍏跺疄寰堢畝鍗曘嬭繖涓ゅ眰杩樹笉閿欍
绛旓細銆鍒,EXCEL VBA鍏跺疄寰堢畝鍗曘嬩汉姘戦偖鐢靛嚭鐗堢ぞ杩欐湰涔︽槸Excel Home缃戠珯鑰冭檻鍒板ぇ澶氭暟璇昏呮病鏈夌紪绋嬪熀纭鐨勫疄闄呮儏鍐,鐢ㄦ祬鏄炬槗鎳傜殑璇█鍜岀敓鍔ㄥ舰璞$殑姣斿柣,骞堕厤鍚堝ぇ閲忔彃鐢,浠嬬粛Excel涓湅浼煎鏉傜殑姒傚康鍜屼唬鐮;浠庣畝鍗曠殑瀹忓綍鍒躲乂BA缂栫▼鐜鍜屽熀纭璇硶鐨勪粙缁,鍒板父鐢ㄥ璞$殑鎿嶄綔涓庢帶鍒躲丒xcel浜嬩欢鐨勮皟鐢ㄤ笌鎺у埗銆佺敤鎴风晫闈㈣璁°佷唬鐮佽皟璇...
绛旓細鎺ㄨ崘涓鍧沜lub.excelhome.net锛屽幓閲岄潰鐨刅BA涓撳尯鐪嬬湅銆傚叾涓湁涓奅XCEL VBA 甯哥敤浠g爜瀹炴垬澶у叏銆嬬殑甯栧瓙闈炲父濂斤紝閫氫織鏄撴噦锛屾繁鍏ユ祬鍑恒傛湁鏈珽home鏂板嚭鐨刅BA鏂归潰鐨勪功涔熶笉閿欙紝鍙仛銆鍒曪紝Excel VBA鍏跺疄寰堢畝鍗曘嬶紝涓嶈繃寰楄姳閽变拱锛屾湁鐐瑰皬璐点
绛旓細鎴戞湁杩欎釜锛岄渶瑕佸彲浠ョ櫨搴︿簯鑱旂郴锛堣繖閲岃创閾炬帴浼氳鍒犻櫎锛夊叡314椤碉紝鏈鍚1椤碉細
绛旓細鍦ㄥVBA涔嬪墠锛岃鎼炲紕娓呮鍑犱釜姒傚康锛1銆佷簡瑙XCEL涓滃崟鍏冩牸鈥濃滃伐浣滆〃鈥濃滃伐浣滅翱鈥濆拰鈥滃叕寮忊濓紱2銆佷粈涔堟槸VBA锛熶粈涔堟槸瀹忥紵3銆乂BE缂栬緫鍣ㄦ槸浠涔堬紵4銆佷粈涔堝璞°佸睘鎬с佹柟娉曪紵鎼炴竻妤氳繖浜涘熀鏈煡璇嗗悗锛屽啀涔板嚑鏈琕BA鍏ラ棬涔︾睄锛屽锛氥鍒曪紝Excel VBA鍏跺疄寰堢畝鍗曘嬨併婃繁鍏ユ祬鍑篍xcel VBA銆嬶紝鐢ㄤ功涓殑瀹炰緥涓婃満...
绛旓細鍙互銆愮櫨搴︿簯鐩樸戯紙涓涓娇鐢ㄧ櫨搴﹀笎鍙风櫥褰曠殑鍙互瀵硅瘽鍜屼紶鏂囦欢鐨勫簲鐢ㄨ蒋浠讹級涓婃壘鎴戣锛屾垜鏈変笅闈㈣繖浜涳細
绛旓細浠Excel2007寮濮嬶紝鏂囦欢xlsx鏃犳硶淇濆瓨瀹忋傚繀椤诲彟瀛樹负鍚敤瀹忕殑宸ヤ綔绨挎垨97-2003宸ヤ綔绨挎墠鑳戒繚瀛樺畯銆