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();
        }

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

2 个答案: