关于EXCLE 下拉框多选的设置。

本文转载于：https://www.cnblogs.com/boosasliulin/p/5970120.html

本文转载于：https://blog.csdn.net/qq_33269520/article/details/81173811
打开Exlce，设置数据有效性



确定，然后



右击查看代码，把这段代码复制到新建的文件里面



此时Excel会给出提示，选择否，



系统会提示保存，在保存的时候选择启用宏的工作簿然后保存，此时Excel下拉框多选就搞定了，最后，代码如下：
Option Explicit
Sub Worksheet_Change(ByVal Target As Range)

'让数据有效性选择 可以多选,重复选

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

Application.EnableEvents = False

newVal = Target.Value

Application.Undo

oldVal = Target.Value

Target.Value = newVal

If oldVal = “” Then

Else

If newVal = “” Then

Else

Target.Value = oldVal _

& ", " & newVal

End If

End If

End If
exitHandler:

Application.EnableEvents = True

End Sub
上面代码是为整个EXCLE设置多选，下面这段代码是为某行，或者

某几行设置多选

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)

'让数据有效性选择 可以多选,重复选

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

Application.EnableEvents = False

newVal = Target.Value

Application.Undo

oldVal = Target.Value

Target.Value = newVal

If Target.Column = 3 Or  Target.Column = 3 Then '这里规定好哪一列的数据有效性是多选的，A列是第1列，依次类推，如3就是C列，7就是G列，设置多个用Or连接

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:

Application.EnableEvents = True

End Sub

一、前言
      根据需求，需要更改下拉框为多选框。本来以为只是很简单的东西，但是实际修改起来却碰到不少bug，多选框无法选中，给多选框赋默认值等。这里记录一下
二、修改单选下拉框为多选下拉框
 echo $form->field($model, 'project_id', [
        'inputOptions' => [
            'multiple' => 'multiple',//这里加上
            'style'=>'width:100%;',
            'size'=>10
        ],
    ])->dropDownList(数组)；

三、多选下拉框无法选中的问题
      明明这个插件已经显示是多选框了，但是我每次多选的时候，他都会自动取消，始终都是保持单选的状态。后来一直找问题，终于发现，原因是yii自带的activeForm.js会自动验证，因为默认是选一个，所以在选两个的时候会报错。
      既然知道原因了，那解决方案也很简单，就是禁用activeForm.js (yii/assets/activeForm.js)，因为博主的这个页面，禁用掉activeForm.js也没问题，所以博主才禁用的。大家根据自己的实际情况灵活选择吧。
 $form = ActiveForm::begin([
       			 'id' => $model->formName(),
       		 	'enableAjaxValidation' => false,
       			 'enableClientScript' => false,  //禁用yii自带的activeForm.js
        			'enableClientValidation' => false, //禁用yii自带的activeForm.js

参考链接：https://www.yiichina.com/question/229
禁用之后，我们的多选框就能正常多选，传值了。打印传值方式为：
array(5) {
  					[0]=>
 					 string(2) "11"
  					[1]=>
 					 string(2) "12"
 					 [2]=>
  					string(1) "5"
  					[3]=>
  					string(1) "2"
  					[4]=>
  					string(1) "1"
					}

四、给下拉框默认值
      这部分博主在网上百度了很久，刚开始很多人都说设置prompt就可以了，后来才发现，这个prompt只是设置下拉框的默认头部文字，并不是我们想要的。我们想要的是，下拉框的有些值从一开始就是被selected的。
1、通过$model赋值
$model->name = 2;   //把value = 2的设为默认值，这里的name必须和下面的field里面的name保持一样
 echo $form->field($model, 'name', [
        'inputOptions' => [
            'multiple' => 'multiple',//这里加上
            'style'=>'width:100%;',
            'size'=>10
        ],
    ])->dropDownList(数组)；

2、赋多个默认值
echo $form->field($model, 'project_id', [
      					  'inputOptions' => [
           					 'multiple' => 'multiple',//这里加上，成为多选框
           					 'style'=>'width:100%;',
      					  ],
  				  ])->dropDownList(数组,['options' => ['3' => ['selected' => 'selected'],'4'=>['selected'=>'selected']],]);

这里是给了个options参数，里面可以是个数组，对应的就是我们要给默认值的选项。

效果如图：



这样，我们的下拉框就自带的有默认值了，挺方便的，个人更推荐第二种吧，给多个默认值，看着也顺眼些。
end

最近发现下拉框多选（multiple）时，一开始进页面就会触发验证，显然是不友好的。

解决方案：


	
在校验规则里加type："array"；
	
	

	
下拉多选框绑定的变量初始值设置为[]
	
html多选框如下：



<el-form-item label="责 任 人" prop="chargepersonid">
    <el-select multiple clearable v-model="infoForm.chargepersonid" size="small" filterable placeholder="-请选择-">
         <el-option 
         v-for="item in Personnelname"
         :key="item.id"
         :label="item.name"
         :value="item.id"
         >
         </el-option>
     </el-select>
</el-form-item>

对应在data中的数据结构如下：

return {
        Personnelname:[],
        chargepersonid:'',
        rules2: {
        chargepersonid: [
            {type:"array",required: true, message: '请选择责任人', trigger: ['blur', 'change']}
        ]
}

设置初始值如下：

特别说明：

infoForm指的是form表单对应的：model的值。
chargepersonid对应的是下拉框v-model的值。

var arr = ['1001','1002']
//第一步，先给select标签赋值
$("select").val(arr);
//第二步，给fs-optgroup下对应的option添加样式selected
$(".fs-optgroup").find(".fs-option").each(function () {
    if(arr.indexOf($(this)['context']['dataset']['value']) != -1){
        $(this).addClass("selected");
    }
})
//第三步，重新加载下拉框，使得添加了selected样式的option处于被勾选状态
$('.demo').fSelect('reloadDropdownLabel')