单元格中设置多选下拉框是可以做到的
楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：
先在【清单】表中列举一个姓名列表
在【多选下拉菜单】表中设置多选下拉框，按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
最终效果如图：
注意：档案要保存为启用宏的工作簿
单元格中设置多选下拉框是可以做到的
楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：
先在【清单】表中列举一个姓名列表
在【多选下拉菜单】表中设置多选下拉框，按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
最终效果如图：
注意：档案要保存为启用宏的工作簿
单元格中设置多选下拉框是可以做到的
楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：
先在【清单】表中列举一个姓名列表
在【多选下拉菜单】表中设置多选下拉框，按Alt+F11键进入VBE编辑器，将如下两段代码粘贴到【多选下拉菜单】这个表的右侧代码区
“呼…看来想要顺利的夺回青莲的心火。还真是一件棘手的任务啊。”轻叹了一口气。萧炎苦恼的揉了揉额头。在这种险的。即使是有着药老护持。他也不可能横行无阻。毕竟现在的药老仅仅只是灵魂状态。以往的实力。不可能完全的挥。而那美杜莎女王又是凶名远播的级强者。若是此时的萧炎被她给盯上的话。恐怕结果不会太美好。
再者。蛇人族的整体实力。也是比加玛帝国还要强大许多。若不是由于它需要随时应付着来自四面八方的攻击。恐怕在以往的对战中。加玛帝国早就吃了大亏。
“唉…”摇了摇头。萧炎低声问道：“老师。现在怎么办？”
“加赶路吧。尽早到美杜莎神殿附近。如果到时候古河他们与美杜莎女王战斗了起来。我们便潜行进入神殿寻找异火吧。虽然如今我因为灵魂状态而导致实力大减。不过若是想要掩藏气息的话。至少美杜莎女王也是难以察觉出来便是。”药老沉吟道。
闻言。萧炎微微点了点头。将背上的玄重尺取下。收进纳戒之中。轻吐了一口气。紫色的斗气纱衣逐渐的覆盖上身体。脚掌猛的一踏的面。身形几乎是贴着的面。化为一道紫色影子。对着的图上所绘的路线急掠去。
由于天色清朗。所以萧炎也不敢展开紫云翼高空飞行。不然万一被下方到处巡逻的蛇人队伍现。那可将会过早的暴露自己。这对想要当渔人的萧炎来说。可不是什么太好的事情。
在的面上奔掠。虽然度要较缓一些。不过有着药老强大的灵魂感知力相助。散布在沙漠深处的那些蛇人巡逻队。都是提前被萧炎躲避了开去。
在这般近乎拼命般的狂掠了将近几个小时。途中惊险的躲避开了好几十波巡逻队伍。在天空上的烈日逐渐对着西方落下之时。一座巨大的城市。终于是隐隐的出现在了的平线的尽头。
越加接近城市。萧炎现。在这座堪称雄伟的城市周围。千篇一律的黄沙之中。竟然开始多出了许多巨大的石头。在这些乱石之后。便是那座居住着美杜莎女王的神殿城市。
身体躲在一处巨石之后。萧炎嘴中急的喘着粗气。几个小时不要命的连续奔跑。若不是有着回气丹的支持。恐怕他早就因为斗气告竭而软了下去。不过绕是如此。现在萧炎的双腿。也已经近乎麻木。一股股刺痛的感觉。让的他嘴角微微抽搐着。
伸手抹去脸庞上夹杂着黄沙的汗水。萧炎仰起头。望着逐渐暗下来的天色。长长的喘了一口气。苦笑道：“为了那青莲的心火。我可真的是拼命了啊…”
躺在巨石之后休息了足足十多分钟。萧炎全身酸麻的从纳戒中取出一枚回气丹塞进嘴中。半晌后。感受到体内逐渐流淌起来的斗气。这才松了一口气。小心翼翼的翻了一个身子。目光透过巨石的缝隙。遥遥的望着远处那矗立在沙漠中的巨大城市。
或许是因为戒严的因故。现在这座庞大的城市。已经是城门紧闭。在那城墙之上。全副武装的蛇人护卫。来回的在城墙之上巡逻着。城墙上空处。十几头漆黑的大鸟。也是来回的盘旋着。尖锐的目光。在城外不断的扫视着。任何一点风吹草动。都会让的这些畜生出警报之声。
目光小心翼翼的扫过城墙之上。萧炎脸庞略微有些难看。虽然相隔甚远。不过他还是能够现。这座城市的蛇人护卫。总体实力绝对比昨天夜里的魅蛇部落更强。而且在那些蛇人护卫之中。还偶尔掺杂着一些服饰有些怪异的蛇人。这些蛇人。面色冷漠。犹如柱子一般的立在城墙之上。可萧炎在粗略扫视着现。在这些蛇人周围几丈之处。没有一个其他蛇人敢踏足其中。明显。他们颇为畏忌这些服饰怪异的蛇人。
“这些家伙…想必应该便是美杜莎亲卫部队吧？果然很强悍啊…”悄悄的收回目光。萧炎将身体紧紧的缩在石头缝隙之间。苦笑着轻声道。
“现在就安静的等在这里吧。我想。古河他们应该很快就会过来了。到时候趁着乱起来的时候。我们便偷偷的潜行进去吧…在这座城市之中。我已经能够粗略的感觉到青莲的心火的存在了。”药老的声音从漆黑的古朴戒指中传了出来。
“果然是在这里么…”闻言。萧炎脸庞上涌上一抹喜意。这或许是在这孤身深入敌营的情况下。为数不多的好消息了。
悄悄的将喜意再度压下。萧炎从纳戒中取出一件金黄色的毯子。然后披在身体之上。顿时。身体便是化成了与周围沙子同色的金黄。若是人不走近来看。还真的难以现此处还躲藏着一个人。
在萧炎掩藏好身形后不久。药老的沉声。忽然在心中响起：“小心。有一股强大的气息正在对着这里接近。”
听的药老的提醒。萧炎心中一紧。呼吸悄悄的平稳而下。而药老的灵魂