Мини-учебник по ReoGrid версии 2.0.0

Imports System.IO
Imports System.Text
Imports unvell.ReoGrid 'Сам компонент
Imports unvell.ReoGrid.CellTypes 'Типы ячеек
Imports unvell.ReoGrid.Actions 'Действия
Imports unvell.ReoGrid.DataFormat 'Форматы данных
Imports unvell.ReoGrid.Print 'Печать
Imports unvell.ReoGrid.Chart 'Диаграммы
Imports unvell.ReoGrid.Events

using System.IO;
using System.Text;
using System;
using System.Windows.Forms;
using System.Drawing;
using System.Diagnostics;
using System.ComponentModel;
using unvell.ReoGrid; //Сам компонент
using unvell.ReoGrid.CellTypes; //Типы ячеек
using unvell.ReoGrid.Actions; //Действия
using unvell.ReoGrid.DataFormat; //Форматы данных
using unvell.ReoGrid.Print; //Печать
using unvell.ReoGrid.Chart; //Диаграммы

'Создание экземпляра виртуальной книги
Dim workbook = ReoGridControl.CreateMemoryWorkbook()

'Сброс книги (удаление всех листов и создание пустого нового)
rgrid.Reset()

'Создание экземпляра листа с именем по умолчанию
Dim sheet As Worksheet = rgrid.CreateWorksheet()
'или с указанным именем  (имена должны быть уникальны)
Dim sheet1 As Worksheet = rgrid.CreateWorksheet("Мой_лист")

'Добавление листа в книгу в конец или с уточнением позиции
rgrid.AddWorksheet(sheet)
rgrid.InsertWorksheet(1, sheet)
'или
rgrid.Worksheets.Add(sheet)
rgrid.Worksheets.Insert(1, sheet)

'Определение количества листов в книге
Dim mycount As Integer = rgrid.Worksheets.Count

'Удаление листа с указанием экземпляра
rgrid.Worksheets.Remove(sheet)
'или
rgrid.RemoveWorksheet(sheet)
'или же с указанием позиции листа
rgrid.RemoveWorksheet(1)

'Копирование листа
Dim sheet2 As Worksheet = rgrid.CopyWorksheet(0, 1)

'Перемещение листа
rgrid.MoveWorksheet(0, 3)

'Сброс листа (удаление всех данных)
rgrid.CurrentWorksheet.Reset()

'Освобождение ресурсов, используемых листом
rgrid.Worksheets(0).Dispose()

//Создание экземпляра виртуальной книги
var workbook = ReoGridControl.CreateMemoryWorkbook();

//Сброс книги (удаление всех листов и создание пустого нового)
rgrid.Reset();

//Создание экземпляра листа с именем по умолчанию
Worksheet sheet = rgrid.CreateWorksheet();
//или с указанным именем (имена должны быть уникальны)
Worksheet sheet1 = rgrid.CreateWorksheet("Мой_лист");

//Добавление листа в книгу в конец или с уточнением позиции
rgrid.AddWorksheet(sheet);
rgrid.InsertWorksheet(1, sheet);
//или
rgrid.Worksheets.Add(sheet);
rgrid.Worksheets.Insert(1, sheet);

//Определение количества листов в книге
int mycount = rgrid.Worksheets.Count;

//Удаление листа с указанием экземпляра
rgrid.Worksheets.Remove(sheet);
//или
rgrid.RemoveWorksheet(sheet);
//или же с указанием позиции листа
rgrid.RemoveWorksheet(1);

//Копирование листа
Worksheet sheet2 = rgrid.CopyWorksheet(0, 1);

//Перемещение листа
rgrid.MoveWorksheet(0, 3);

//Сброс листа (удаление всех данных)
rgrid.CurrentWorksheet.Reset();

//Освобождение ресурсов, используемых листом
rgrid.Worksheets[0].Dispose();

'Занесение значения в ячейку
rgrid.CurrentWorksheet(1, 1) = "Какой-то текст"
rgrid.CurrentWorksheet("B2") = "Какой-то текст"

'Получение данных из ячейки (текст)
Dim strText As String = rgrid.CurrentWorksheet(1, 1).ToString
Dim strText1 As String = rgrid.CurrentWorksheet.Cells(1, 1).DisplayText

'Ввод и получение текстового представления формулы
rgrid.CurrentWorksheet.Cells(1, 1).Formula = "=A8+B8"
Dim strFormula As String = rgrid.CurrentWorksheet.Cells(1, 1).Formula

'Пример сброса типа ячейки к обычному (подробности ниже)
rgrid.CurrentWorksheet.Cells("E5").Body = Nothing

'Задание имени диапазона
Dim myRange = rgrid.CurrentWorksheet.DefineNamedRange("мой_диапазон", 3, 1, 5, 4)

'Запись данных в диапазон
myRange.Data = New Object(,) {{1, 2, 3, 4}, {0.10000000000000001, 0.20000000000000001, 0.29999999999999999, 0.40000000000000002}, {"яблоко", "банан", "апельсин", "груша"}}

'Задание ширины столбца
rgrid.CurrentWorksheet.SetColumnsWidth(1, 4, 100)

'Изменяем ширину заголовка
rgrid.CurrentWorksheet.ColumnHeaders(0).Width = 100 'Столбец A
rgrid.CurrentWorksheet.ColumnHeaders(1).Width = 500 'Столбец B

//Занесение значения в ячейку
rgrid.CurrentWorksheet[1, 1] = "Какой-то текст";
rgrid.CurrentWorksheet["B2"] = "Какой-то текст";

//Получение данных из ячейки (текст)
string strText1 = rgrid.CurrentWorksheet.Cells[1, 1].DisplayText;

//Ввод и получение текстового представления формулы
rgrid.CurrentWorksheet.Cells[1, 1].Formula = "=A8+B8";
string strFormula = rgrid.CurrentWorksheet.Cells[1, 1].Formula;

//Пример сброса типа ячейки к обычному (подробности ниже)
rgrid.CurrentWorksheet.Cells["E5"].Body = null;

//Задание имени диапазона
var myRange = rgrid.CurrentWorksheet.DefineNamedRange("мой_диапазон", 3, 1, 5, 4);

//Запись данных в диапазон
myRange.Data = new object[, ] {{1,2,3,4},{0.1,0.2,0.3,0.4},{"яблоко","банан","апельсин","груша"}};

//Задание ширины столбца
rgrid.CurrentWorksheet.SetColumnsWidth(1, 4, 100);

//Изменяем ширину заголовка
rgrid.CurrentWorksheet.ColumnHeaders[0].Width = 100; //Столбец A
rgrid.CurrentWorksheet.ColumnHeaders[1].Width = 500; //Столбец B

'1. Самый простой вариант кнопки (Button)
rgrid.CurrentWorksheet(1, 1) = New ButtonCell()
rgrid.CurrentWorksheet(1, 1) = "Привет"

'2. Кнопка с обработчиком события нажатия (Click)
Dim btn As ButtonCell = New ButtonCell("Привет!")
rgrid.CurrentWorksheet(1, 1) = New Object() {"Кнопка: ", btn}

AddHandler btn.Click, AddressOf btn_Click

//1. Самый простой вариант кнопки (Button)
rgrid.CurrentWorksheet[1, 1] = new ButtonCell();
rgrid.CurrentWorksheet[1, 1] = "Привет";

//2. Кнопка с обработчиком события нажатия (Click)
ButtonCell btn = new ButtonCell("Привет!");
rgrid.CurrentWorksheet[1, 1] = new object[] {"Кнопка: ",btn};

    Sub btn_Click(ByVal s As Object, ByVal e As EventArgs)
MsgBox("Кнопка нажата")
    End Sub
    

var button = new ButtonCell("Привет");
button.Click += (s, e) => MessageBox.Show("Кнопка нажата");

'1. Делаем гиперссылкой выделенный диапазон.
rgrid.CurrentWorksheet(rgrid.CurrentWorksheet.SelectionRange) = New HyperlinkCell("https://reogrid.net/ru", False)

'2. Настройка всех основных параметров с последующим применением к нужной ячейке.
Dim MyLink As New HyperlinkCell
MyLink.LinkColor = Color.Blue
MyLink.ActivateColor = Color.Green
MyLink.VisitedColor = Color.Red
MyLink.LinkURL = "https://reogrid.net/ru"
MyLink.AutoNavigate = True
rgrid.CurrentWorksheet(1, 2) = MyLink

'Если по щелчку на гиперссылке должен происходить переход, то можно применить приведённый ниже код. Объявление переменной-гиперссылки может потребоваться перенести в область объявления переменной на уровне класса формы
Dim link = New HyperlinkCell("https://reogrid.net/ru")
rgrid.CurrentWorksheet(rgrid.CurrentWorksheet.SelectionRange) = New Object() {"Гиперссылка", link}

'AddHandler link.Click, AddressOf link_Click
'Sub link_Click(ByVal s, ByVal e)
'System.Diagnostics.Process.Start(rgrid.GetCellText(1, 2))
'End Sub

//1. Делаем гиперссылкой выделенный диапазон.
rgrid.CurrentWorksheet[rgrid.CurrentWorksheet.SelectionRange] = new HyperlinkCell("https://reogrid.net/ru", false);

//2. Настройка всех основных параметров с последующим применением к нужной ячейке.
HyperlinkCell MyLink = new HyperlinkCell();
MyLink.LinkColor = Color.Blue;
MyLink.ActivateColor = Color.Green;
MyLink.VisitedColor = Color.Red;
MyLink.LinkURL = "https://reogrid.net/ru";
MyLink.AutoNavigate = true;
rgrid.CurrentWorksheet[1, 2] = MyLink;

//Если по щелчку на гиперссылке должен происходить переход, то можно применить приведённый ниже код. Объявление переменной-гиперссылки может потребоваться перенести в область объявления переменной на уровне класса формы
var link = new HyperlinkCell("https://reogrid.net/ru");
rgrid.CurrentWorksheet[rgrid.CurrentWorksheet.SelectionRange] = new object[] {"Гиперссылка",link};			
//link.Click += link_Click;
/*public void link_Click(s, e)
{
System.Diagnostics.Process.Start(rgrid.GetCellText(1, 2));
}*/

Dim middleStyle = New WorksheetRangeStyle
middleStyle.Flag = PlainStyleFlag.Padding
middleStyle.Flag = PlainStyleFlag.HorizontalAlign
middleStyle.Padding = New unvell.ReoGrid.PaddingValue(2)
middleStyle.HAlign = ReoGridHorAlign.Center
Dim grayTextStyle = New WorksheetRangeStyle
grayTextStyle.Flag = PlainStyleFlag.TextColor
grayTextStyle.TextColor = Color.DimGray

Dim checkbox As CheckBoxCell = New CheckBoxCell()
rgrid.CurrentWorksheet.SetRangeStyles(7, 2, 1, 1, middleStyle)
rgrid.CurrentWorksheet.SetRangeStyles(8, 2, 1, 1, grayTextStyle)
rgrid.CurrentWorksheet(7, 1) = New Object() {"Флажок", checkbox, "Напомнить через 5 минут"}
rgrid.CurrentWorksheet(8, 2) = "(Изменить состояние элемента управления можно и при помощи клавиатуры)"

'Пример создания обработчика. Для его работы может потребоваться объявление переменной checkbox на уровне класса
'AddHandler checkbox.CheckChanged, AddressOf checkbox_CheckChanged
'Sub checkbox_CheckChanged(ByVal sender, ByVal e)
'MsgBox("Флажок переведён в состояние " & checkbox.ButtonState.ToString())
'End Sub

var middleStyle = new WorksheetRangeStyle();
middleStyle.Flag = PlainStyleFlag.Padding;
middleStyle.Flag = PlainStyleFlag.HorizontalAlign;
middleStyle.Padding = new unvell.ReoGrid.PaddingValue(2);
middleStyle.HAlign = ReoGridHorAlign.Center;
dynamic grayTextStyle = new WorksheetRangeStyle();
grayTextStyle.Flag = PlainStyleFlag.TextColor;
grayTextStyle.TextColor = Color.DimGray;

CheckBoxCell checkbox = new CheckBoxCell();
rgrid.CurrentWorksheet.SetRangeStyles(7, 2, 1, 1, middleStyle);
rgrid.CurrentWorksheet.SetRangeStyles(8, 2, 1, 1, grayTextStyle);
rgrid.CurrentWorksheet[7, 1] = new object[] {"Флажок",checkbox,	"Напомнить через 5 минут"};

rgrid.CurrentWorksheet[8, 2] = "(Изменить состояние элемента управления можно и при помощи клавиатуры)";
//Пример создания обработчика. Для его работы может потребоваться объявление переменной checkbox на уровне класса
//checkbox.CheckChanged += checkbox_CheckChanged;
/*public void checkbox_CheckChanged(sender, e)
{
Interaction.MsgBox("Флажок переведён в состояние " + checkbox.ButtonState.ToString());
}*/

