// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet ws = workbook.Worksheets["Sheet1"]; ws.Range["A:A"].ColumnWidthInPixel = 25d; // 項目を追加（値を非連結） ws.Range["B2"].Value = "ドロップダウンは値を非連結にでき、コードで項目を追加できます。"; var dropBox1 = ws.Controls.AddDropDown(21, 40, 275, 30); dropBox1.Items.Add(new DropDownItem("非連結 項目１")); dropBox1.Items.Add(new DropDownItem("非連結 項目２")); dropBox1.Items.Add(new DropDownItem("非連結 項目３")); dropBox1.SelectedIndex = 0; // 項目の入力範囲を指定 ws.Range["B7"].Value = "項目の入力範囲および選択項目のインデックスに値を連結することもできます。"; ws.Range["B12:B15"].Value = new object[,] { { "項目"}, { "項目１"}, { "項目２"}, { "項目３"} }; ws.Range["D12:D13"].Value = new object[,] { { "値"}, { 1d} }; var dropBox2 = ws.Controls.AddDropDown(21, 135, 275, 30); dropBox2.ItemsSourceRange = ws.Range["B13:B15"]; dropBox2.LinkedCell = ws.Range["D13"]; dropBox2.SelectedIndex = 0; // xlsx ファイルに保存 workbook.Save("DropDownsBasicUsage.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim ws As IWorksheet = workbook.Worksheets("Sheet1") ws.Range("A:A").ColumnWidthInPixel = 25.0R ' 項目を追加（値を非連結） ws.Range!B2.Value = "ドロップダウンは値を非連結にでき、コードで項目を追加できます。" With ws.Controls.AddDropDown(21, 40, 275, 30) With .Items .Add(New DropDownItem("非連結 項目１")) .Add(New DropDownItem("非連結 項目２")) .Add(New DropDownItem("非連結 項目３")) End With .SelectedIndex = 0 End With ' 項目の入力範囲を指定 ws.Range!B7.Value = "項目の入力範囲および選択項目のインデックスに値を連結することもできます。" ws.Range("B12:B15").Value = { {"項目"}, {"項目１"}, {"項目２"}, {"項目３"} } ws.Range("D12:D13").Value = New Object(,) { {"値"}, {1.0R} } With ws.Controls.AddDropDown(21, 135, 275, 30) .ItemsSourceRange = ws.Range("B13:B15") .LinkedCell = ws.Range!D13 .SelectedIndex = 0 End With ' xlsx ファイルに保存 workbook.Save("DropDownsBasicUsage.xlsx")