データ検証

// Validation というワークシートを持つワークブックを作成します
Infragistics.Documents.Excel.Workbook workbook = new Infragistics.Documents.Excel.Workbook();
Infragistics.Documents.Excel.Worksheet worksheet = workbook.Worksheets.Add("Validation");
// 基本のデータ検証ルールのための変数を作成します
DataValidationRule dataRule = null;
// ワークシートの参照コレクションのための変数を作成します
WorksheetReferenceCollection cellCollection = null;
// ワークシートのセルのための変数を作成します
WorksheetCell wsc = null;
// 新しいリスト データ検証ルールを作成します
ListDataValidationRule ld = new ListDataValidationRule();
// 検証ルール参照を基本データ ルール変数にコピーします
dataRule = ld;
// ワークシートのセルに Null 値を含めることができます
ld.AllowNull = true;
// 有効なセル値をドロップダウンで表示できます
ld.ShowDropdown = true;
// A1 セルの有効な値を設定します
ld.SetValuesFormula("=\"cat, dog, bird, goat, sheep, turtle, horse, chicken\"", "A1");
// コレクション内のワークシートのセルを参照します
cellCollection = new WorksheetReferenceCollection(worksheet, "A1");
// エラー メッセージ情報を追加します
dataRule.ErrorMessageDescription = "Invalid value entered.";
dataRule.ErrorMessageTitle = "Validation Error";
dataRule.ErrorStyle = DataValidationErrorStyle.Stop;
// 入力メッセージ情報を追加します
dataRule.InputMessageDescription = "Type or select a value from the list.";
dataRule.InputMessageTitle = "Value Selection";
// 無効な値が入力された後にエラー メッセージを表示するかどうかを設定します
dataRule.ShowErrorMessageForInvalidValue = true;
// 入力メッセージを表示するかどうかを設定します
dataRule.ShowInputMessage = true;
// データ検証をワークシートに追加します
worksheet.DataValidationRules.Add(dataRule, cellCollection);
try
{
    // 作成したワークブックを保存します
    workbook.Save("output.xls");
    // ワークブックを開いて結果を表示します
    System.Diagnostics.Process.Start("output.xls");
}
catch
{
    MessageBox.Show("Please close any open instances of Excel.",
        "Error Opening Workbook",
        MessageBoxButtons.OK, MessageBoxIcon.Stop);
}

' Validation というワークシートを持つワークブックを作成します
Dim workbook As New Infragistics.Documents.Excel.Workbook()
Dim worksheet As Infragistics.Documents.Excel.Worksheet = workbook.Worksheets.Add("Validation")
' 基本のデータ検証ルールのための変数を作成します
Dim dataRule As DataValidationRule = Nothing
' ワークシートの参照コレクションのための変数を作成します
Dim cellCollection As WorksheetReferenceCollection = Nothing
' ワークシートのセルのための変数を作成します
Dim wsc As WorksheetCell = Nothing
' 新しいリスト データ検証ルールを作成します
Dim ld As New ListDataValidationRule()
' 検証ルール参照を基本データ ルール変数にコピーします
dataRule = ld
' ワークシートのセルに Null 値を含めることができます
ld.AllowNull = True
' 有効なセル値をドロップダウンで表示できます
ld.ShowDropdown = True
' A1 セルの有効な値を設定します
ld.SetValuesFormula("=""cat, dog, bird, goat, sheep, turtle, horse, chicken""", "A1")
' コレクション内のワークシートのセルを参照します
cellCollection = New WorksheetReferenceCollection(worksheet, "A1")
' エラー メッセージ情報を追加します
dataRule.ErrorMessageDescription = "Invalid value entered."
dataRule.ErrorMessageTitle = "Validation Error"
dataRule.ErrorStyle = DataValidationErrorStyle.[Stop]
' 入力メッセージ情報を追加します
dataRule.InputMessageDescription = "Type or select a value from the list."
dataRule.InputMessageTitle = "Value Selection"
' 無効な値が入力された後にエラー メッセージを表示するかどうかを設定します
dataRule.ShowErrorMessageForInvalidValue = True
' 入力メッセージを表示するかどうかを設定します
dataRule.ShowInputMessage = True
' データ検証をワークシートに追加します
worksheet.DataValidationRules.Add(dataRule, cellCollection)
Try
    ' 作成したワークブックを保存します。
    workbook.Save("output.xls")
    ' ワークブックを開いて結果を表示します。
    System.Diagnostics.Process.Start("output.xls")
Catch
    MessageBox.Show("Please close any open instances of Excel.", "Error Opening Workbook", MessageBoxButtons.OK, MessageBoxIcon.[Stop])
End Try