rgrid.CurrentWorksheet(0, 1) = "Радиокнопки"

'Группа
Dim radioGroup As RadioButtonGroup = New RadioButtonGroup()

'Объявление ячеек и подключение их к группе
Dim rr1 As RadioButtonCell = New RadioButtonCell
rr1.RadioGroup = radioGroup
Dim rr2 As RadioButtonCell = New RadioButtonCell
rr2.RadioGroup = radioGroup
Dim rr3 As RadioButtonCell = New RadioButtonCell
rr3.RadioGroup = radioGroup

'Применяем к таблице
rgrid.CurrentWorksheet(1, 1) = rr1
rgrid.CurrentWorksheet(2, 1) = rr2
rgrid.CurrentWorksheet(3, 1) = rr3

'Ну и добавляем пояснения для пользователя
rgrid.CurrentWorksheet(1, 2) = "Яблоко"
rgrid.CurrentWorksheet(2, 2) = "Апельсин"
rgrid.CurrentWorksheet(3, 2) = "Банан"

rgrid.CurrentWorksheet[0, 1] = "Радиокнопки";

//Группа
RadioButtonGroup radioGroup = new RadioButtonGroup();

//Объявление ячеек и подключение их к группе
RadioButtonCell rr1 = new RadioButtonCell();
rr1.RadioGroup = radioGroup;
RadioButtonCell rr2 = new RadioButtonCell();
rr2.RadioGroup = radioGroup;
RadioButtonCell rr3 = new RadioButtonCell();
rr3.RadioGroup = radioGroup;

//Применяем к таблице
rgrid.CurrentWorksheet[1, 1] = rr1;
rgrid.CurrentWorksheet[2, 1] = rr2;
rgrid.CurrentWorksheet[3, 1] = rr3;

//Ну и добавляем пояснения для пользователя
rgrid.CurrentWorksheet[1, 2] = "Яблоко";
rgrid.CurrentWorksheet[2, 2] = "Апельсин";
rgrid.CurrentWorksheet[3, 2] = "Банан";

Dim mydropdown As New DropdownListCell("Яблоко", "Апельсин", "Банан", "Груша", "Тыква", "Вишня", "Кокос")
rgrid.CurrentWorksheet(2, 3) = New Object() {"Список:", mydropdown}

DropdownListCell mydropdown = new DropdownListCell( "Яблоко","Апельсин","Банан","Груша","Тыква","Вишня","Кокос" );
rgrid.CurrentWorksheet[2, 3] = new object[] {"Список:",	mydropdown};

'Загрузка из файла
Dim image1 As Image = Image.FromFile("D:\myinfo\photo.png")
rgrid.CurrentWorksheet(1, 2) = New ImageCell(image1)

'Получение из ресурсов
rgrid.CurrentWorksheet(1, 2) = New ImageCell(My.Resources.photo)
'или
rgrid.CurrentWorksheet("B3") = New ImageCell(My.Resources.photo)

'Создаём ImageCell с указанием параметра отображения
Dim img As Image = Image.FromFile("D:\myinfo\photo.png")
Dim imgCell As ImageCell = New ImageCell(img, ImageCellViewMode.Zoom)
rgrid.CurrentWorksheet("B3") = imgCell

'Также можно указать значение напрямую
imgCell.ViewMode = ImageCellViewMode.Clip

'И даже можно задать параметры выравнивания по вертикали и горизонтали:
Dim cell = rgrid.CurrentWorksheet.Cells("F6")
cell.Style.HAlign = ReoGridHorAlign.Center
cell.Style.VAlign = ReoGridVerAlign.Middle

'Ещё варианты 
rgrid.CurrentWorksheet(1, 2) = New ImageCell(My.Resources.photo, ImageCellViewMode.Clip)
rgrid.CurrentWorksheet(1, 2) = New ImageCell(My.Resources.photo, ImageCellViewMode.Stretch)
rgrid.CurrentWorksheet(1, 2) = New ImageCell(My.Resources.photo, ImageCellViewMode.Zoom)

//Загрузка из файла
Image image1 = Image.FromFile("D:\\myinfo\\photo.png");
rgrid.CurrentWorksheet[1, 2] = new ImageCell(image1);

//Получение из ресурсов
rgrid.CurrentWorksheet[1, 2] = new ImageCell(reogrid_test_CSharp.Properties.Resources.photo);
//или
rgrid.CurrentWorksheet["B3"] = new ImageCell(reogrid_test_CSharp.Properties.Resources.photo);

//Создаём ImageCell с указанием параметра отображения
Image img = Image.FromFile("D:\\myinfo\\photo.png");
ImageCell imgCell = new ImageCell(img, ImageCellViewMode.Zoom);
rgrid.CurrentWorksheet["B3"] = imgCell;		

//Также можно указать значение напрямую
imgCell.ViewMode = ImageCellViewMode.Clip;
  
//И даже можно задать параметры выравнивания по вертикали и горизонтали:
var cell = rgrid.CurrentWorksheet.Cells["F6"];
cell.Style.HAlign = ReoGridHorAlign.Center;
cell.Style.VAlign = ReoGridVerAlign.Middle;

//Ещё варианты 
rgrid.CurrentWorksheet[1, 2] = new ImageCell(reogrid_test_CSharp.Properties.Resources.photo, ImageCellViewMode.Clip);
rgrid.CurrentWorksheet[1, 2] = new ImageCell(reogrid_test_CSharp.Properties.Resources.photo, ImageCellViewMode.Stretch);
rgrid.CurrentWorksheet[1, 2] = new ImageCell(reogrid_test_CSharp.Properties.Resources.photo, ImageCellViewMode.Zoom);		

Dim pc As ProgressCell = New ProgressCell
pc.TopColor = Color.Aqua
pc.BottomColor = Color.Black
rgrid.CurrentWorksheet(7, 2) = 0.80000000000000004

rgrid.CurrentWorksheet(7, 2) = pc

ProgressCell pc = new ProgressCell();
pc.TopColor = Color.Aqua;
pc.BottomColor = Color.Black;
rgrid.CurrentWorksheet[7, 2] = 0.8;

rgrid.CurrentWorksheet[7, 2] = pc;

Dim ibc As ImageButtonCell = New ImageButtonCell
ibc.Image = Image.FromFile("D:\myinfo\photo.png")
rgrid.CurrentWorksheet(9, 2) = 0.80000000000000004

rgrid.CurrentWorksheet(9, 2) = ibc

ImageButtonCell ibc = new ImageButtonCell();
ibc.Image = Image.FromFile("D:\\myinfo\\photo.png");
rgrid.CurrentWorksheet[9, 2] = 0.8;

rgrid.CurrentWorksheet[9, 2] = ibc;

Dim npc As NegativeProgressCell = New NegativeProgressCell
npc.NegativeColor = Color.Red
npc.LinearGradient = True
npc.PositiveColor = Color.Green
rgrid.CurrentWorksheet(10, 2) = 0.80000000000000004
rgrid.CurrentWorksheet(10, 2) = npc

Dim npc1 As NegativeProgressCell = New NegativeProgressCell
npc1.NegativeColor = Color.Red
npc1.LinearGradient = True
npc1.PositiveColor = Color.Green
rgrid.CurrentWorksheet(11, 2) = -0.80000000000000004
rgrid.CurrentWorksheet(11, 2) = npc1

NegativeProgressCell npc = new NegativeProgressCell();
npc.NegativeColor = Color.Red;
npc.LinearGradient = true;
npc.PositiveColor = Color.Green;
rgrid.CurrentWorksheet[10, 2] = 0.8;
rgrid.CurrentWorksheet[10, 2] = npc;

NegativeProgressCell npc1 = new NegativeProgressCell();
npc1.NegativeColor = Color.Red;
npc1.LinearGradient = true;
npc1.PositiveColor = Color.Green;
rgrid.CurrentWorksheet[11, 2] = -0.8;
rgrid.CurrentWorksheet[11, 2] = npc1;

Dim myDatePicker As New DatePickerCell
rgrid.CurrentWorksheet(1, 3) = "Выберите дату:"
rgrid.CurrentWorksheet(2, 3) = New Object() {myDatePicker}
'или так:
rgrid.CurrentWorksheet(3, 3) = New Object() {"Выберите дату:", myDatePicker}

var myDatePicker = new DatePickerCell();
rgrid.CurrentWorksheet[1, 3] = "Выберите дату:";
rgrid.CurrentWorksheet[2, 3] = new Object[] {myDatePicker};
//или так:
rgrid.CurrentWorksheet[3, 3] = new Object[] {"Выберите дату:", myDatePicker};

'Числовой формат данных (Number)
Dim FFNum As New NumberDataFormatter.NumberFormatArgs
FFNum.DecimalPlaces = 4 'Количество знаков после запятой/точки: 0,1234
FFNum.NegativeStyle = NumberDataFormatter.NumberNegativeStyle.RedBrackets 'стиль отрицательных чисел
FFNum.UseSeparator = True 'Использовать разделитель: 123,456
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.Number, FFNum)

'Дата/Время (DateTime)
Dim FFDT As New DateTimeDataFormatter.DateTimeFormatArgs
FFDT.CultureName = "ru-RU" 'Культура "ru-RU"
FFDT.Format = "dd/MM/yyyy" 'Шаблон 
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.DateTime, FFDT)

'Процентный (Percent)
Dim FFPer As New NumberDataFormatter.NumberFormatArgs
FFPer.DecimalPlaces = 2 'Количество знаков после запятой или точки
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.Percent, FFPer)

'Денежный (Currency)
Dim FFCur As New CurrencyDataFormatter.CurrencyFormatArgs
FFCur.CultureEnglishName = "ru-RU" 'Культура "ru-RU"
FFCur.DecimalPlaces = 1 'Количество знаков после запятой/точки
FFCur.PostfixSymbol = "р." 'Символ "р.". Указываем после числа
'FFCur.PrefixSymbol = "р." 'Символ "р.". Указываем перед числом
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.Currency, FFCur)

'Текстовый (Text)
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.Text, Nothing)

//Числовой формат данных (Number)
NumberDataFormatter.NumberFormatArgs FFNum = new NumberDataFormatter.NumberFormatArgs();
FFNum.DecimalPlaces = 4; //Количество знаков после запятой/точки: 0,1234
FFNum.NegativeStyle = NumberDataFormatter.NumberNegativeStyle.RedBrackets; //стиль отрицательных чисел
FFNum.UseSeparator = true; //Использовать разделитель: 123,456
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.Number, FFNum);

//Дата/Время (DateTime)
DateTimeDataFormatter.DateTimeFormatArgs FFDT = new DateTimeDataFormatter.DateTimeFormatArgs();
FFDT.CultureName = "ru-RU"; //Культура "ru-RU"
FFDT.Format = "dd/MM/yyyy"; //Шаблон
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.DateTime, FFDT);

//Процентный (Percent)
NumberDataFormatter.NumberFormatArgs FFPer = new NumberDataFormatter.NumberFormatArgs();
FFPer.DecimalPlaces = 2; //Количество знаков после запятой или точки
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.Percent, FFPer);

//Денежный (Currency)
CurrencyDataFormatter.CurrencyFormatArgs FFCur = new CurrencyDataFormatter.CurrencyFormatArgs();
FFCur.CultureEnglishName = "ru-RU"; //Культура "ru-RU"
FFCur.DecimalPlaces = 1; //Количество знаков после запятой/точки
FFCur.PostfixSymbol = "р."; //Символ "р.". Указываем после числа
//FFCur.PrefixSymbol = "р."; //Символ "р.". Указываем перед числом
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.Currency, FFCur);

//Текстовый (Text)
rgrid.CurrentWorksheet.SetRangeDataFormat(RangePosition.EntireRange, CellDataFormatFlag.Text, null);

 
'1. Книга
rgrid.SetSettings(WorkbookSettings.View_ShowSheetTabControl, True) 'Универсальный (True - включение, False - выключение)
rgrid.EnableSettings(WorkbookSettings.View_ShowSheetTabControl) 'Включение
rgrid.DisableSettings(WorkbookSettings.View_ShowSheetTabControl) 'Выключение
Dim bBook As Boolean = rgrid.HasSettings(WorkbookSettings.View_ShowSheetTabControl) 'Получаем текущее значение параметра

'2. Лист
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_Default, True) 'Универсальный вариант
rgrid.CurrentWorksheet.EnableSettings(WorksheetSettings.Behavior_Default) 'Включение
rgrid.CurrentWorksheet.DisableSettings(WorksheetSettings.Behavior_Default) 'Выключение
Dim bSheet As Boolean = rgrid.CurrentWorksheet.HasSettings(WorksheetSettings.Behavior_Default) 'Получаем текущее значение параметра
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_Default Or WorksheetSettings.Edit_Readonly, False) 'Выключение сразу двух параметров

