格式化某些行，其中单元值从vb.net（datagridview）导出到Excel时符合条件

Question

我是VB语法的新手，我正在为Excel导出添加条件而努力。 该数据集填充数据集（DGVBreaks）。数据集中的数据将看起来像这样：

emp_name	clockdate	time_in	time_out time_out time_out	tirper_hours total_hours	total_hours there_hours nate	nate	nate
我有一个数据集（DS2） ，	nate nate nate nate	the	06:42:00	5,8	4,60	2	在：2022-04-05-
Moloto，Joseph	04/05/2022 00:00	07:22:00 07:22:00	07:22:00	9,2	9,00	1 1
莫洛托，约瑟夫	04/06/2022 00:00	07:40:00	16:31:00	8,9 8,9	0	MOLOTO
，JOSEPH，JOSEPH	04/07/2022 00:00:00	07:25:00	16:29:00	8,80 ，1	9,00	0
MOLOTO，JOSEPH	04/08/2022 00:00	07:34:00	15:35:00	8,0 8,0	8,90	0
MOLOTO，JOSEPH，JOSEPH	04/11/2022 00:00	07:42:00	16:33:00	8,9	8,80	0

我想将数据从GridView或数据集导出到基于单元格值的excel和格式化某些行。 小于

实际	如果	：	例如	小时	8	。	​
​	​	​	06:42:00	5,8	4,60	2	在：2022-04-05上时钟 -

目前，我使用以下代码将数据导出到Excel表中：

    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim misValue As Object = System.Reflection.Missing.Value
    Dim i As Integer
    Dim j As Integer
    xlApp = New Microsoft.Office.Interop.Excel.Application
    xlWorkBook = xlApp.Workbooks.Add(misValue)
    xlWorkSheet = xlWorkBook.Sheets("sheet1")
    For i = 0 To dgvDataBreaks.RowCount - 2
        For j = 0 To dgvDataBreaks.ColumnCount - 1
            For k As Integer = 1 To dgvDataBreaks.Columns.Count
                xlWorkSheet.Cells(1, k) = dgvDataBreaks.Columns(k - 1).HeaderText
                xlWorkSheet.Cells(i + 2, j + 1) = dgvDataBreaks(j, i).Value.ToString()
            Next
        Next
    Next
    Dim path As SaveFileDialog = New SaveFileDialog
    path.ShowDialog()
    If DialogResult.OK Then
        xlWorkSheet.SaveAs(path.FileName)
    End If
    xlWorkBook.Close()
    xlApp.Quit()
    releaseObject(xlApp)
    releaseObject(xlWorkBook)
    releaseObject(xlWorkSheet)
    MsgBox("You can find the file at: " + path.FileName)

但是我不确定如何添加条件检查。 （我如何仅检查“实际小时”的设定？）

Answer 1

正如Johng在评论中所说的那样，这很简单：

xlWorkSheet.Range(xlWorkSheet.Cells(i + 2, 1), xlWorkSheet.Cells(i + 2, 8)).Interior.Color = ColorTranslator.ToOle(Color.Red)