EXCEL選擇下拉框實現複選

2021-08-21 06:14:33 字數 1696 閱讀 1725

第一步:新建乙個excel且設定資料有效性【選中x列--資料--有效性】

第二步:開發工具--檢視**--把**複製進去儲存就ok了

**如下:

private sub worksheet_change(byval target as range)

' developed by contextures inc.

' www.contextures.com

dim rngdv as range

dim oldval as string

dim newval as string

if target.count > 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

newval = target.value

oldval = target.value

target.value = newval

if target.column = 7 then '這裡規定好哪一列的資料有效性是多選的,a列是第1列,依次類推,如3就是c列,7就是g列

if oldval = "" then

'do nothing

else

if newval = "" then

'do nothing

else

if instr(1, oldval, newval) <> 0 then '重複選擇視同刪除

if instr(1, oldval, newval) + len(newval) - 1 = len(oldval) then '最後乙個選項重複

target.value = left(oldval, len(oldval) - len(newval) - 1)

else

target.value = replace(oldval, newval & ",", "") '不是最後乙個選項重複的時候處理逗號

end if

else '不是重複選項就視同增加選項

target.value = oldval & "," & newval

' note: you can use a line break,

' instead of a comma

' target.value = oldval _

' & chr(10) & newval

end if

end if

end if

end if

end if

exithandler:

end sub

複選下拉框元件

說明需求 做報表的時候,篩選條件中需要用到複選下拉框,首先說明 核取方塊 核取方塊 無法滿足我的需求,因為可選項有上百個,不可能都直接列在頁面上 下拉框 選擇 也無法滿足,因為不支援複選 在網上找了很久,找到乙個比較合適的核取方塊元件,效果如下 具體使用例項如下,假設jsp中有如下 牛人學歷 初中及...

menuSel選擇下拉框

style基礎樣式 menudownwarp menudownwarp on menudownwarp li 可以指定skin引數,通過修改樣式中的margin值來修正定位等一些樣式 建立選單示例 callback function msg return htm 建立的選單項帶有額外複雜資料示例 c...

angularjs 選擇下拉框

names llr lla coco ckck ng controller myctrl 兩個不同寫法的下拉框一起使用,第二個會列出資料,但是不會有輸入框 問題 select下拉框單獨使用時沒事的,如果兩個不同寫法一起使用,第二個下拉框是包含option的會列出資料但不會出現輸入框 解決 把包含op...