//1. Книга
rgrid.SetSettings(WorkbookSettings.View_ShowSheetTabControl, true); //Универсальный (true - включение, false - выключение)
rgrid.EnableSettings(WorkbookSettings.View_ShowSheetTabControl); //Включение
rgrid.DisableSettings(WorkbookSettings.View_ShowSheetTabControl); //Выключение
bool bBook = rgrid.HasSettings(WorkbookSettings.View_ShowSheetTabControl); //Получаем текущее значение параметра

//2. Лист
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_Default, true); //Универсальный вариант  (true - включение, false - выключение)
rgrid.CurrentWorksheet.EnableSettings(WorksheetSettings.Behavior_Default); //Включение
rgrid.CurrentWorksheet.DisableSettings(WorksheetSettings.Behavior_Default); //Выключение
bool bSheet  = rgrid.CurrentWorksheet.HasSettings(WorksheetSettings.Behavior_Default); //Получаем текущее значение параметра
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_Default | WorksheetSettings.Edit_Readonly, false);//Выключение сразу двух параметров

 
'Включаем все параметры книги
rgrid.SetSettings(WorkbookSettings.View_ShowSheetTabControl, True) 'Показывать вкладки-листы
rgrid.SetSettings(WorkbookSettings.View_ShowScrolls, True) 'Показывать полосы прокрутки
rgrid.SetSettings(WorkbookSettings.View_ShowHorScroll, True) 'Показывать горизонтальную полосу прокрутки
rgrid.SetSettings(WorkbookSettings.View_ShowVerScroll, True) 'Показывать вертикальную полосу прокрутки

'Включаем все параметры листа
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_MouseWheelToScroll, True) 'Разрешить прокрутку таблицы колесом мыши
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_MouseWheelToZoom, True) 'Разрешить пользователю масштабировать таблицу колесом мыши
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_ShortcutKeyToZoom, True) 'Разрешить пользователю масштабировать таблицу горячей клавишей (ctrl + plus,minus)
'rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_DragToMoveColumnHeader, True) 'Разрешить пользователю перемещать весь столбец перетаскиванием мышью (Зарезервировано)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_ScrollToFocusCell, True) 'Всегда разрешать автоматическую прокрутку листа для показа выбранных ячеек (имеющих фокус)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_AllowUserChangingPageBreaks, True) 'Разрешить пользователю вставлять, удалять или регулировать разделители страниц листа

'Правка
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_Readonly, True) 'Элемент управления будет работать в режиме "Только для чтения". Внесение каких-либо изменений запрещено
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AutoFormatCell, True) 'Разрешить форматировать данные после правки текста пользователем
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_FriendlyPercentInput, True) 'Разрешить отображение сомвола "процент" при вводе пользоателем значения ячейки с "процентным" форматом данных
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AutoExpandRowHeight, True) 'Разрешить настройку высоты строк при увеличении пользователем размера (кегля) шрифта
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AutoExpandColumnWidth, True) 'Разрешить настройку ширины столбцов при увеличении пользователем размера (кегля) шрифта
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AllowAdjustRowHeight, True) 'Разрешить пользователю настраивать высоту строк с помощью мыши
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AllowAdjustColumnWidth, True) 'Разрешить пользователю настраивать длину столбца с помощью мыши (перетаскиванием)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AllowAdjustColumnWidth, True) 'Разрешить пользователю регулировать ширину столбца перетаскиванием мышью
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_DragSelectionToMoveCells, True) 'Разрешить перемещать или копировать выделенный диапазон перетаскиванием мышью

'Отображение, внешний вид
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowColumnHeader, True) 'Показывать заголовки столбцов
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowRowHeader, True) 'Показывать заголовки строк
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowHorizontalRuler, True) 'Показывать горизонтальную линейку (зарезервировано)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowVerticalRuler, True) 'Показывать вертикальную линейку (зарезервировано)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowGridLine, True) 'Показывать линии сетки
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowHiddenCellLine, True) 'Разрешить отображение линии на скрытом заголовке строк
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_AllowShowRowOutlines, True) 'Разрешить показывать внешние границы строк, если они не замкнуты (outlines exiting)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_AllowShowColumnOutlines, True) 'Разрешить показ внешних границ столбцов, если они незамкнуты (outlines exiting)
'rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_MouseWheelToScroll, True) 'Разрешить прокрутку листа колесом мыши
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowPageBreaks, True) 'Разрешить отображать линии разделителя страниц
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_AllowCellTextOverflow, True) 'Сделать текст ячеек отображаемым только внутри ячейки, не перекрывая соседние ячейки
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowFrozenLine, True) 'Отображать или скрывать линию фиксации (frozen line). По умолчанию линия отображается (true)

'Подсчёт формул
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Formula_AutoUpdateReferenceCell, True) 'Разрешить автоматическое обновление ссылок на ячейки в формуле
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Formula_AutoPickingCellAddress, True) 'Разрешить выбирать адреса выделенных ячеек во время правки формулы (0.8.8 зарезервировано)

//Включаем все параметры книги
rgrid.SetSettings(WorkbookSettings.View_ShowSheetTabControl, true); //Показывать вкладки-листы
rgrid.SetSettings(WorkbookSettings.View_ShowScrolls, true); //Показывать полосы прокрутки
rgrid.SetSettings(WorkbookSettings.View_ShowHorScroll, true); //Показывать горизонтальную полосу прокрутки
rgrid.SetSettings(WorkbookSettings.View_ShowVerScroll, true); //Показывать вертикальную полосу прокрутки

//Включаем все параметры листа
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_MouseWheelToScroll, true); //Разрешить прокрутку таблицы колесом мыши
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_MouseWheelToZoom, true); //Разрешить пользователю масштабировать таблицу колесом мыши
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_ShortcutKeyToZoom, true); //Разрешить пользователю масштабировать таблицу горячей клавишей (ctrl + plus,minus)
//rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_DragToMoveColumnHeader, true); //Разрешить пользователю перемещать весь столбец перетаскиванием мышью (Зарезервировано)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_ScrollToFocusCell, true); //Всегда разрешать автоматическую прокрутку листа для показа выбранных ячеек (имеющих фокус)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Behavior_AllowUserChangingPageBreaks, true); //Разрешить пользователю вставлять, удалять или регулировать разделители страниц листа

//Правка
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_Readonly, true); //Элемент управления будет работать в режиме "Только для чтения". Внесение каких-либо изменений запрещено
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AutoFormatCell, true); //Разрешить форматировать данные после правки текста пользователем
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_FriendlyPercentInput, true); //Разрешить отображение сомвола "процент" при вводе пользоателем значения ячейки с "процентным" форматом данных
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AutoExpandRowHeight, true); //Разрешить настройку высоты строк при увеличении пользователем размера (кегля) шрифта
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AutoExpandColumnWidth, true); //Разрешить настройку ширины столбцов при увеличении пользователем размера (кегля) шрифта
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AllowAdjustRowHeight, true); //Разрешить пользователю настраивать высоту строк с помощью мыши
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AllowAdjustColumnWidth, true); //Разрешить пользователю настраивать длину столбца с помощью мыши (перетаскиванием)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_AllowAdjustColumnWidth, true); //Разрешить пользователю регулировать ширину столбца перетаскиванием мышью
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Edit_DragSelectionToMoveCells, true); //Разрешить перемещать или копировать выделенный диапазон перетаскиванием мышью

//Отображение, внешний вид
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowColumnHeader, true); //Показывать заголовки столбцов
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowRowHeader, true); //Показывать заголовки строк
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowHorizontalRuler, true); //Показывать горизонтальную линейку (зарезервировано)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowVerticalRuler, true); //Показывать вертикальную линейку (зарезервировано)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowGridLine, true); //Показывать линии сетки
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowHiddenCellLine, true); //Разрешить отображение линии на скрытом заголовке строк
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_AllowShowRowOutlines, true); //Разрешить показывать внешние границы строк, если они не замкнуты (outlines exiting)
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_AllowShowColumnOutlines, true); //Разрешить показ внешних границ столбцов, если они незамкнуты (outlines exiting)
//rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_MouseWheelToScroll, true); //Разрешить прокрутку листа колесом мыши
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowPageBreaks, true); //Разрешить отображать линии разделителя страниц
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_AllowCellTextOverflow, true); //Сделать текст ячеек отображаемым только внутри ячейки, не перекрывая соседние ячейки
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.View_ShowFrozenLine, true); //Отображать или скрывать линию фиксации (frozen line). По умолчанию линия отображается (true)

//Подсчёт формул
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Formula_AutoUpdateReferenceCell, true); //Разрешить автоматическое обновление ссылок на ячейки в формуле
rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Formula_AutoPickingCellAddress, true); //Разрешить выбирать адреса выделенных ячеек во время правки формулы (0.8.8 зарезервировано)
//rgrid.CurrentWorksheet.SetSettings(WorksheetSettings.Formula_AutoRebuild, true); //Разрешить автоматически корректировать или перестраивать формулу (0.8.8 зарезервировано)

rgrid.ShowScrollEndSpacing = False

rgrid.ShowScrollEndSpacing = false;

'Добавление обработчика:
Dim sheet = rgrid.CurrentWorksheet
AddHandler sheet.CellKeyUp, AddressOf sheet_CellKeyUp

//Добавление обработчика:
var sheet = rgrid.CurrentWorksheet;
sheet.CellKeyUp += sheet_CellKeyUp;

    Sub sheet_CellKeyUp(ByVal Sender As Object, ByVal e As CellKeyDownEventArgs)
MessageBox.Show("Нажата клавиша: " & e.KeyCode)
    End Sub
    

void sheet_CellKeyUp(object sender, unvell.ReoGrid.Events.CellKeyDownEventArgs e){
  MessageBox.Show("Нажата клавиша: " + e.KeyCode);
}

'Добавление обработчика:
'Dim sheet = rgrid.CurrentWorksheet
'AddHandler sheet.CellMouseDown, AddressOf sheet_CellMouseDown

'Код обработчика
'Sub sheet_CellMouseDown(ByVal Sender As Object, ByVal e As CellMouseEventArgs)
'небезопасно: экземпляр ячейки может быть равным Nothing
'Dim cell = e.Cell

'безопасно: если экземпляр ячейки не существует, то он создаётся по информации о позиции
'Dim sheet = rgrid.CurrentWorksheet
'Dim cell = sheet.CreateAndGetCell(e.CellPosition)
'End Sub

//Добавление обработчика:
var sheet = rgrid.CurrentWorksheet;
//sheet.CellMouseDown += sheet_CellMouseDown;

//Код обработчика:
//void sheet_CellMouseDown(object sender, CellMouseEventArgs e) {
//небезопасно: экземпляр ячейки может быть равным null
//var cell = e.Cell;

//безопасно: если экземпляр ячейки не существует, то он создаётся по информации о позиции
//var sheet = rgrid.CurrentWorksheet;
//var cell = sheet.CreateAndGetCell(e.CellPosition);
//}

'Добавление обработчика:
'AddHandler rgrid.AfterCellEdit, AddressOf rgrid_AfterCellEdit

'Код обработчика:
'Sub rgrid_AfterCellEdit(ByVal Sender As Object, ByVal e As CellAfterEditEventArgs)
'e.NewData = "[" & e.NewData & "]"
'End Sub

//Добавление обработчика:
//this.rgrid.AfterCellEdit += rgrid_AfterCellEdit;

//Код обработчика:
//void rgrid_AfterCellEdit(object sender, CellAfterEditEventArgs e)
//{
//  e.NewData = "[" + e.NewData + "]";
//}

'Добавление обработчика:
'Dim sheet = rgrid.CurrentWorksheet
'AddHandler sheet.SelectionRangeChanged, AddressOf sheet_SelectionRangeChanged

'Код обработчика:
'Sub sheet_SelectionRangeChanged(byval sender as object, byval args as RangeEventArgs)
'MessageBox.Show("Выделен другой диапазон: " & args.Range.ToAddress())
'End Sub

//Добавление обработчика:
//var sheet = rgrid.CurrentWorksheet;
//sheet.SelectionRangeChanged += sheet_SelectionRangeChanged;

//Код обработчика:
//void sheet_SelectionRangeChanged(object sender, RangeEventArgs args)
//{
//  MessageBox.Show("Выделен другой диапазон: " + args.Range.ToAddress());
//}

'Создание экземпляра стиля элемента управления, содержащего настройки цветов
Dim rgcs As ControlAppearanceStyle = New ControlAppearanceStyle(Color.Gray, Color.DarkOrange, False)

'Цвет текста будет серым
rgcs(ControlAppearanceColors.GridText) = Color.Gray
'Изменение других переменных...

'Применение обновлённого стиля
rgrid.ControlStyle = rgcs

// Создание экземпляра стиля элемента управления, содержащего настройки цветов
ControlAppearanceStyle rgcs = new ControlAppearanceStyle(Color.Gray, Color.DarkOrange, false);

// Цвет текста будет серым
rgcs[ControlAppearanceColors.GridText] = Color.Gray;
//Изменение других переменных...

// Применение обновлённого стиля
rgrid.ControlStyle = rgcs;

