正文

下拉多選框（下拉多選框編程）

發(fā)布時間：2023-04-19 12:04:17 稿源：創(chuàng)意嶺閱讀： 64

大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于下拉多選框的問題，以下是小編對此問題的歸納整理，讓我們一起來看看吧。

開始之前先推薦一個非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計劃、工作報告、論文、代碼、作文、做題和對話答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，越精準(zhǔn)，寫出的就越詳細(xì)，有微信小程序端、在線網(wǎng)頁版、PC客戶端

官網(wǎng)：https://ai.de1919.com。

創(chuàng)意嶺作為行業(yè)內(nèi)優(yōu)秀的企業(yè)，服務(wù)客戶遍布全球各地，如需了解SEO相關(guān)業(yè)務(wù)請撥打電話175-8598-2043，或添加微信：1454722008

本文目錄:

1、EXCEL的一個單元格中可以用下拉框多選N個結(jié)果
2、html中怎樣實現(xiàn)具有下拉效果的多選框
3、EXCEL 數(shù)據(jù)有效性下拉框，如何多選？謝謝，萬分感激
4、EXCEL下拉菜單設(shè)置成多項選擇一個單元格里面可以多選幾個下拉菜單里面的選項

下拉多選框（下拉多選框編程）

一、EXCEL的一個單元格中可以用下拉框多選N個結(jié)果

1、打開Excel，進入首頁面，選擇一個需要設(shè)置的單元格。

下拉多選框（下拉多選框編程）

2、點擊菜單欄的“數(shù)據(jù)”，然后點擊“數(shù)據(jù)有效性”，然后選擇“數(shù)據(jù)有效性”。

下拉多選框（下拉多選框編程）

3、在彈出的對話框中，在圖示位置選擇“序列”。

下拉多選框（下拉多選框編程）

4、在“來源”的位置設(shè)置想要設(shè)置的下拉選項，以圖示為例，然后點擊“確定”。

下拉多選框（下拉多選框編程）

5、設(shè)置結(jié)果如圖所示。

下拉多選框（下拉多選框編程）

二、html中怎樣實現(xiàn)具有下拉效果的多選框

select標(biāo)記有一個屬性multiple，將其設(shè)置成multiple="multiple"按住Ctrl鍵即可實現(xiàn)多選。請看例子：

<html>

<head>

</head>

function getValue()

{

var s = "";

for(var i=0;i<form1.ss.options.length;i++)

{

if(form1.ss.options[i].selected)

{

s+=form1.ss.options[i].value;

}

alert(s);

}

</script>

<body>

請選擇：

</select>

<br>

</form>

</body>

</html>

**************************補充**********************

修改select標(biāo)簽的size屬性，把它的值改為1即可。

三、EXCEL 數(shù)據(jù)有效性下拉框，如何多選？謝謝，萬分感激

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range, oldVal As String, newVal As String
If Target.CountLarge > 1 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
    Application.EnableEvents = False
    newVal = Target.Value
    Application.Undo
    oldVal = Target.Value
    Target.Value = newVal
    If Target.Column = 5 Or Target.Column = 7 Or Target.Column = 9 Or Target.Column = 11 Then  '這里規(guī)定好哪一列的數(shù)據(jù)有效性是多選的，A列是第1列，依次類推，如3就是C列，7就是G列
        If oldVal = "" Then
        'do nothing
        Else
            If newVal = "" Then
            'do nothing
            Else
            If newVal = "全選" Then             '當(dāng)新選擇的值是全選時，目標(biāo)值為全選
                Target.Value = "全選"
            Else
                If InStr(1, oldVal, "全選") <> 0 Then           '當(dāng)目標(biāo)值中有全選時，選擇新的非全選值時為新的值
                Target.Value = newVal
                Else
                If InStr(1, oldVal, newVal) <> 0 Then  '重復(fù)選擇視同刪除
                    If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一個選項重復(fù)
                        Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)
                    Else
                        Target.Value = Replace(oldVal, newVal & ",", "") '不是最后一個選項重復(fù)的時候處理逗號
                    End If
                Else '不是重復(fù)選項就視同增加選項
                    Target.Value = oldVal & "," & newVal
                End If
                End If
            End If
            End If
        End If
    End If
End If
exitHandler:
Application.EnableEvents = True
End Sub