怎么在单元格中设置多选下拉框
单元格中设置多选下拉框是可以做到的
楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：
先在【清单】表中列举一个姓名列表
在【多选下拉菜单】表中设置多选下拉框，按Alt+F11键进入VBE编辑器，将如下两段代码粘贴到【多选下拉菜单】这个表的右侧代码区
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If ListBox1.ListIndex = -1 Then Exit Sub
Dim i&, str$
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
str = str & ";" & .List(i)
End If
Next
.TopLeftCell.Offset(, -1).Value = Mid(str, 2)
.Visible = False
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 And Target.Column = 2 Then
Dim arr
arr = Sheets("清单").Cells(2, 1).Resize(Sheets("清单").Cells(Rows.Count, 1).End(xlUp).Row - 1)
With ListBox1
.MultiSelect = 1
.ListStyle = 1
.List = arr
.Top = Target.Top
.Left = Target.Left + Target.Width
.Height = Target.Height * 15
.Width = 90
.Visible = True
End With
Else
ListBox1.Clear
ListBox1.Visible = False
End If
End Sub
最终效果如图：
注意：档案要保存为启用宏的工作簿
绛旓細纭璁剧疆鍚庯紝鐐瑰嚮"纭畾"鎸夐挳銆傜幇鍦紝浣犵殑Excel鍗曞厓鏍间腑灏变細鏄剧ず涓涓澶氶変笅鎷夋锛岀敤鎴峰彲浠ュ湪鍏朵腑閫夋嫨涓涓垨澶氫釜閫夐」銆傜敤鎴烽夋嫨鐨勯夐」灏嗘樉绀哄湪鎵閫夊崟鍏冩牸涓紝鐢ㄩ楀彿鍒嗛殧銆傝娉ㄦ剰锛岃繖绉嶅閫変笅鎷夋鍙兘鍦‥xcel涓紝浣犲彲浠ラ氳繃鏁版嵁楠岃瘉鍔熻兘鏉ュ疄鐜鍦ㄥ崟鍏冩牸涓娣诲姞澶氶変笅鎷夋銆備互涓嬫槸鍏蜂綋鐨勬楠わ細鎵撳紑Excel骞堕夋嫨瑕...
绛旓細瑕佷负Excel琛ㄦ牸涓鐨勫崟鍏冩牸璁剧疆涓嬫媺澶氶鍔熻兘锛岄鍏堬紝璇锋墦寮浣犵殑Excel宸ヤ綔琛紝閫夋嫨浣犳兂瑕佸簲鐢ㄦ鍔熻兘鐨勫崟鍏冩牸鎴栧崟鍏冩牸鍖哄煙銆傛帴鐫锛屾壘鍒板苟鐐瑰嚮浣嶄簬鈥滄暟鎹濋夐」鍗′腑鐨勨滄暟鎹獙璇佲濇垨鈥涓嬫媺鍒楄〃鈥濋夐」銆傝娉ㄦ剰锛岃繖涓夐」鐨勪綅缃彲鑳藉洜Excel鐨勪笉鍚岀増鏈屾湁鎵鍙樺寲銆傚湪鈥滄暟鎹獙璇佲濆璇濇涓紝閫夋嫨鈥滃簭鍒椻濋夐」浣滀负...
绛旓細锛屼綘闇瑕佺浉搴斿湴鏇存敼銆傚畬鎴愪唬鐮佷慨鏀瑰悗锛岃寰椾繚瀛樺惈鏈夊畯鐨勫伐浣滅翱銆傚畯鐨勮繍琛屼細鍦ㄧ敤鎴烽夋嫨鍗曞厓鏍鏃惰嚜鍔ㄨЕ鍙戜笅鎷夎彍鍗曠殑鏄剧ず銆傛渶鍚庯紝浣撻獙涓涓嬩綘鍒涘缓鐨澶氶変笅鎷夋鍔熻兘銆備絾璇峰姟蹇呮敞鎰忥紝瀹忓彲鑳藉甫鏉ュ畨鍏ㄩ闄╋紝鍥犳鍦ㄤ娇鐢ㄦ椂鍔″繀纭繚鍦ㄥ畨鍏ㄧ殑鐜涓紝骞朵笖纭繚Excel鐨勫畯璁剧疆姝ｇ‘锛屼互纭繚瀹忚兘姝ｅ父涓斿畨鍏ㄥ湴宸ヤ綔銆
绛旓細1鎵撳紑excel锛岄変腑闇瑕佸湪涓嬫媺閫夐」涓変腑澶氫釜鐨鍗曞厓鏍2闅忓悗鐐瑰嚮椤甸潰涓婃柟鐨勬暟鎹寜閽3鍦ㄩ殢鍚庢墦寮鐨勭晫闈腑鐐瑰嚮绛涢夋寜閽4闅忓悗鐐瑰嚮鍑虹幇鐨勪笅鎷夎彍鍗5鍦ㄦ帴鐫寮瑰嚭鐨勪笅鎷夐夐」涓娇鐢ㄩ紶鏍囩偣鍑荤殑鏂瑰紡閫変腑澶氫釜6銆傛瘮濡傚湪A1璁剧疆涓嬫媺鑿滃崟鍖椾含锛屽ぉ娲ワ紝涓婃捣閫夋嫨A1锛屾暟鎹暟鎹湁鏁堟ц缃厑璁稿簭鍒楋紝 鈥滄潵婧愨濊緭鍏モ滃寳浜紝澶╂触锛屼笂娴封...
绛旓細鐐瑰嚮 "纭畾"锛圤K锛夋寜閽簲鐢璁剧疆骞跺叧闂暟鎹獙璇佸璇濇銆傜幇鍦紝浣犵殑鍗曞厓鏍兼垨鍗曞厓鏍煎尯鍩熷氨浼氭樉绀轰竴涓涓嬫媺鑿滃崟锛屽叾涓寘鍚綘鍦ㄦ楠 5 涓緭鍏ョ殑閫夐」銆備綘鍙互浣跨敤榧犳爣鐐瑰嚮涓嬫媺鑿滃崟骞堕夋嫨澶氫釜閫夐」锛屾垨鑰呮寜浣 "Ctrl" 閿苟鍗曞嚮閫夐」鏉ヨ繘琛澶氶銆傞変腑鐨勯夐」灏嗕互閫楀彿鍒嗛殧鐨勫舰寮忔樉绀鍦ㄥ崟鍏冩牸涓銆傝娉ㄦ剰锛岃繖绉嶆柟娉曚粎閫傜敤...
绛旓細瑕佸湪Excel鍗曞厓鏍间腑鍒涘缓涓涓彲浠澶氶鐨勪笅鎷夎彍鍗曪紝浣犻渶瑕佹寜鐓т互涓嬫楠ゆ搷浣滐細棣栧厛锛屽噯澶囦竴涓寘鍚涓夐」鐨勬暟鎹簮锛岃繖鍙互鏄竴涓崟鐙殑宸ヤ綔琛ㄤ腑鐨勫垪锛屾垨鑰呮槸涓涓悕涓衡滄竻鍗曗濈殑宸ヤ綔琛ㄤ腑鐨勫唴瀹广傜‘淇濇墍鏈夐夐」宸叉暣鐞嗗ソ骞跺垪鍦ㄦ竻鍗曚腑銆傞夋嫨浣犳兂瑕璁剧疆涓嬫媺鑿滃崟鐨勯偅涓崟鍏冩牸锛岃繖涓崟鍏冩牸灏嗕細鏄剧ず涓虹敤鎴蜂氦浜掔殑鐣岄潰銆...
绛旓細鏁版嵁鏈夋晥鎬璁剧疆澶氫釜閫夋嫨鍏蜂綋濡備笅锛1銆侀鍏堝湪鐢佃剳涓婃墦寮涓涓狤XCEL鏂囦欢锛岀劧鍚庨変腑鐩爣鍗曞厓鏍锛岀偣鍑讳笂鏂瑰伐鍏锋爮涓殑鈥滄暟鎹濋夐」銆2銆佺劧鍚庡湪鍑虹幇鐨勯夐」椤甸潰涓紝鐐瑰嚮鈥滄暟鎹湁鏁堟р濇梺杈圭殑涓嬫媺绠ご銆3銆佺劧鍚庡湪鍑虹幇鐨涓嬫媺妗涓紝鐐瑰嚮鈥滄暟鎹湁鏁堟р濋夐」銆4銆佺劧鍚庡湪鍏佽鐨勮缃尯鍩熼夊簭鍒椻濓紝鍦ㄢ滄潵婧愨濆尯鍩熶笅闈㈢殑...
绛旓細2銆 鈥滃湪涓嬫媺鑿滃崟涓夋嫨涓涓间箣鍚庤兘鍚屾椂鍦ㄥ彟涓涓鍗曞厓鏍奸噷瀵瑰簲鍑轰竴涓暟鍊兼垨鏄枃瀛椻濓紝杩欒鏍规嵁瀹為檯鎯呭喌鍐嶅姞宸ョ殑鍝︼紒 鍒朵綔浜岀骇涓嬫媺鑿滃崟锛璁剧疆鈥滄暟鎹濊〃 A鍒 B鍒 閮ㄩ棬鍛樺伐 A 寮犱笁 鏉庡洓 B 鐜嬩簩 閮戝ぇ C 鍒樹竴 鐜嬩簲 D 鍒濅竴 璧甸挶 鈥︹ 鍛藉悕锛 閫変腑A鍒楋紝鍦ㄢ滃悕绉版鈥濅腑杈撳叆鈥滈儴闂...
绛旓細鎵撳紑浜嗕笅鎷変箣鍚庡緢澶氱敤鎴风湅鍒板彲鑳藉彧鏈変竴涓夐」锛屼絾鏄叾瀹炴槸鍙互鍦ㄨ繖閲岄潰璁剧疆澶氶椤圭殑锛屾垨璁稿緢澶氱敤鎴蜂笉浼氾紝浣嗘槸涔熶笉鐢ㄦ媴蹇冿紝涓嬮潰灏辩湅鐪媏xcel涓嬫媺鍒楄〃鎬庝箞璁剧疆澶氶鍚с俥xcel涓嬫媺鍒楄〃鎬庝箞璁剧疆澶氶夛細1銆侀鍏堝缓绔琛ㄦ牸锛岀劧鍚庣偣鍑讳换鍔℃爮鐨勨滄暟鎹濓紝閫夋嫨鈥滀笅鎷夊垪琛ㄢ濄2銆佺劧鍚庡彲浠ュ湪鏂扮獥鍙ｄ腑閫夋嫨鈥滀粠鍗曞厓鏍閫夋嫨涓嬫媺閫夐」...
绛旓細鍦╓indows 10鐜涓紝鍒╃敤WPS Office 11.0.7鐗堟湰锛屼綘鍙互杞绘澗璁剧疆琛ㄦ牸鍗曞厓鏍瀹炵幇涓嬫媺澶氶銆傞鍏堬紝鎵撳紑WPS Office锛岀偣鍑婚《閮ㄧ殑鈥滄柊寤衡濋夐」锛岄殢鍚庡湪鏂板缓鏂囨。鐣岄潰涓夋嫨鈥滆〃鏍尖濆浘鏍囷紝鍒涘缓涓涓┖鐧借〃鏍兼枃妗ｄ綔涓哄熀纭銆傛帴涓嬫潵锛屽皢榧犳爣瀹氫綅鍒颁綘鎯宠璁剧疆涓嬫媺鑿滃崟鐨勫崟鍏冩牸涓婏紝閫氳繃鐐瑰嚮閫変腑瀹冦傜劧鍚庯紝鍒囨崲鍒拌彍鍗曟爮锛...