'Локализация
unvell.ReoGrid.LanguageResource.Button_Cancel = "Отмена"
unvell.ReoGrid.LanguageResource.Button_OK = "ОК"
unvell.ReoGrid.LanguageResource.Filter_SelectAll = "Выбрать все"
unvell.ReoGrid.LanguageResource.Filter_SortAtoZ = "Сортировка от А до Я"
unvell.ReoGrid.LanguageResource.Filter_SortZtoA = "Сортировка от Я до А"
unvell.ReoGrid.LanguageResource.Menu_DeleteSheet = "Удалить"
unvell.ReoGrid.LanguageResource.Menu_InsertSheet = "Вставить"
unvell.ReoGrid.LanguageResource.Menu_RenameSheet = "Переименовать"
unvell.ReoGrid.LanguageResource.Sheet = "Лист"
unvell.ReoGrid.LanguageResource.Sheet_RenameDialog_NameLabel = "Имя"
unvell.ReoGrid.LanguageResource.Sheet_RenameDialog_Title = "Переименование"

rgrid.CurrentWorksheet.Name = "Лист 1"

//Локализация
unvell.ReoGrid.LanguageResource.Button_Cancel = "Отмена";
unvell.ReoGrid.LanguageResource.Button_OK = "ОК";
unvell.ReoGrid.LanguageResource.Filter_SelectAll = "Выбрать все";
unvell.ReoGrid.LanguageResource.Filter_SortAtoZ = "Сортировка от А до Я";
unvell.ReoGrid.LanguageResource.Filter_SortZtoA = "Сортировка от Я до А";
unvell.ReoGrid.LanguageResource.Menu_DeleteSheet = "Удалить";
unvell.ReoGrid.LanguageResource.Menu_InsertSheet = "Вставить";
unvell.ReoGrid.LanguageResource.Menu_RenameSheet = "Переименовать";
unvell.ReoGrid.LanguageResource.Sheet = "Лист";
unvell.ReoGrid.LanguageResource.Sheet_RenameDialog_NameLabel = "Имя";
unvell.ReoGrid.LanguageResource.Sheet_RenameDialog_Title = "Переименование";

rgrid.CurrentWorksheet.Name = "Лист 1";

'Кегли
cboFontSize.Items.AddRange({8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 28, 32, 36, 48, 60, 72, 96, 100})

'Гарнитуры
cboFontName.DataSource = FontFamily.Families
cboFontName.ValueMember = "Name"
cboFontName.Text = "Выберите гарнитуру"

'Масштабирование
cboZoom.Items.AddRange({"25%", "50%", "75%", "100%", "125%", "150%", "200%", "300%", "400%"})

'Объявление обработчиков событий изменения масштаба
'AddHandler rgrid.CurrentWorksheet.Scaled, AddressOf Sheet_Scaled
AddHandler cboZoom.TextChanged, AddressOf cboZoom_TextChanged

//Кегли
cboFontSize.Items.AddRange(new string[] {"8", "9","10", "11", "12", "14", "16", "18", "20", "22", "24", "28", "32", "36", "48", "60", "72", "96", "100"});

//Гарнитуры
cboFontName.DataSource = FontFamily.Families;
cboFontName.ValueMember = "Name";
cboFontName.Text = "Выберите гарнитуру";

//Масштабирование
cboZoom.Items.AddRange(new string[] {"25%", "50%", "75%", "100%", "125%", "150%", "200%", "300%", "400%"});

//Объявление обработчика события изменения масштаба (уберите символы комментирования)
//rgrid.CurrentWorksheet.Scaled += Sheet_Scaled;
//cboZoom.TextChanged += cboZoom_TextChanged;

cboFunctions.Items.Add("SUM()")
cboFunctions.Items.Add("СУММ()")
cboFunctions.Items.Add("TODAY()")
cboFunctions.Items.Add("СЕГОДНЯ()")

cboFunctions.Items.Add("SUM()");
cboFunctions.Items.Add("СУММ()");
cboFunctions.Items.Add("TODAY()");
cboFunctions.Items.Add("СЕГОДНЯ()");

'Пример формулы со ссылками на ячейки (A1, B1) и диапазон (A1:C3)
rgrid.CurrentWorksheet("H8") = "=A1+B1-SUM(A1:C3)+AVERAGE(D1:H5)"

'Получение списка ссылок из ячейки
Dim rangeList = rgrid.CurrentWorksheet.GetCellFormulaReferenceRanges("H8")

//Пример формулы со ссылками на ячейки (A1, B1) и диапазон (A1:C3)
rgrid.CurrentWorksheet["H8"] = "=A1+B1-SUM(A1:C3)+AVERAGE(D1:H5)";

//Получение списка ссылок из ячейки
var rangeList = rgrid.CurrentWorksheet.GetCellFormulaReferenceRanges("H8");

rgrid.CurrentWorksheet("C2") = 10
rgrid.CurrentWorksheet("C3") = 5
Dim cell As Cell = rgrid.CurrentWorksheet.Cells("C5")
cell.Formula = "=C2+C3"
cell.TraceFormulaPrecedents = True

'или путём вызова TraceCellPrecedents:
rgrid.CurrentWorksheet.TraceCellPrecedents("C5")

'Следующий код позволит постоянно отображать трассирующие стрелки
'Добавляем обработчик события
'AddHandler rgrid.CellDataChanged, AddressOf rgrid_CellDataChanged
'Sub rgrid_CellDataChanged(ByVal sender As Object, ByVal e As unvell.ReoGrid.Events.CellEventArgs)
'e.Cell.TraceFormulaPrecedents = True
'End Sub

rgrid.CurrentWorksheet["C2"] = 10;
rgrid.CurrentWorksheet["C3"] = 5;
Cell cell = rgrid.CurrentWorksheet.Cells["C5"];
cell.Formula = "=C2+C3";
cell.TraceFormulaPrecedents = true;

//или путём вызова TraceCellPrecedents:
rgrid.CurrentWorksheet.TraceCellPrecedents("C5");

//Следующий код позволит постоянно отображать трассирующие стрелки
//rgrid.CellDataChanged += (s, e) => e.Cell.TraceFormulaPrecedents = true;

Dim namedRange As NamedRange = rgrid.CurrentWorksheet.DefineNamedRange("items", "B2:E2")
namedRange.Data = New Object() {1, 3, 5, 7}
rgrid.CurrentWorksheet("F2") = "=SUM(items)"

NamedRange namedRange = rgrid.CurrentWorksheet.DefineNamedRange("items", "B2:E2");
namedRange.Data = new object[] {1,3,5,7}; 
rgrid.CurrentWorksheet["F2"] = "=SUM(items)";

txtFormula.Text &= cboFunctions.Text

txtFormula.Text += cboFunctions.Text;

Try
    If e.KeyCode = Keys.Enter Then
rgrid.CurrentWorksheet.Cells(rgrid.CurrentWorksheet.FocusPos).Formula = txtFormula.Text
    End If
Catch ex As Exception
    MsgBox(ex.Message)
End Try

if (e.KeyCode == Keys.Enter) {
	rgrid.CurrentWorksheet.Cells[rgrid.CurrentWorksheet.FocusPos].Formula = txtFormula.Text;
}

'Получаем значение поля Formula
Dim strFormula As String = rgrid.CurrentWorksheet.Cells(rgrid.CurrentWorksheet.FocusPos).Formula

'Если поле не пустое - заносим его значение в строку формул, в поле списка функций заносим основные данные из ячейки
If Len(strFormula) >= 0 Then
    txtFormula.Text = strFormula
    cboFunctions.Text = rgrid.CurrentWorksheet.Cells(rgrid.CurrentWorksheet.FocusPos).DisplayText
End If

//Получаем значение поля Formula
{
string strFormula = rgrid.CurrentWorksheet.Cells[rgrid.CurrentWorksheet.FocusPos].Formula;

//Если поле не пустое - заносим его значение в строку формул, в поле списка функций заносим основные данные из ячейки
if (strFormula.Length >= 0) {
txtFormula.Text = strFormula;
cboFunctions.Text = rgrid.CurrentWorksheet.Cells[rgrid.CurrentWorksheet.FocusPos].DisplayText;
}}

rgrid.Reset()
rgrid.CurrentWorksheet.Reset()

rgrid.Reset();
rgrid.CurrentWorksheet.Reset();

'Загрузка данных из файла формата ReoGridFormat с использованием файлового потока
Using ss As FileStream = New FileStream(Application.StartupPath & "\test.rgf", FileMode.Create, FileAccess.Read)
    rgrid.Load(ss, IO.FileFormat.ReoGridFormat, Encoding.UTF8)
End Using

'Загрузка данных из файлов поддерживаемых форматов
'Вариант с функцией Load (книга целиком)
rgrid.Load(Application.StartupPath & "\test.csv", IO.FileFormat.CSV, Encoding.UTF8) 'CSV
rgrid.Load(Application.StartupPath & "\test.rgf", IO.FileFormat.ReoGridFormat, Encoding.UTF8) 'ReoGridFormat
rgrid.Load(Application.StartupPath & "\test.xlsx", IO.FileFormat.Excel2007, Encoding.UTF8) 'Excel 2007/2010

'Вариант с функцией LoadCSV (только один лист)
rgrid.CurrentWorksheet.LoadCSV(Application.StartupPath & "\test.csv", Encoding.UTF8)

//Загрузка данных из файла формата ReoGridFormat с использованием файлового потока
using (FileStream ss = new FileStream(Application.StartupPath + "\\test.rgf", FileMode.Create, FileAccess.Read)) {
  rgrid.Load(ss, unvell.ReoGrid.IO.FileFormat.ReoGridFormat, Encoding.UTF8);
}	

//Загрузка данных из файлов поддерживаемых форматов
//Вариант с функцией Load (книга целиком)
rgrid.Load(Application.StartupPath + "\\test.csv", unvell.ReoGrid.IO.FileFormat.CSV, Encoding.UTF8);//CSV
rgrid.Load(Application.StartupPath + "\\test.rgf", unvell.ReoGrid.IO.FileFormat.ReoGridFormat, Encoding.UTF8);//ReoGridFormat
rgrid.Load(Application.StartupPath + "\\test.xlsx", unvell.ReoGrid.IO.FileFormat.Excel2007, Encoding.UTF8);//Excel 2007/2010

//Вариант с функцией LoadCSV (только один лист)
rgrid.CurrentWorksheet.LoadCSV(Application.StartupPath + "\\test.csv", Encoding.UTF8);

'Сохранение данных в файл формата ReoGridFormat с использованием файлового потока
Using ss As FileStream = New FileStream(Application.StartupPath & "\test.rgf", FileMode.Create, FileAccess.Write)
    rgrid.Save(ss, IO.FileFormat.ReoGridFormat, Encoding.UTF8)
End Using

'Сохранение с использованием методов
rgrid.CurrentWorksheet.ExportAsCSV(Application.StartupPath & "\test.csv", , Encoding.UTF8) 'CSV
rgrid.Save(Application.StartupPath & "\test.rgf", IO.FileFormat.ReoGridFormat, Encoding.UTF8) 'ReoGridFormat
rgrid.Save(Application.StartupPath & "\test.xlsx", IO.FileFormat.Excel2007, Encoding.UTF8) 'Excel 2007/2010

'HTML
Using ss As FileStream = New FileStream(Application.StartupPath & "\test.html", FileMode.Create, FileAccess.Write)
    rgrid.CurrentWorksheet.ExportAsHTML(ss) 'Заголовок по умолчанию
    rgrid.CurrentWorksheet.ExportAsHTML(ss, "Произвольный заголовок") 'Произвольный заголовок
End Using

//Сохранение данных в файл формата ReoGridFormat с использованием файлового потока
using (FileStream ss = new FileStream(Application.StartupPath + "\\test.rgf", FileMode.Create, FileAccess.Write)) {
rgrid.Save(ss, unvell.ReoGrid.IO.FileFormat.ReoGridFormat, Encoding.UTF8);
}	

//Сохранение с использованием методов
rgrid.CurrentWorksheet.ExportAsCSV(Application.StartupPath + "\\test.csv", string.Empty, Encoding.UTF8); //CSV
rgrid.Save(Application.StartupPath + "\\test.rgf", unvell.ReoGrid.IO.FileFormat.ReoGridFormat, Encoding.UTF8); //ReoGridFormat
rgrid.Save(Application.StartupPath + "\\test.xlsx", unvell.ReoGrid.IO.FileFormat.Excel2007, Encoding.UTF8); //Excel 2007/2010

//HTML
using (FileStream ss = new FileStream(Application.StartupPath + "\\test.html", FileMode.Create, FileAccess.Write)) {
  rgrid.CurrentWorksheet.ExportAsHTML(ss); //Заголовок по умолчанию
  rgrid.CurrentWorksheet.ExportAsHTML(ss, "Произвольный заголовок"); //Произвольный заголовок
}

'Авторазбивка на страницы
rgrid.CurrentWorksheet.AutoSplitPage()

