...的一个单元格中设置多选下拉框,可以勾选多个选项的那种?

发布网友 发布时间：2024-01-13 08:52

我来回答

共5个回答

热心网友 时间：2024-08-11 15:36

单元格中设置多选下拉框是可以做到的

楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：

先在【清单】表中列举一个姓名列表

在【多选下拉菜单】表中设置多选下拉框，按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

最终效果如图：

注意：档案要保存为启用宏的工作簿

热心网友 时间：2024-08-11 15:43

特斯拉股票是比较不错的，但是存在的问题就是非常不稳定。特斯拉股票的最高点来到了每股元，但是从现在这种情况上来看的话，特斯拉现在每股只有。从特斯拉股票的价格来看的话，是从年年底的时候，它的股价开始慢慢的上涨。在那个时期，也经历过一次腰斩。只不过到了后来的时期，特斯拉的股价是直线上升的。现在特斯拉的总市值已经超过多亿，它的换手率也比较低。从现在的情况来看，特斯拉已经有一个反弹的需求了，在前段时间的时候，特斯拉的股票甚至降到了多元一股。那个时候就是阶段性的低点，然后接下来就会反弹。特斯拉这只股票还是非常不错的，是从事于这种新能源汽车的产业。而结合当前的这种情况上来看，新能源汽车无疑是时下最热门的行业之一，有非常多的企业都想要去做自己的新能源汽车，很多传统的互联网公司也在加入新能源汽车的制作与筹备之中，在这样的大趋势之下，特斯拉作为新能源汽车的龙头企业，它的发展更是节节高升。投资角度上来看的话，特斯拉虽然说有投资的这种价值，但是它本身的波动是非常高的。从长期的视角上来看，特斯拉的股票是非常值得去购买的，只是他的这种每股价格还是比较贵的。相对于比亚迪这样的新能源企业来说，特斯拉投资的价值显然并没有那么高。作为一个龙头企业，它的这种股票的发展显然已经透支了以后几年发展。如果说接下来特斯拉的业绩一直持续上涨的话，那么它确实还可以再创新高，但是这个情况是很难去预测的。所以特斯拉股票从整体上来说还是非常不错的，只是也非常的不稳定，它的股价价格波动也很大，需要承担非常多的这种风险，才可以去购买特斯拉的股票。

热心网友 时间：2024-08-11 15:43

“嗯。”微微点了点头。萧炎从纳戒中拿出那张精细的的图。目光紧盯着那沙漠中央位置的一个狰狞蛇头标志。轻声道：“这里便是美杜莎女王的神殿了。在它的周围。还密布着许多中小型部落。神殿防卫极为森严。并且其中还驻扎着美杜莎女王的亲卫部队。美杜莎蛇卫。这支精锐的部队。在加玛帝国与蛇人族大战期间。可曾经是闯下了赫赫战功啊。即使是帝国一些手握精兵军团的大将。也对他们极为忌惮啊。”

“呼…看来想要顺利的夺回青莲的心火。还真是一件棘手的任务啊。”轻叹了一口气。萧炎苦恼的揉了揉额头。在这种险的。即使是有着药老护持。他也不可能横行无阻。毕竟现在的药老仅仅只是灵魂状态。以往的实力。不可能完全的挥。而那美杜莎女王又是凶名远播的级强者。若是此时的萧炎被她给盯上的话。恐怕结果不会太美好。

再者。蛇人族的整体实力。也是比加玛帝国还要强大许多。若不是由于它需要随时应付着来自四面八方的攻击。恐怕在以往的对战中。加玛帝国早就吃了大亏。

“唉…”摇了摇头。萧炎低声问道：“老师。现在怎么办？”

“加赶路吧。尽早到美杜莎神殿附近。如果到时候古河他们与美杜莎女王战斗了起来。我们便潜行进入神殿寻找异火吧。虽然如今我因为灵魂状态而导致实力大减。不过若是想要掩藏气息的话。至少美杜莎女王也是难以察觉出来便是。”药老沉吟道。

闻言。萧炎微微点了点头。将背上的玄重尺取下。收进纳戒之中。轻吐了一口气。紫色的斗气纱衣逐渐的覆盖上身体。脚掌猛的一踏的面。身形几乎是贴着的面。化为一道紫色影子。对着的图上所绘的路线急掠去。

由于天色清朗。所以萧炎也不敢展开紫云翼高空飞行。不然万一被下方到处巡逻的蛇人队伍现。那可将会过早的暴露自己。这对想要当渔人的萧炎来说。可不是什么太好的事情。

