ByteScout Barcode Suite – VB.NET – Validate cell if value is in range with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Validate cell if value is in range with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Validate-cell-if-value-is-in-range-with-spreadsheet-sdk.pdf

validate cell if value is in range with spreadsheet sdk in VB.NET using ByteScout Barcode Suite

How to apply ByteScout Barcode Suite for validate cell if value is in range with spreadsheet sdk in VB.NET

The documentation is crafted to assist you to apply the features on your side easily. ByteScout Barcode Suite helps with validate cell if value is in range with spreadsheet sdk in VB.NET. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.

The below SDK samples describe how to quickly make your application do validate cell if value is in range with spreadsheet sdk in VB.NET with the help of ByteScout Barcode Suite. If you want to implement this functionality, you should copy and paste code below into your app using code editor. Then compile and run your application. Use of ByteScout Barcode Suite in VB.NET is also described in the documentation included along with the product.

Visit our website to get a free trial version of ByteScout Barcode Suite. Free trial contains many of source code samples to help you with your VB.NET project.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      Imports Bytescout.Spreadsheet
Imports System.IO

Module Module1

    Sub Main()
        ' Create new Spreadsheet
        Dim document As Spreadsheet = New Spreadsheet()
        document.LoadFromFile("Data.xls")

        ' Get worksheet by name
        Dim worksheet As Worksheet = document.Workbook.Worksheets.ByName("Sample")

        ' Minimum age
        Dim RangeMin As Integer = 10
        ' Maximum age
        Dim RangeMax As Integer = 19

        ' Spellcheck words
        For i As Integer = 1 To 7
            ' Set current cell
            Dim currentCell As Cell = worksheet.Cell(i, 1)

            ' Check current cell
            If System.Convert.ToInt32(currentCell.Value) < RangeMin Or System.Convert.ToInt32(currentCell.Value) > RangeMax Then
                ' Set fill pattern
                currentCell.FillPattern = Bytescout.Spreadsheet.Constants.PatternStyle.Solid

                ' Markup wrong cell by red color
                currentCell.FillPatternForeColor = System.Drawing.Color.Red
            End If
        Next


        ' remove output file if already exists
        If File.Exists("Output.xls") Then
            File.Delete("Output.xls")
        End If

        ' Save document
        document.SaveAs("Output.xls")

        ' Close Spreadsheet
        document.Close()

        ' open in default spreadsheets viewer/editor
        Process.Start("Output.xls")

    End Sub

End Module