Question

我设法在其他工作表中添加了一个填充了值的下拉列表，但它允许我只选择一个值。

我有一个案例，我需要在EPPLUS中使用DataValidation选择多个值。

如何添加复选框列表而不是简单的下拉列表？

我试过

var validationCell = sheet.DataValidations.AddListValidation("A1");
validationCell.Formula.Values.Add("a");
validationCell.Formula.Values.Add("b");
validationCell.Formula.Values.Add("c");

但我只能选择一个复选框，例如，我需要选择多个以在数组中包含多个值。

那么有没有办法让这个复选框下拉列表允许我选择多个值？

我找到了一个直接在Excel中创建它的教程： Tuto

是否可以使用EPPLUS Core做同样的事情？

由于

Answer 1

您可以通过插入VBA代码来实现此目的：

了解如何在here中进行操作，使用EPPlus，您可以使用以下内容插入VBA代码：

package.Workbook.CreateVBAProject();
worksheet.CodeModule.Code = code;

以下代码可以解决问题：

using (var package = new ExcelPackage(new System.IO.FileInfo("D:\\b.xlsm")))
        {
            ExcelWorksheet worksheet = package.Workbook.Worksheets.Add("11");
            var validationCell = worksheet.DataValidations.AddListValidation("A1");
            validationCell.Formula.Values.Add("a");
            validationCell.Formula.Values.Add("b");
            validationCell.Formula.Values.Add("c");

            string code = "Private Sub Worksheet_Change(ByVal Target As Range)\n" +
"Dim Oldvalue As String\n" +
"Dim Newvalue As String\n" +
"Application.EnableEvents = True\n" +
"On Error GoTo Exitsub\n" +
"If Target.Address = \"$A$1\" Then\n" +
 " If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then\n" +
  "  GoTo Exitsub\n" +
  "Else: If Target.Value = \"\" Then GoTo Exitsub Else\n" +
   " Application.EnableEvents = False\n" +
    "Newvalue = Target.Value\n" +
    "Application.Undo\n" +
    "Oldvalue = Target.Value\n" +
    "  If Oldvalue = \"\" Then\n" +
     "   Target.Value = Newvalue\n" +
      "Else\n" +
       " If InStr(1, Oldvalue, Newvalue) = 0 Then\n" +
        "    Target.Value = Oldvalue & \", \" & Newvalue\n" +
      "Else: \n" +
       "         Target.Value = Oldvalue\n" +
      "End If\n" +
    "End If\n" +
  "End If\n" +
 "End If\n" +
"Application.EnableEvents = True\n" +
"Exitsub: \n" +
 "  Application.EnableEvents = True\n" +
"End Sub";

            package.Workbook.CreateVBAProject();
            worksheet.CodeModule.Code = code;
            package.Save();
        }

在Asp Core 1.0中创建一个带有EPPLUS Core的复选框的下拉列表

1 个答案: