0

这是我为在 Excel 单元格中制作下拉列表而编写的方法，方法是从同一工作表/工作簿中的某个范围内获取可能的值。

private void MakeDropDownList(string strSrcSheetName, string strDestSheetName, string strSrcRange, string strDestCell)
    {
        var currentSheet = Application.Sheets[strDestSheetName];

        var inv = Application.Sheets[strSrcSheetName];

        var items = inv.Range[strSrcRange];

        var list_items = new List<string>();

        foreach (Excel.Range cell in items)
        {
            list_items.Add(cell.Value2.ToString());
        }

        Range xlsRange;
        xlsRange = currentSheet.Range[strDestCell];

        Excel.DropDowns xlDropDowns;
        Excel.DropDown xlDropDown;
        xlDropDowns = ((Excel.DropDowns)(currentSheet.DropDowns(Missing.Value)));
        xlDropDown = xlDropDowns.Add((double)xlsRange.Left, (double)xlsRange.Top, (double)xlsRange.Width, (double)xlsRange.Height, true);

        //Add item into drop down list
        for (int i = 0; i < list_items.Count; i++)
        {
            xlDropDown.AddItem(list_items[i], i + 1);
        }
    }

要使用它，我可以像这样调用它：

MakeDropDownList("Units", "ReceiveBonds", "B1:B5", "E9:E18");

但是，最终的结果是这样的：

Excel 下拉列表

如您所见，下拉列表小于E列宽，更糟糕的是，在我从下拉列表中选择一个值后，单元格保持其原始值，即Choose Unit.

难道我做错了什么？

我想要的是：

  • 要么让这个下拉列表看起来像 Excel 的常规验证下拉列表，要么。
  • 能够触发事件将列表中的选定值设置到相应的单元格。
4

1 回答 1

0

之前加 的就行ColumnWidth了。

        if (checkModifiers() && (checkKey(Keys.F3)))
        {
            Workbook wb = Globals.ThisAddIn.Application.ActiveWorkbook;
            Worksheet ws = Globals.ThisAddIn.Application.ActiveSheet;
            Microsoft.Office.Interop.Excel.Range rng = (Microsoft.Office.Interop.Excel.Range)Globals.ThisAddIn.Application.ActiveCell;
            int row = rng.Row;
            int column = rng.Column;

            Range cell = ws.Cells[row, column];
            cell.ColumnWidth = 50;
            try
            {
                drd.Add("One");
                drd.Add("Two");
                drd.Add("Three");
                Microsoft.Office.Interop.Excel.DropDown xlDropDown;
                Microsoft.Office.Interop.Excel.DropDowns xlDropDowns;
                xlDropDowns = ((Microsoft.Office.Interop.Excel.DropDowns)(ws.DropDowns(Missing.Value)));
                xlDropDown = xlDropDowns.Add((double)cell.Left, (double)cell.Top, (double)cell.Width, (double)cell.Height, true);
                for (int i = 0; i < drd.Count; i++)
                {
                    xlDropDown.AddItem(drd[i], i+1);
                }
            }catch (Exception ex)
            {
                MessageBox.Show(ex.ToString());
            }
        }
于 2016-01-23T11:32:34.113 回答