EasyXLS

How to add cell validation in VB.NET

'-----------------------------------------------------------------------
' Tutorial 13
'
' This tutorial shows how to create an Excel file in VB.NET (1) having
' multiple sheets (2). The second sheet contains a named area range (3).
' The A1:A10 cell range contains data validators (4), drop down list 
' and whole number validation.
' ----------------------------------------------------------------------
Click here to see the Excel file

Imports EasyXLS
Imports EasyXLS.Constants

Module Tutorial13

    Sub Main()

        Console.WriteLine("Tutorial 13" & vbCrLf & "----------" & vbCrLf)

        ' Create an instance of the class that exports Excel files, having two sheets (1)
        Dim workbook As New ExcelDocument(2)

        ' Set the sheet names (2)
        workbook.easy_getSheetAt(0).setSheetName("First tab")
        workbook.easy_getSheetAt(1).setSheetName("Second tab")

        ' Get the table of data for the second worksheet and populate the worksheet
        Dim xlsSecondTab As ExcelWorksheet = workbook.easy_getSheetAt(1)
        Dim xlsSecondTable = xlsSecondTab.easy_getExcelTable()
        xlsSecondTable.easy_getCell("A1").setValue("Range data 1")
        xlsSecondTable.easy_getCell("A2").setValue("Range data 2")
        xlsSecondTable.easy_getCell("A3").setValue("Range data 3")
        xlsSecondTable.easy_getCell("A4").setValue("Range data 4")

        ' Create a named area range (3)
        xlsSecondTab.easy_addName("Range", "=Second tab!$A$1:$A$4")

        ' Add data validation as drop down list type (4)
        Dim xlsFirstTab As ExcelWorksheet = workbook.easy_getSheetAt(0)
        xlsFirstTab.easy_addDataValidator("A1:A10", DataValidator.VALIDATE_LIST, 
                                                    DataValidator.OPERATOR_EQUAL_TO, "=Range", "")

        ' Add data validation as whole number type
        xlsFirstTab.easy_addDataValidator("B1:B10", DataValidator.VALIDATE_WHOLE_NUMBER, _
                                                    DataValidator.OPERATOR_BETWEEN, "=4", "=100")

        ' Export Excel file
        Console.WriteLine("Writing file C:\Samples\Tutorial13.xls.")
        workbook.easy_WriteXLSFile("C:\Samples\Tutorial13.xls")

        ' Confirm export of Excel file
        Dim sError As String = workbook.easy_getError()
        If (sError.Equals("")) Then
            Console.Write(vbCrLf & "File successfully created. Press Enter to Exit...")
        Else
            Console.Write(vbCrLf & "Error encountered: " & sError & vbCrLf & "Press Enter to Exit...")
        End If
        
        ' Dispose memory
        workbook.Dispose()
        
        Console.ReadLine()

    End Sub

End Module

EasyXLS Excel libraries:

.NET
Excel Library for VB.NET
full .NET version to import, export or convert Excel files
Excel Writer for VB.NET
.NET version to create and export Excel files
Download EasyXLS™ Excel Library for VB.NET

File formats:

MS Excel 97
MS Excel 2003
MS Excel 2007
MS Excel 2010
MS Excel 2013
MS Excel 2016
MS Excel 2019
XLS XLSX XLSM XLSB
XML HTML CSV TXT