// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["C2:E4"].Value = new object[,] { {1, 3.0, 3.4}, {7, 9, 102.7}, {102.8, 110, 120} }; // 整数入力規則の作成 worksheet.Range["C2:E4"].Validation.Add(ValidationType.Decimal, ValidationAlertStyle.Stop, ValidationOperator.Between, 3.4, 102.8); IValidation validation = worksheet.Range["C2:E4"].Validation; validation.IgnoreBlank = true; validation.InputTitle = "注"; validation.InputMessage = "3.4~102.8の10進数を入力してください。"; validation.ErrorTitle = "エラー"; validation.ErrorMessage = "入力値が3.4~102.8の10進数ではありません。"; validation.ShowInputMessage = true; validation.ShowError = true; // 範囲["C2:E4"]に入力規則が設定されているかの判断 for (int i = 1; i <= 3; i++) { for (int j = 2; j <= 4; j++) { if (worksheet.Range[i, j].HasValidation) { // 入力規則が設定されている場合に内部の色を変更 worksheet.Range[i, j].Interior.Color = Color.LightBlue; } } } // xlsx ファイルに保存 workbook.Save("CreateDecimalValidation.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range("C2:E4").Value = New Object(,) { {1, 3.0, 3.4}, {7, 9, 102.7}, {102.8, 110, 120} } ' 整数入力規則の作成 worksheet.Range("C2:E4").Validation.Add(ValidationType.Decimal, ValidationAlertStyle.Stop, ValidationOperator.Between, 3.4, 102.8) Dim validation As IValidation = worksheet.Range("C2:E4").Validation validation.IgnoreBlank = True validation.InputTitle = "注" validation.InputMessage = "3.4~102.8の10進数を入力してください。" validation.ErrorTitle = "エラー" validation.ErrorMessage = "入力値が3.4~102.8の10進数ではありません。" validation.ShowInputMessage = True validation.ShowError = True ' 範囲["C2:E4"]に入力規則が設定されているかの判断 For i As Integer = 1 To 3 For j As Integer = 2 To 4 If worksheet.Range(i, j).HasValidation Then ' 入力規則が設定されている場合に内部の色を変更 worksheet.Range(i, j).Interior.Color = Color.LightBlue End If Next j Next i ' xlsx ファイルに保存 workbook.Save("CreateDecimalValidation.xlsx")