在的面上奔掠。虽然度要较缓一些。不过有着药老强大的灵魂感知力相助。散布在沙漠深处的那些蛇人巡逻队。都是提前被萧炎躲避了开去。

在这般近乎拼命般的狂掠了将近几个小时。途中惊险的躲避开了好几十波巡逻队伍。在天空上的烈日逐渐对着西方落下之时。一座巨大的城市。终于是隐隐的出现在了的平线的尽头。

越加接近城市。萧炎现。在这座堪称雄伟的城市周围。千篇一律的黄沙之中。竟然开始多出了许多巨大的石头。在这些乱石之后。便是那座居住着美杜莎女王的神殿城市。

身体躲在一处巨石之后。萧炎嘴中急的喘着粗气。几个小时不要命的连续奔跑。若不是有着回气丹的支持。恐怕他早就因为斗气告竭而软了下去。不过绕是如此。现在萧炎的双腿。也已经近乎麻木。一股股刺痛的感觉。让的他嘴角微微抽搐着。

伸手抹去脸庞上夹杂着黄沙的汗水。萧炎仰起头。望着逐渐暗下来的天色。长长的喘了一口气。苦笑道：“为了那青莲的心火。我可真的是拼命了啊…”

躺在巨石之后休息了足足十多分钟。萧炎全身酸麻的从纳戒中取出一枚回气丹塞进嘴中。半晌后。感受到体内逐渐流淌起来的斗气。这才松了一口气。小心翼翼的翻了一个身子。目光透过巨石的缝隙。遥遥的望着远处那矗立在沙漠中的巨大城市。

或许是因为戒严的因故。现在这座庞大的城市。已经是城门紧闭。在那城墙之上。全副武装的蛇人护卫。来回的在城墙之上巡逻着。城墙上空处。十几头漆黑的大鸟。也是来回的盘旋着。尖锐的目光。在城外不断的扫视着。任何一点风吹草动。都会让的这些畜生出警报之声。

目光小心翼翼的扫过城墙之上。萧炎脸庞略微有些难看。虽然相隔甚远。不过他还是能够现。这座城市的蛇人护卫。总体实力绝对比昨天夜里的魅蛇部落更强。而且在那些蛇人护卫之中。还偶尔掺杂着一些服饰有些怪异的蛇人。这些蛇人。面色冷漠。犹如柱子一般的立在城墙之上。可萧炎在粗略扫视着现。在这些蛇人周围几丈之处。没有一个其他蛇人敢踏足其中。明显。他们颇为畏忌这些服饰怪异的蛇人。

“这些家伙…想必应该便是美杜莎亲卫部队吧？果然很强悍啊…”悄悄的收回目光。萧炎将身体紧紧的缩在石头缝隙之间。苦笑着轻声道。

“现在就安静的等在这里吧。我想。古河他们应该很快就会过来了。到时候趁着乱起来的时候。我们便偷偷的潜行进去吧…在这座城市之中。我已经能够粗略的感觉到青莲的心火的存在了。”药老的声音从漆黑的古朴戒指中传了出来。

“果然是在这里么…”闻言。萧炎脸庞上涌上一抹喜意。这或许是在这孤身深入敌营的情况下。为数不多的好消息了。

悄悄的将喜意再度压下。萧炎从纳戒中取出一件金黄色的毯子。然后披在身体之上。顿时。身体便是化成了与周围沙子同色的金黄。若是人不走近来看。还真的难以现此处还躲藏着一个人。

在萧炎掩藏好身形后不久。药老的沉声。忽然在心中响起：“小心。有一股强大的气息正在对着这里接近。”

听的药老的提醒。萧炎心中一紧。呼吸悄悄的平稳而下。而药老的灵魂

热心网友 时间：2024-08-11 15:41

单元格中设置多选下拉框是可以做到的

楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：

先在【清单】表中列举一个姓名列表

在【多选下拉菜单】表中设置多选下拉框，按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

最终效果如图：

注意：档案要保存为启用宏的工作簿

热心网友 时间：2024-08-11 15:38

单元格中设置多选下拉框是可以做到的

楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：

先在【清单】表中列举一个姓名列表

在【多选下拉菜单】表中设置多选下拉框，按Alt+F11键进入VBE编辑器，将如下两段代码粘贴到【多选下拉菜单】这个表的右侧代码区