'Отображение линий разрывов страниц на экране
rgrid.CurrentWorksheet.EnableSettings(WorksheetSettings.View_ShowPageBreaks)

'Изменение диапазона печати    
rgrid.CurrentWorksheet.PrintableRange = New RangePosition(1, 1, 9, 9)

'Изменение порядка следования страниц
rgrid.CurrentWorksheet.PrintSettings.PageOrder = PrintPageOrder.DownThenOver

'Печать линий сетки таблицы
rgrid.CurrentWorksheet.PrintSettings.ShowGridLines = True

'Изменение параметров страницы
'Для этого используется свойство PageSettings
'rgrid.CurrentWorksheet.PageSettings.Landscape = True
'rgrid.CurrentWorksheet.PrintSettings.Landscape = True

'Вставка разрывов страниц
'rgrid.CurrentWorksheet.RowPageBreaks.Add(5)
'rgrid.CurrentWorksheet.ColumnPageBreaks.Add(5)

'Обновление разбивки страницы
rgrid.CurrentWorksheet.AutoSplitPage()

'Изменение разрывов страниц
rgrid.CurrentWorksheet.ChangeColumnPageBreak(0, 1) 'Старый индекс, Новый индекс
rgrid.CurrentWorksheet.ChangeRowPageBreak(0, 1) ' Старый индекс, Новый индекс

'Повторения страниц (Iterate pages)
rgrid.CurrentWorksheet.IteratePrintPages(Function(range)
     Console.WriteLine("Диапазон печати: " + range.ToAddress())
     Return True
 End Function)

'Отключение возможности изменения/подстройки разрывов страниц пользователем
rgrid.CurrentWorksheet.DisableSettings(WorksheetSettings.Behavior_AllowUserChangingPageBreaks)

//Авторазбивка на страницы
rgrid.CurrentWorksheet.AutoSplitPage();

//Отображение линий разрывов страниц на экране
rgrid.CurrentWorksheet.EnableSettings(WorksheetSettings.View_ShowPageBreaks);

//Изменение диапазона печати
rgrid.CurrentWorksheet.PrintableRange = new RangePosition(1, 1, 9, 9);

//Изменение порядка следования страниц
rgrid.CurrentWorksheet.PrintSettings.PageOrder = PrintPageOrder.DownThenOver;

//Печать линий сетки таблицы
rgrid.CurrentWorksheet.PrintSettings.ShowGridLines = true;

//Изменение параметров страницы
//Для этого используется свойство PageSettings
//rgrid.CurrentWorksheet.PageSettings.Landscape = true;
//rgrid.CurrentWorksheet.PrintSettings.Landscape = true;

//Вставка разрывов страниц
//rgrid.CurrentWorksheet.RowPageBreaks.Add(5);
//rgrid.CurrentWorksheet.ColumnPageBreaks.Add(5);

//Обновление разбивки страницы
rgrid.CurrentWorksheet.AutoSplitPage();

//Изменение разрывов страниц
rgrid.CurrentWorksheet.ChangeColumnPageBreak(0, 1);//Старый индекс, Новый индекс
rgrid.CurrentWorksheet.ChangeRowPageBreak(0, 1);//Старый индекс, Новый индекс

//Повторения страниц (Iterate pages)
rgrid.CurrentWorksheet.IteratePrintPages(range =>
{
Console.WriteLine("Диапазон печати: " + range.ToAddress());
return true;
});

//Отключение возможности изменения/подстройки разрывов страниц пользователем
rgrid.CurrentWorksheet.DisableSettings(WorksheetSettings.Behavior_AllowUserChangingPageBreaks);

'Вывод на печать содержимого одного листа с настройками по умолчанию
Dim session = rgrid.CurrentWorksheet.CreatePrintSession()
session.Print()

'Вывод на печать содержимого книги (всех листов). Доступно только в Pro-издании
Dim session1 = rgrid.CreatePrintSession()
session1.Print()

'Вывод на печать определённых листов. Доступно только в Pro-издании
Dim session2 = rgrid.CreatePrintSession()
session2.Worksheets.Clear()
session2.Worksheets.Add(rgrid.Worksheets("Sheet1"))
session2.Worksheets.Add(rgrid.Worksheets("Sheet3"))
session2.Print()

'Предварительный просмотр (Print Preview). Отображение диалогового окна
Dim sheet = rgrid.CurrentWorksheet
Using session3 = sheet.CreatePrintSession()
    Using ppd As New PrintPreviewDialog()
ppd.Document = session3.PrintDocument
ppd.SetBounds(200, 200, 1024, 768)
ppd.PrintPreviewControl.Zoom = 1.0
ppd.ShowDialog(Me)
    End Using
End Using

//Вывод на печать содержимого одного листа с настройками по умолчанию
var session = rgrid.CurrentWorksheet.CreatePrintSession();
session.Print();

//Вывод на печать содержимого книги (всех листов). Доступно только в Pro-издании
var session1 = rgrid.CreatePrintSession();
session1.Print();

//Вывод на печать определённых листов. Доступно только в Pro-издании
var session2 = rgrid.CreatePrintSession();
session2.Worksheets.Clear();
session2.Worksheets.Add(rgrid.Worksheets["Sheet1"]);
session2.Worksheets.Add(rgrid.Worksheets["Sheet3"]);
session2.Print();

//Предварительный просмотр (Print Preview). Отображение диалогового окна
var sheet = rgrid.CurrentWorksheet;

using (var session3 = sheet.CreatePrintSession())
{
  using (PrintPreviewDialog ppd = new PrintPreviewDialog())
  {
ppd.Document = session3.PrintDocument;
ppd.SetBounds(200, 200, 1024, 768);
ppd.PrintPreviewControl.Zoom = 1d;
ppd.ShowDialog(this);
  }
}

Using psd As PageSetupDialog = New PageSetupDialog()
    psd.PageSettings = rgrid.CurrentWorksheet.PrintSettings.CreateSystemPageSettings()

    psd.AllowMargins = True
    psd.AllowPrinter = True
    psd.AllowPaper = True
    psd.EnableMetric = True

    If psd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
rgrid.CurrentWorksheet.PrintSettings.ApplySystemPageSettings(psd.PageSettings)
    End If
End Using

using (PageSetupDialog psd = new PageSetupDialog())
{
psd.PageSettings = rgrid.CurrentWorksheet.PrintSettings.CreateSystemPageSettings();

  psd.AllowMargins = true;
  psd.AllowPrinter = true;
  psd.AllowPaper = true;
  psd.EnableMetric = true;

  if (psd.ShowDialog() == System.Windows.Forms.DialogResult.OK)
  {
  rgrid.CurrentWorksheet.PrintSettings.ApplySystemPageSettings(psd.PageSettings);
  }
}

'Создаём документ для печати
Dim docp As System.Drawing.Printing.PrintDocument = Nothing

'Показываем диалоговое окно предварительного просмотра
Using ppd As PrintPreviewDialog = New PrintPreviewDialog()
    ppd.Document = docp
    ppd.SetBounds(200, 200, 1024, 768)
    ppd.PrintPreviewControl.Zoom = 0.5D '1D
    ppd.PrintPreviewControl.Columns = 2
    ppd.PrintPreviewControl.Rows = 2
    ppd.ShowDialog(Me)
End Using

//Создаём документ для печати
System.Drawing.Printing.PrintDocument docp = null;//rgrid.CurrentWorksheet.CreatePrintSession();

//Показываем диалоговое окно предварительного просмотра
  using (PrintPreviewDialog ppd = new PrintPreviewDialog()) {
	ppd.Document = docp;
	ppd.SetBounds(200, 200, 1024, 768);
	ppd.PrintPreviewControl.Zoom = 0.5D;//1D
	ppd.PrintPreviewControl.Columns = 2;
	ppd.PrintPreviewControl.Rows = 2;
	ppd.ShowDialog(this);
  }

Dim doc As System.Drawing.Printing.PrintDocument = Nothing
Try
    doc = rgrid.CurrentWorksheet.CreatePrintSession().PrintDocument

Catch ex As Exception
    MessageBox.Show(Me, ex.Message, Me.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
    Return
End Try

Using pd = New System.Windows.Forms.PrintDialog()
    pd.Document = doc
    pd.UseEXDialog = True 'в 64-битной Windows

    If pd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
doc.PrinterSettings = pd.PrinterSettings
doc.Print()
    End If
End Using

If doc Is Nothing = False Then doc.Dispose()

System.Drawing.Printing.PrintDocument doc = null;

try {
  doc = rgrid.CurrentWorksheet.CreatePrintSession().PrintDocument;
}
catch (Exception ex)
{
  MessageBox.Show(this, ex.Message, this.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information);
  return;
}

using (var pd = new System.Windows.Forms.PrintDialog())
{
  pd.Document = doc;
  pd.UseEXDialog = true;  // в 64-битной Windows

  if (pd.ShowDialog() == System.Windows.Forms.DialogResult.OK)
  {
doc.PrinterSettings = pd.PrinterSettings;
doc.Print();
  }
}

if (doc != null) doc.Dispose();

Try
    rgrid.CurrentWorksheet.ResetAllPageBreaks()
Catch ex As Exception
    MsgBox(ex.Message)
End Try

try {
rgrid.CurrentWorksheet.ResetAllPageBreaks();
} catch (Exception ex) {
 MessageBox.Show(ex.Message);
  }

'Стиль выделения
rgrid.CurrentWorksheet.SelectionStyle = unvell.ReoGrid.WorksheetSelectionStyle.None 'Отсутствует
rgrid.CurrentWorksheet.SelectionStyle = unvell.ReoGrid.WorksheetSelectionStyle.Default 'По умолчанию
rgrid.CurrentWorksheet.SelectionStyle = unvell.ReoGrid.WorksheetSelectionStyle.FocusRect 'Фокус Windows

'Режим выделения
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.None 'Отсутствует
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Cell 'Одна ячейка
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Range 'Диапазон ячеек
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Row 'Строка
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Column 'Столбец

'Направление перехода
rgrid.CurrentWorksheet.SelectionForwardDirection = SelectionForwardDirection.Right 'Вправо
rgrid.CurrentWorksheet.SelectionForwardDirection = SelectionForwardDirection.Down 'Вниз

//Стиль выделения
rgrid.CurrentWorksheet.SelectionStyle = unvell.ReoGrid.WorksheetSelectionStyle.None;
rgrid.CurrentWorksheet.SelectionStyle = unvell.ReoGrid.WorksheetSelectionStyle.Default;
rgrid.CurrentWorksheet.SelectionStyle = unvell.ReoGrid.WorksheetSelectionStyle.FocusRect;

//Режим выделения
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.None;
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Cell;
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Range;
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Row;
rgrid.CurrentWorksheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Column;

//Направление перехода
rgrid.CurrentWorksheet.SelectionForwardDirection = SelectionForwardDirection.Right;
rgrid.CurrentWorksheet.SelectionForwardDirection = SelectionForwardDirection.Down;

'Получаем позицию заморозки/закрепления
Dim pos As CellPosition = rgrid.CurrentWorksheet.FreezePos()

'Проверяем - зафиксирован ли данный лист:
Dim isFrozen As Boolean = rgrid.CurrentWorksheet.IsFrozen()

'Фиксируем до указанной позиции (вводим третий аргумент, указывающий точку фиксации)
rgrid.CurrentWorksheet.FreezeToCell(5, 0) 'Обычная фиксация (указана только позиция)
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.Left) 'С привязкой по левому краю
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.Right) 'С привязкой по правому краю
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.Top) 'С привязкой по верхнему краю
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.Bottom) 'С привязкой по нижнему краю
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.LeftTop) 'С привязкой по левому и верхнему краям
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.LeftBottom) 'С привязкой по левому и нижнему краям
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.RightTop) 'С привязкой по правому и верхнему краям
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.RightBottom) 'С привязкой по правому и нижнему краям

'Отмена фиксации
rgrid.CurrentWorksheet.Unfreeze()

//Получаем позицию заморозки/закрепления
CellPosition pos = rgrid.CurrentWorksheet.FreezePos;

//Проверяем - зафиксирован ли данный лист:
bool isFrozen = rgrid.CurrentWorksheet.IsFrozen;

//Фиксируем до указанной позиции (вводим третий аргумент, указывающий точку фиксации)
rgrid.CurrentWorksheet.FreezeToCell(5, 0);//Обычная фиксация (указана только позиция)
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.Left);//С привязкой по левому краю
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.Right);//С привязкой по правому краю
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.Top);//С привязкой по верхнему краю
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.Bottom);//С привязкой по нижнему краю
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.LeftTop);//С привязкой по левому и верхнему краям
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.LeftBottom);//С привязкой по левому и нижнему краям
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.RightTop);//С привязкой по правому и верхнему краям
rgrid.CurrentWorksheet.FreezeToCell(1, 1, FreezeArea.RightBottom);//С привязкой по правому и нижнему краям

//Отмена фиксации
rgrid.CurrentWorksheet.Unfreeze();

