使用EPPlus创建复选框的下拉列表

Question

我正在使用EPPlus（http://epplus.codeplex.com/）在我的ASP.NET应用程序中创建Excel文件。我想知道是否有人知道是否可以在一个单元格中创建一个带复选框的下拉列表。我查了一下文档，但到目前为止还没有找到。我也试过谷歌搜索它，但还没有找到正确的方向。

这个问题在他们的论坛上实际上是我正在寻找的很好的证明，但它没有得到任何答案：http://epplus.codeplex.com/discussions/585879

有没有人碰巧有任何想法，可以指出我正确的方向？

Answer 1

您可以使用：

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

但您只能选择一个值。我认为excel不支持多个值。

Answer 2

对于其他参考，以下是我如何启用多个值选择：

通过插入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();
        }