'Получаем количество строк и столбцов
Dim intRows As Integer = rgrid.CurrentWorksheet.RowCount 'Количество строк
Dim intCols As Integer = rgrid.CurrentWorksheet.ColumnCount 'Количество столбцов

'Задаём размер таблицы используя указанные выше переменные
rgrid.CurrentWorksheet.Resize(intRows, intCols)

'Или максимальное количество ячеек
rgrid.CurrentWorksheet.Resize(1048576, 32768)

//Получаем количество строк и столбцов
int intRows = rgrid.CurrentWorksheet.RowCount;
int intCols = rgrid.CurrentWorksheet.ColumnCount;

//Задаём размер таблицы используя указанные выше переменные
rgrid.CurrentWorksheet.Resize(intRows, intCols);

//Или максимальное количество ячеек
rgrid.CurrentWorksheet.Resize(1048576, 32768);

'Шаг 1. Создание экземпляра стиля
Dim MyStyle As New WorksheetRangeStyle

'Шаг 2. Задание нужных флагов
MyStyle.Flag = PlainStyleFlag.FontName Or PlainStyleFlag.FontSize Or
    PlainStyleFlag.TextColor Or
    PlainStyleFlag.FontStyleBold Or PlainStyleFlag.FontStyleItalic Or PlainStyleFlag.FontStyleUnderline Or PlainStyleFlag.FontStyleStrikethrough Or PlainStyleFlag.RotateAngle Or
    PlainStyleFlag.TextWrap Or
    PlainStyleFlag.HorizontalAlign Or PlainStyleFlag.VerticalAlign Or
    PlainStyleFlag.BackColor Or PlainStyleFlag.FillPattern

'Шаг 3. Изменение заданных флагами параметров
'Шрифты
MyStyle.FontName = cboFontName.Text
MyStyle.FontSize = Convert.ToInt16(Val(cboFontSize.Text))

MyStyle.FontSize = MyStyle.FontSize + 1 '+ 1 пт
cboFontSize.Text = Convert.ToString(MyStyle.FontSize)

MyStyle.RotateAngle = 45 'Поворот текста на 45 градусов

'Изменяем цвет шрифта
MyStyle.TextColor = Color.Red 'Красный

'Начертание шрифта
MyStyle.Bold = chkFontBold.Checked 'Полужирный
MyStyle.Italic = chkFontItalic.Checked 'Курсив (наклонный)
MyStyle.Underline = chkFontUnderline.Checked 'Подчёркнутый
MyStyle.Strikethrough = chkFontStrike.Checked 'Зачёркнутый

'Перенос текста (по умолчанию - без переноса, - no-wrap)
If chkTextWrap.Checked = True Then MyStyle.TextWrapMode = TextWrapMode.WordBreak Else MyStyle.TextWrapMode = TextWrapMode.NoWrap

'Горизонтальное выравнивание
MyStyle.HAlign = ReoGridHorAlign.Left 'По левому краю
MyStyle.HAlign = ReoGridHorAlign.Center 'По центру
MyStyle.HAlign = ReoGridHorAlign.Right 'По правому краю
MyStyle.HAlign = ReoGridHorAlign.DistributedIndent 'С распределённым отступом

'Вертикальное выравнивание
MyStyle.VAlign = ReoGridVerAlign.Top 'По верхней стороне
MyStyle.VAlign = ReoGridVerAlign.Middle 'Посередине
MyStyle.VAlign = ReoGridVerAlign.Bottom 'По нижней стороне

'Задание фона ячейки
MyStyle.BackColor = Color.Empty 'Очищаем ячейки
MyStyle.BackColor = unvell.ReoGrid.Graphics.SolidColor.Yellow 'Жёлтый цвет

'Фон на основе шаблона
MyStyle.FillPatternColor = Color.SkyBlue 'Цвет узора
MyStyle.FillPatternStyle = unvell.ReoGrid.Graphics.HatchStyles.DiagonalBrick 'Стиль узора

'Шаг 4. Применение стиля к выбранному диапазону
rgrid.CurrentWorksheet.SetRangeStyles(rgrid.CurrentWorksheet.SelectionRange, MyStyle)

//Шаг 1. Создание экземпляра стиля
WorksheetRangeStyle MyStyle = new WorksheetRangeStyle();

//Шаг 2. Задание нужных флагов
MyStyle.Flag = PlainStyleFlag.FontName | PlainStyleFlag.FontSize |
PlainStyleFlag.TextColor |
PlainStyleFlag.FontStyleBold | PlainStyleFlag.FontStyleItalic | PlainStyleFlag.FontStyleUnderline | PlainStyleFlag.FontStyleStrikethrough | PlainStyleFlag.RotateAngle |
PlainStyleFlag.TextWrap |
PlainStyleFlag.HorizontalAlign | PlainStyleFlag.VerticalAlign |
PlainStyleFlag.BackColor | PlainStyleFlag.FillPattern;

//Шаг 3. Изменение заданных флагами параметров
//Шрифты
MyStyle.FontName = cboFontName.Text;
MyStyle.FontSize = int.Parse(cboFontSize.Text);

MyStyle.FontSize = MyStyle.FontSize + 1; //+ 1 пт
cboFontSize.Text = Convert.ToString(MyStyle.FontSize);

MyStyle.RotateAngle = 45; //Поворот текста на 45 градусов

//Изменяем цвет шрифта
MyStyle.TextColor = Color.Red; //Красный

//Начертание шрифта
MyStyle.Bold = chkFontBold.Checked; //Полужирный
MyStyle.Italic = chkFontItalic.Checked; //Курсив (наклонный)
MyStyle.Underline = chkFontUnderline.Checked; //Подчёркнутый
MyStyle.Strikethrough = chkFontStrike.Checked; //Зачёркнутый

//Перенос текста (по умолчанию - без переноса, - no-wrap)
if (chkTextWrap.Checked == true) { MyStyle.TextWrapMode = TextWrapMode.WordBreak;} else { MyStyle.TextWrapMode = TextWrapMode.NoWrap; };

//Горизонтальное выравнивание
MyStyle.HAlign = ReoGridHorAlign.Left; //По левому краю
MyStyle.HAlign = ReoGridHorAlign.Center; //По центру
MyStyle.HAlign = ReoGridHorAlign.Right; //По правому краю
MyStyle.HAlign = ReoGridHorAlign.DistributedIndent; //С распределённым отступом

//Вертикальное выравнивание
MyStyle.VAlign = ReoGridVerAlign.Top; //По верхней стороне
MyStyle.VAlign = ReoGridVerAlign.Middle; //Посередине
MyStyle.VAlign = ReoGridVerAlign.Bottom; //По нижней стороне

//Задание фона ячейки
MyStyle.BackColor = Color.Empty; //Очищаем ячейки
MyStyle.BackColor = unvell.ReoGrid.Graphics.SolidColor.Yellow; //Жёлтый цвет

//Фон на основе шаблона
MyStyle.FillPatternColor = Color.SkyBlue; //Цвет узора
MyStyle.FillPatternStyle = unvell.ReoGrid.Graphics.HatchStyles.DiagonalBrick; //Стиль узора

//Шаг 4. Применение стиля к выбранному диапазону
rgrid.CurrentWorksheet.SetRangeStyles(rgrid.CurrentWorksheet.SelectionRange, MyStyle);

rgrid.CurrentWorksheet.Cells("E5").Style.BackColor = Color.LightYellow 'Цвет фона
rgrid.CurrentWorksheet.Cells("E5").Style.Bold = True 'Полужирный
rgrid.CurrentWorksheet.Cells("E5").Style.Italic = True 'Наклонный
rgrid.CurrentWorksheet.Cells("E5").Style.Underline = True 'Подчёркнутый
rgrid.CurrentWorksheet.Cells("E5").Style.Strikethrough = True 'Зачёркнутый
rgrid.CurrentWorksheet.Cells("E5").Style.FontName = "Verdana" 'Гарнитура
rgrid.CurrentWorksheet.Cells("E5").Style.FontSize = 12 'Кегль
rgrid.CurrentWorksheet.Cells("E5").Style.HAlign = ReoGridHorAlign.Center 'Горизонтальное выравнивание
rgrid.CurrentWorksheet.Cells("E5").Style.VAlign = ReoGridVerAlign.Middle 'Вертикальное выравнивание
rgrid.CurrentWorksheet.Cells("E5").Style.Indent = 15 'Отступ текста
rgrid.CurrentWorksheet.Cells("E5").Style.Padding = New PaddingValue(5, 5, 5, 5) 'Отступы в ячейке
rgrid.CurrentWorksheet.Cells("E5").Style.Padding = New PaddingValue(5) 'Отступы в ячейке
rgrid.CurrentWorksheet.Cells("E5").Style.RotateAngle = 90 'Поворот текста (в Pro-издании)
rgrid.CurrentWorksheet.Cells("E5").Style.TextColor = Color.Blue 'Цвет текста
rgrid.CurrentWorksheet.Cells("E5").Style.TextWrap = TextWrapMode.WordBreak 'Перенос по словам

//Основные настройки стиля для отдельно взятой ячейки. Для большего числа ячеек нужно использовать стили
rgrid.CurrentWorksheet.Cells["E5"].Style.BackColor = Color.LightYellow; //Цвет фона
rgrid.CurrentWorksheet.Cells["E5"].Style.Bold = true; //Полужирный
rgrid.CurrentWorksheet.Cells["E5"].Style.Italic = true; //Наклонный
rgrid.CurrentWorksheet.Cells["E5"].Style.Underline = true; //Подчёркнутый
rgrid.CurrentWorksheet.Cells["E5"].Style.Strikethrough = true; //Зачёркнутый
rgrid.CurrentWorksheet.Cells["E5"].Style.FontName = "Verdana"; //Гарнитура
rgrid.CurrentWorksheet.Cells["E5"].Style.FontSize = 12; //Кегль
rgrid.CurrentWorksheet.Cells["E5"].Style.HAlign = ReoGridHorAlign.Center; //Горизонтальное выравнивание
rgrid.CurrentWorksheet.Cells["E5"].Style.VAlign = ReoGridVerAlign.Middle; //Вертикальное выравнивание
rgrid.CurrentWorksheet.Cells["E5"].Style.Indent = 15; //Отступ текста
rgrid.CurrentWorksheet.Cells["E5"].Style.Padding = new PaddingValue(5, 5, 5, 5); //Отступы в ячейке
rgrid.CurrentWorksheet.Cells["E5"].Style.Padding = new PaddingValue(5); //Отступы в ячейке
rgrid.CurrentWorksheet.Cells["E5"].Style.RotateAngle = 90; //Поворот текста (в Pro-издании)
rgrid.CurrentWorksheet.Cells["E5"].Style.TextColor = Color.Blue; //Цвет текста
rgrid.CurrentWorksheet.Cells["E5"].Style.TextWrap = TextWrapMode.WordBreak; //Перенос по словам

If e.Range.IsEmpty = True Then MsgBox("Выбран пустой диапазон") : Exit Sub 'Ничего не выбрано - можно не продолжать
lblStatus.Text = "Выделенный диапазон: " & rgrid.CurrentWorksheet.SelectionRange.ToString()

Dim MyStyle As New WorksheetRangeStyle 'Создаём экземпляр стиля
MyStyle = rgrid.CurrentWorksheet.GetRangeStyles(rgrid.CurrentWorksheet.SelectionRange)

cboFontName.Text = MyStyle.FontName 'Гарнитура шрифта
cboFontSize.Text = Convert.ToString(MyStyle.FontSize) 'Кегль шрифта (размер)
chkFontBold.Checked = MyStyle.Bold 'Полужирный
chkFontItalic.Checked = MyStyle.Italic 'Курсив
chkFontUnderline.Checked = MyStyle.Underline 'Подчёркнутый
chkFontStrike.Checked = MyStyle.Strikethrough 'Зачёркнутый

'Выравнивание по левому краю
If MyStyle.HAlign = ReoGridHorAlign.Left Then
    radTextAlignLeft.Checked = True
Else
    radTextAlignLeft.Checked = False
End If

'Горизонтальная центровка
If MyStyle.HAlign = ReoGridHorAlign.Center Then
    radTextAlignCenter.Checked = True
Else
    radTextAlignCenter.Checked = False
End If

'Выравнивание по правому краю
If MyStyle.HAlign = ReoGridHorAlign.Right Then
    radTextAlignRight.Checked = True
Else
    radTextAlignRight.Checked = False
End If

'Распределённый отступ
If MyStyle.HAlign = ReoGridHorAlign.DistributedIndent Then
    radTextDisributedIndent.Checked = True
Else
    radTextDisributedIndent.Checked = False
End If

'Перенос по словам
chkTextWrap.Checked = Convert.ToBoolean(MyStyle.TextWrapMode)

'Вертикальное выравнивание: Сверху
If MyStyle.VAlign = ReoGridVerAlign.Top Then
    radTextAlignTop.Checked = True
Else
    radTextAlignTop.Checked = False
End If

'Вертикальное выравнивание: Посередине
If MyStyle.VAlign = ReoGridVerAlign.Middle Then
    radTextAlignMiddle.Checked = True
Else
    radTextAlignMiddle.Checked = False
End If

'Вертикальное выравнивание: Снизу
If MyStyle.VAlign = ReoGridVerAlign.Bottom Then
    radTextAlignBottom.Checked = True
Else
    radTextAlignBottom.Checked = False
End If

'Другие свойства:
'grpBackgroundColor.BackColor = MyStyle.BackColor 'Цвет фона
'MyStyle.CopyFrom() 'Копировать из другого стиля
'MyStyle.FillPatternColor 'Цвет шаблона фона (узора)
'MyStyle.FillPatternStyle 'Шаблон (узор)
'MyStyle.HAlign.General
'MyStyle.Padding 'Отступы
'grpTextColor.BackColor = MyStyle.TextColor 'Цвет текста

if (e.Range.IsEmpty == true)
{
MessageBox.Show("Выбран пустой диапазон"); return;
}
//Ничего не выбрано - можно не продолжать
lblStatus.Text = "Выделенный диапазон: " + rgrid.CurrentWorksheet.SelectionRange.ToString();

WorksheetRangeStyle MyStyle = new WorksheetRangeStyle();
//Создаём экземпляр стиля
MyStyle = rgrid.CurrentWorksheet.GetRangeStyles(rgrid.CurrentWorksheet.SelectionRange);

cboFontName.Text = MyStyle.FontName; //Гарнитура шрифта
cboFontSize.Text = Convert.ToString(MyStyle.FontSize); //Кегль шрифта (размер)
chkFontBold.Checked = MyStyle.Bold; //Полужирный
chkFontItalic.Checked = MyStyle.Italic; //Курсив
chkFontUnderline.Checked = MyStyle.Underline; //Подчёркнутый
chkFontStrike.Checked = MyStyle.Strikethrough; //Зачёркнутый

//Выравнивание по левому краю
if (MyStyle.HAlign == ReoGridHorAlign.Left)
{radTextAlignLeft.Checked = true;}
else
{radTextAlignLeft.Checked = false;}

//Горизонтальная центровка
if (MyStyle.HAlign == ReoGridHorAlign.Center)
{radTextAlignCenter.Checked = true;}
else
{radTextAlignCenter.Checked = false;}

//Выравнивание по правому краю
if (MyStyle.HAlign == ReoGridHorAlign.Right)
{radTextAlignRight.Checked = true;}
else
{radTextAlignRight.Checked = false;}

//Распределённый отступ
if (MyStyle.HAlign == ReoGridHorAlign.DistributedIndent)
{radTextDisributedIndent.Checked = true;}
else
{radTextDisributedIndent.Checked = false;}

//Перенос по словам
chkTextWrap.Checked = Convert.ToBoolean(MyStyle.TextWrapMode); 

//Вертикальное выравнивание: Сверху
if (MyStyle.VAlign == ReoGridVerAlign.Top)
{radTextAlignTop.Checked = true;}
else
{radTextAlignTop.Checked = false;}

//Вертикальное выравнивание: Посередине
if (MyStyle.VAlign == ReoGridVerAlign.Middle)
{radTextAlignMiddle.Checked = true;}
else
{radTextAlignMiddle.Checked = false;}

//Вертикальное выравнивание: Снизу
if (MyStyle.VAlign == ReoGridVerAlign.Bottom)
{radTextAlignBottom.Checked = true;}
else
{radTextAlignBottom.Checked = false;}

//Другие свойства:
//grpBackgroundColor.BackColor = MyStyle.BackColor; //Цвет фона
//MyStyle.CopyFrom(); //Копировать из другого стиля
//MyStyle.FillPatternColor; //Цвет шаблона фона (узора)
//MyStyle.FillPatternStyle; //Шаблон (узор)
//MyStyle.HAlign.General
//MyStyle.Padding; //Отступы
//grpTextColor.BackColor = MyStyle.TextColor; //Цвет текста

'Удаляем стиль для выделенного диапазона, даже если он состоит из одной ячейки.
rgrid.CurrentWorksheet.RemoveRangeStyles(rgrid.CurrentWorksheet.SelectionRange, PlainStyleFlag.BackAll) 'Метод

'Убираем фоновый цвет для выбранного диапазона:
rgrid.DoAction(New RemoveRangeStyleAction(rgrid.CurrentWorksheet.SelectionRange, PlainStyleFlag.BackAll)) 'Действие

//Удаляем стиль для выделенного диапазона, даже если он состоит из одной ячейки.
rgrid.CurrentWorksheet.RemoveRangeStyles(rgrid.CurrentWorksheet.SelectionRange, PlainStyleFlag.BackAll); //Метод

//Убираем фоновый цвет для выбранного диапазона:
rgrid.DoAction(new RemoveRangeStyleAction(rgrid.CurrentWorksheet.SelectionRange, PlainStyleFlag.BackAll)); //Действие

'Объявление экземпляра стиля диапазона ячеек
Dim MyStyleBorder1 As New RangeBorderStyle

'Тип линий, оставляем нужную
MyStyleBorder1.Style = BorderLineStyle.BoldDashDot 'Полужирный штрих-точка
MyStyleBorder1.Style = BorderLineStyle.BoldDashDotDot 'Полужирный штрих-точка-точка
MyStyleBorder1.Style = BorderLineStyle.BoldDashed 'Полужирный штрих
MyStyleBorder1.Style = BorderLineStyle.BoldDotted 'Полужирная точка
MyStyleBorder1.Style = BorderLineStyle.BoldSolid 'Полужирная сплошная
MyStyleBorder1.Style = BorderLineStyle.BoldSolidStrong 'Полужирная сплошная
MyStyleBorder1.Style = BorderLineStyle.DashDot 'Штрих-точка
MyStyleBorder1.Style = BorderLineStyle.DashDotDot 'Штрих-точка-точка
MyStyleBorder1.Style = BorderLineStyle.Dashed 'Штриховая
MyStyleBorder1.Style = BorderLineStyle.Dashed2 'Штриховая
MyStyleBorder1.Style = BorderLineStyle.Dotted 'Точечная
MyStyleBorder1.Style = BorderLineStyle.DoubleLine 'Двойная линия
MyStyleBorder1.Style = BorderLineStyle.None 'Без границы
MyStyleBorder1.Style = BorderLineStyle.Solid 'Сплошная

'Цвета линий
MyStyleBorder1.Color = Color.Green 'Цвет из палитры .Net
MyStyleBorder1.Color = unvell.ReoGrid.Graphics.SolidColor.Green 'Цвет из палитры Unvell.Reogrid
MyStyleBorder1.Color = Color.FromArgb(127, 127, 127, 127) 'Произвольный цвет с прозрачностью

'Параметры границ диапазона или ячейки
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.All, MyStyleBorder1) 'Все границы
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Backslash, MyStyleBorder1) 'Диагональная 1
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Bottom, MyStyleBorder1) 'Нижняя
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.InsideAll, MyStyleBorder1) 'Все внутренние
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.InsideHorizontal, MyStyleBorder1) 'Внутренние горизонтальные
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.InsideVertical, MyStyleBorder1) 'Внутренние вертикальные
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Left, MyStyleBorder1) 'Левая
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.LeftRight, MyStyleBorder1) 'Левая и правая
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.None, MyStyleBorder1) 'Отсутсвуют
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Outside, MyStyleBorder1) 'Внешние (ранее использовалось уже устаревшее Outline)
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Right, MyStyleBorder1) 'Правая
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Slash, MyStyleBorder1) 'Диагональная 2
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Top, MyStyleBorder1) 'Верхняя
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.TopBottom, MyStyleBorder1) 'Верхняя и нижняя
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.X, MyStyleBorder1) 'Все диагональные

//Объявление экземпляра стиля диапазона ячеек
RangeBorderStyle MyStyleBorder1 = new RangeBorderStyle();

//Тип линий, оставляем нужную
MyStyleBorder1.Style = BorderLineStyle.BoldDashDot; //Полужирный штрих-точка
MyStyleBorder1.Style = BorderLineStyle.BoldDashDotDot; //Полужирный штрих-точка-точка
MyStyleBorder1.Style = BorderLineStyle.BoldDashed; //Полужирный штрих
MyStyleBorder1.Style = BorderLineStyle.BoldDotted; //Полужирная точка
MyStyleBorder1.Style = BorderLineStyle.BoldSolid; //Полужирная сплошная
MyStyleBorder1.Style = BorderLineStyle.BoldSolidStrong; //Полужирная сплошная
MyStyleBorder1.Style = BorderLineStyle.DashDot; //Штрих-точка
MyStyleBorder1.Style = BorderLineStyle.DashDotDot; //Штрих-точка-точка
MyStyleBorder1.Style = BorderLineStyle.Dashed; //Штриховая
MyStyleBorder1.Style = BorderLineStyle.Dashed2; //Штриховая
MyStyleBorder1.Style = BorderLineStyle.Dotted; //Точечная
MyStyleBorder1.Style = BorderLineStyle.DoubleLine; //Двойная линия
MyStyleBorder1.Style = BorderLineStyle.None; //Без границы
MyStyleBorder1.Style = BorderLineStyle.Solid; //Сплошная

//Цвета линий
MyStyleBorder1.Color = Color.Green; //Цвет из палитры .Net
MyStyleBorder1.Color = unvell.ReoGrid.Graphics.SolidColor.Green; //Цвет из палитры Unvell.Reogrid
MyStyleBorder1.Color = Color.FromArgb(127, 127, 127, 127); //Произвольный цвет с прозрачностью

//Параметры границ диапазона или ячейки
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.All, MyStyleBorder1); //Все границы
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Backslash, MyStyleBorder1); //Диагональная 1
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Bottom, MyStyleBorder1); //Нижняя
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.InsideAll, MyStyleBorder1); //Все внутренние
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.InsideHorizontal, MyStyleBorder1); //Внутренние горизонтальные
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.InsideVertical, MyStyleBorder1); //Внутренние вертикальные
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Left, MyStyleBorder1); //Левая
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.LeftRight, MyStyleBorder1); //Левая и правая
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.None, MyStyleBorder1); //Отсутсвуют
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Outside, MyStyleBorder1); //Внешние (ранее использовалось уже устаревшее Outline)
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Right, MyStyleBorder1); //Правая
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Slash, MyStyleBorder1); //Диагональная 2
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.Top, MyStyleBorder1); //Верхняя
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.TopBottom, MyStyleBorder1); //Верхняя и нижняя
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.X, MyStyleBorder1); //Все диагональные

Dim MyStyleBorder2 As New RangeBorderStyle
MyStyleBorder2.Color = Color.Empty
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.All, MyStyleBorder2)
'или
rgrid.CurrentWorksheet.RemoveRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.All)

RangeBorderStyle MyStyleBorder2 = new RangeBorderStyle();
MyStyleBorder2.Color = Color.Empty;
rgrid.CurrentWorksheet.SetRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.All, MyStyleBorder2);
//или
rgrid.CurrentWorksheet.RemoveRangeBorders(rgrid.CurrentWorksheet.SelectionRange, BorderPositions.All);

'1
rgrid.CurrentWorksheet.MergeRange(New RangePosition(2, 1, 3, 4))
'2
'rgrid.CurrentWorksheet.DoAction(New MergeRangeAction(New RangePosition(0, 0, 4, 6)))

//1
rgrid.CurrentWorksheet.MergeRange(new RangePosition(2, 1, 3, 4));
//2
//rgrid.CurrentWorksheet.DoAction(new MergeRangeAction(new RangePosition(0, 0, 4, 6)))

Dim outputRange As RangePosition = rgrid.CurrentWorksheet.CheckIntersectedMergingRange(rgrid.CurrentWorksheet.SelectionRange)

RangePosition outputRange = rgrid.CurrentWorksheet.CheckIntersectedMergingRange(rgrid.CurrentWorksheet.SelectionRange);

Dim rs As Boolean = rgrid.CurrentWorksheet.HasIntersectedMergingRange(rgrid.CurrentWorksheet.SelectionRange)
MsgBox("Слияние ячеек")

bool rs = rgrid.CurrentWorksheet.HasIntersectedMergingRange(rgrid.CurrentWorksheet.SelectionRange);
MessageBox.Show("Слияние ячеек");

rgrid.CurrentWorksheet.Reset()
Try
    'Попытка объединить пересекающиеся диапазоны приведёт к возникновению исключения
    rgrid.CurrentWorksheet.MergeRange(New RangePosition(2, 2, 5, 5))
    rgrid.CurrentWorksheet.MergeRange(New RangePosition(3, 3, 5, 5))
Catch 'unvell.reogrid.RangeIntersectionException
    MessageBox.Show("Обнаружено исключение RangeIntersectionException! Невозможно изменить часть диапазона ячеек.")
End Try

rgrid.CurrentWorksheet.Reset();
try
{
//Попытка объединить пересекающиеся диапазоны приведёт к возникновению исключения
rgrid.CurrentWorksheet.MergeRange(new RangePosition(2, 2, 5, 5));
rgrid.CurrentWorksheet.MergeRange(new RangePosition(3, 3, 5, 5));
//unvell.reogrid.RangeIntersectionException
}
catch
{
MessageBox.Show("Обнаружено исключение RangeIntersectionException! Невозможно изменить часть диапазона ячеек.");
}

Dim isMergedCell As Boolean = rgrid.CurrentWorksheet.IsMergedCell(2, 1)
Dim isMergedCell_1 As Boolean = rgrid.CurrentWorksheet.Cells(1, 2).IsMergedCell
Dim rowspan As Integer = rgrid.CurrentWorksheet.Cells(1, 2).GetRowspan()
Dim colspan As Integer = rgrid.CurrentWorksheet.Cells(1, 2).GetColspan()
'Dim output As Cell = rgrid.CurrentWorksheet.GetMergedCellOfRange(Input)
'Dim outputRange As RangePosition = rgrid.CurrentWorksheet.CheckMergedRange(inputRange)
rgrid.CurrentWorksheet.IsValidCell(2, 2) ' true
rgrid.CurrentWorksheet.IsValidCell(2, 3) ' false

bool isMergedCell = rgrid.CurrentWorksheet.IsMergedCell(2, 1);
bool isMergedCell_1 = rgrid.CurrentWorksheet.Cells[1, 2].IsMergedCell;
int rowspan = rgrid.CurrentWorksheet.Cells[1, 2].GetRowspan();
int colspan = rgrid.CurrentWorksheet.Cells[1, 2].GetColspan();
//Cell output = rgrid.CurrentWorksheet.GetMergedCellOfRange(Input());
//RangePosition outputRange = rgrid.CurrentWorksheet.CheckMergedRange(inputRange);
rgrid.CurrentWorksheet.IsValidCell(2, 2); //true
rgrid.CurrentWorksheet.IsValidCell(2, 3); //false

If rgrid.CurrentWorksheet.SelectionRange.Rows = 1 And rgrid.CurrentWorksheet.SelectionRange.Cols = 1 Then
    MessageBox.Show("Выбранный диапазон должен состоять хотя бы из двух ячеек.")
Else
    Try
rgrid.CurrentWorksheet.MergeRange(rgrid.CurrentWorksheet.SelectionRange)
    Catch 'RangeIntersectionException
MessageBox.Show("Невозможно объединить пересекающиеся диапазоны.")
    End Try
End If

if (rgrid.CurrentWorksheet.SelectionRange.Rows == 1 & rgrid.CurrentWorksheet.SelectionRange.Cols == 1)
{
MessageBox.Show("Выбранный диапазон должен состоять хотя бы из двух ячеек.");
}
else
{
try
{
rgrid.CurrentWorksheet.MergeRange(rgrid.CurrentWorksheet.SelectionRange);
//RangeIntersectionException
}
catch
{
MessageBox.Show("Невозможно объединить пересекающиеся диапазоны.");
}
}

rgrid.CurrentWorksheet.UnmergeRange(New RangePosition(0, 0, 10, 10)) 'Указанный диапазон
rgrid.CurrentWorksheet.UnmergeRange(rgrid.CurrentWorksheet.SelectionRange) 'Выделенный диапазон

rgrid.CurrentWorksheet.UnmergeRange(new RangePosition(0, 0, 10, 10)); //Указанный диапазон
rgrid.CurrentWorksheet.UnmergeRange(rgrid.CurrentWorksheet.SelectionRange);//Выделенный диапазон

rgrid.CurrentWorksheet.GroupRows(1, 3) 'Группировка строк: со строки 1, их количество - 3
rgrid.CurrentWorksheet.GroupColumns(1, 3) 'Группировка столбцов: со столбца 1, их количество - 3
rgrid.CurrentWorksheet.UngroupRows(1, 3) 'Разгруппировка строк: со строки 1, их количество - 3
rgrid.CurrentWorksheet.UngroupColumns(1, 3) 'Разгруппировка столбцов: со столбца 1, их количество - 3

rgrid.CurrentWorksheet.GroupRows(1, 3); //Группировка строк: со строки 1, их количество - 3
rgrid.CurrentWorksheet.GroupColumns(1, 3);//Группировка столбцов: со столбца 1, их количество - 3
rgrid.CurrentWorksheet.UngroupRows(1, 3);//Разгруппировка строк: со строки 1, их количество - 3
rgrid.CurrentWorksheet.UngroupColumns(1, 3);//Разгруппировка столбцов: со столбца 1, их количество - 3

rgrid.CurrentWorksheet.ScaleFactor = Convert.ToSingle(Val(cboZoom.Text.Replace("%", String.Empty).Trim)) / 100.0F
rgrid.CurrentWorksheet.ZoomIn()
rgrid.CurrentWorksheet.ZoomOut()
rgrid.CurrentWorksheet.ZoomReset()
rgrid.CurrentWorksheet.SetScale(2.0F)

'Обработка события
'Sub Sheet_Scaled(ByVal sender As Object, ByVal e As EventArgs)
Dim sheet As Worksheet = DirectCast(sender, Worksheet)
cboZoom.Text = Math.Round(sheet.ScaleFactor * 100).ToString & "%"
'End Sub

rgrid.CurrentWorksheet.ScaleFactor = Convert.ToSingle(cboZoom.Text.Replace("%", string.Empty)) / 100.0F;
rgrid.CurrentWorksheet.ZoomIn();
rgrid.CurrentWorksheet.ZoomOut();
rgrid.CurrentWorksheet.ZoomReset();
rgrid.CurrentWorksheet.SetScale(2.0F);


//Обработка события (раскомментируйте код)
//public void Sheet_Scaled(object sender, EventArgs e)
//{
//Worksheet sheet = (Worksheet)sender;
//cboZoom.Text = Convert.ToString(Math.Round(sheet.ScaleFactor * 100)) + "%";
//}

Dim rectObj As unvell.ReoGrid.Drawing.Shapes.RectangleShape = New unvell.ReoGrid.Drawing.Shapes.RectangleShape()
rectObj.Location = New Graphics.Point(50, 50)
rectObj.Size = New Graphics.Size(200, 100)
Dim worksheet As unvell.ReoGrid.Worksheet = rgrid.CurrentWorksheet  'Control.CurrentWorksheet
worksheet.FloatingObjects.Add(rectObj)

unvell.ReoGrid.Drawing.Shapes.RectangleShape rectObj = new unvell.ReoGrid.Drawing.Shapes.RectangleShape();
rectObj.Location = new unvell.ReoGrid.Graphics.Point(50, 50);
rectObj.Size = new unvell.ReoGrid.Graphics.Size(200, 100);
Worksheet worksheet = this.rgrid.CurrentWorksheet;
worksheet.FloatingObjects.Add(rectObj);

Dim worksheet1 = Me.rgrid.CurrentWorksheet
Dim image1 As System.Drawing.Image = My.Resources.photo 'Image.FromFile("Sample.png")
worksheet1.FloatingObjects.Add(New Drawing.ImageObject(image1))
worksheet1.FloatingObjects(0).Location = New Graphics.Point(40, 30)

Worksheet worksheet1 = this.rgrid.CurrentWorksheet;
System.Drawing.Image image1 = reogrid_test_CSharp.Properties.Resources.photo; //Image.FromFile("Sample.png");
worksheet1.FloatingObjects.Add(new unvell.ReoGrid.Drawing.ImageObject(image1));
worksheet1.FloatingObjects[0].Location = new unvell.ReoGrid.Graphics.Point(40, 30);

rgrid.Load(Application.StartupPath & "\docs\welcome-089.xlsx")
Dim wsimgs As Worksheet = rgrid.Worksheets(0)

For Each floatingObject As unvell.ReoGrid.Drawing.DrawingObject In wsimgs.FloatingObjects
    'Проверка: является ли плавающий объект изображением
    If TypeOf floatingObject Is Drawing.ImageObject Then
Dim imageObject = DirectCast(floatingObject, Drawing.ImageObject)
Dim image = imageObject.Image

'Обработка изображения

    End If
Next

rgrid.Load(Application.StartupPath + "\\docs\\welcome-089.xlsx");
var wsimgs = rgrid.Worksheets[0];

foreach (unvell.ReoGrid.Drawing.DrawingObject floatingObject in wsimgs.FloatingObjects)
{
  //Проверка: является ли плавающий объект изображением
  if (floatingObject is unvell.ReoGrid.Drawing.ImageObject)
  {
  var imageObject = (unvell.ReoGrid.Drawing.ImageObject)floatingObject;
var image = imageObject.Image;

// обработка изображения
  }
}

'Получаем экземпляр листа и объединяем ячейки, для удобства
Dim sheet = rgrid.CurrentWorksheet
sheet.MergeRange("B2:F6")

'Добавляем первый фрагмент текста
sheet("B2") = New unvell.ReoGrid.Drawing.RichText().Regular("Тот самый ").Bold("Rich Text Format").Regular(" (часто сокращаемый до ").Bold("RTF").Regular(") является проприетарным").Superscript("[6][7][8]").Regular(" форматом файла документа с опубликованной спецификацией, разрабатываемой корпорацией Microsoft с ").Span("1987", textColor:=Color.OrangeRed).Span(" по ", textColor:=Color.Black).Span("2008", textColor:=Color.OrangeRed).Span(" годы для кросс-платформенного документооборота с продуктами Microsoft.", textColor:=Color.Black)

'Вот так включаем переносы
sheet.Cells("B2").Style.TextWrap = TextWrapMode.WordBreak

'А вот так задаём выравнивание
sheet.Cells("B2").Style.VAlign = ReoGridVerAlign.Middle
sheet.Cells("B2").Style.HAlign = ReoGridHorAlign.Right

'Добавление абзаца с дополнительными параметрами
sheet.MergeRange("B7:F12")
sheet("B7") = New unvell.ReoGrid.Drawing.RichText().Span("Тот самый ").Bold("Apple II").Regular(" (обозначаемый как apple ][) является 8-битным домашним компьютером.").NewLine().Span("Один из первых успешних массовых микрокомпьютеров,").Superscript("[2]").Regular(" изначально разработан Стивом Возняком.").NewLine().SetStyles(halign:=ReoGridHorAlign.Right).Span("- wikipedia.org")

'Настройка ячейки
sheet.Cells("B7").Style.TextWrap = TextWrapMode.WordBreak
sheet.Cells("B7").Style.VAlign = ReoGridVerAlign.Middle
sheet.Cells("B7").Style.HAlign = ReoGridHorAlign.Right

//Получаем экземпляр листа и объединяем ячейки, для удобства
var sheet = rgrid.CurrentWorksheet;
sheet.MergeRange("B2:F6");

//Добавляем первый фрагмент текста
sheet["B2"] = new unvell.ReoGrid.Drawing.RichText()
  .Regular("Тот самый ")
  .Bold("Rich Text Format")
  .Regular(" (часто сокращаемый до ")
  .Bold("RTF")
  .Regular(") является проприетарным")
  .Superscript("[6][7][8]")
  .Regular(" форматом файла документа с опубликованной спецификацией, разрабатываемой корпорацией Microsoft с ")
  .Span("1987", textColor: Color.OrangeRed)
  .Span(" по ", textColor: Color.Black)
  .Span("2008", textColor: Color.OrangeRed)
  .Span(" годы для кросс-платформенного документооборота с продуктами Microsoft.", textColor: Color.Black);

//Вот так включаем переносы
sheet.Cells["B2"].Style.TextWrap = TextWrapMode.WordBreak;

//А вот так задаём выравнивание
sheet.Cells["B2"].Style.VAlign = ReoGridVerAlign.Middle;
sheet.Cells["B2"].Style.HAlign = ReoGridHorAlign.Right;

//Добавление абзаца с дополнительными параметрами
sheet.MergeRange("B7:F12");
sheet["B7"] = new unvell.ReoGrid.Drawing.RichText()
.Span("Тот самый ")
.Bold("Apple II")
.Regular(" (обозначаемый как apple ][) является 8-битным домашним компьютером.")
.NewLine()
.Span("Один из первых успешних массовых микрокомпьютеров,")
.Superscript("[2]")
.Regular(" изначально разработан Стивом Возняком.")
.NewLine()
.SetStyles(halign: ReoGridHorAlign.Right)
.Span("- wikipedia.org");

//Настройка ячейки
sheet.Cells["B7"].Style.TextWrap = TextWrapMode.WordBreak;
sheet.Cells["B7"].Style.VAlign = ReoGridVerAlign.Middle;
sheet.Cells["B7"].Style.HAlign = ReoGridHorAlign.Right;

rgrid.CurrentWorksheet.AutoFillSerial("B2:D3", "B4:D8")

rgrid.CurrentWorksheet.AutoFillSerial("B2:D3", "B4:D8");