Add scriptblock for Cell Fill Style

Examples/FormatCellStyles/ApplyFormatInScriptBlock.ps1

@@ -0,0 +1,19 @@
+Get-Process |
+    Select-Object Company,Handles,PM, NPM| 
+    Export-Excel $xlfile -Show  -AutoSize -CellStyleSB {
+        param(
+            $workSheet,
+            $totalRows,
+            $lastColumn
+        )
+                
+        Set-CellStyle $workSheet 1 $LastColumn Solid Cyan
+
+        foreach($row in (2..$totalRows | Where-Object {$_ % 2 -eq 0})) {
+            Set-CellStyle $workSheet $row $LastColumn Solid Gray
+        }
+
+        foreach($row in (2..$totalRows | Where-Object {$_ % 2 -eq 1})) {
+            Set-CellStyle $workSheet $row $LastColumn Solid LightGray
+        }
+    }

Examples/FormatCellStyles/PassInScriptBlock.ps1

@@ -0,0 +1,15 @@
+$RandomStyle = {
+    param(
+        $workSheet,
+        $totalRows,
+        $lastColumn
+    )    
+
+    2..$totalRows | ForEach-Object{
+        Set-CellStyle $workSheet $_ $LastColumn Solid (Write-Output LightGreen Gray Red|Get-Random)
+    }
+}
+
+Get-Process |
+    Select-Object Company,Handles,PM, NPM| 
+    Export-Excel $xlfile -Show  -AutoSize -CellStyleSB $RandomStyle

Export-Excel.ps1

@@ -51,6 +51,8 @@ function Export-Excel {
         [Object[]]$ConditionalFormat,
         [Object[]]$ConditionalText,
         [Object[]]$ExcelChartDefinition,
+        # [Object[]]$CellStyle,
+        [ScriptBlock]$CellStyleSB,
         [string[]]$HideSheet,
         [Switch]$KillExcel,
         [Switch]$AutoNameRange,
@@ -408,6 +410,12 @@ function Export-Excel {
            }
         }
 
+        if($CellStyleSB) {
+            $TotalRows=$ws.Dimension.Rows
+            $LastColumn=(Get-ExcelColumnName $ws.Dimension.Columns).ColumnName
+            & $CellStyleSB $ws $TotalRows $LastColumn
+        }
+
         if($PassThru) {
             $pkg
         } else {

ImportExcel.psm1

@@ -18,6 +18,7 @@ Add-Type -Path "$($PSScriptRoot)\EPPlus.dll"
 . $PSScriptRoot\Get-Range.ps1
 . $PSScriptRoot\TrackingUtils.ps1
 . $PSScriptRoot\Copy-ExcelWorkSheet.ps1
+. $PSScriptRoot\Set-CellStyle.ps1
 
 if($PSVersionTable.PSVersion.Major -ge 5) {
     . $PSScriptRoot\plot.ps1

Install.ps1

@@ -22,6 +22,7 @@ $fileList = echo `
     Get-Range.ps1 `
     TrackingUtils.ps1 `
     Copy-ExcelWorkSheet.ps1 `
+    Set-CellStyle.ps1 `
     plot.ps1
 
 if ('' -eq $InstallDirectory)

InstallModule.ps1

@@ -27,6 +27,7 @@ $targetFiles = echo `
     Get-Range.ps1 `
     TrackingUtils.ps1 `
     Copy-ExcelWorkSheet.ps1 `
+    Set-CellStyle.ps1 `
     plot.ps1
 
 ls $targetFiles |

Set-CellStyle.ps1

@@ -0,0 +1,13 @@
+function Set-CellStyle {
+    param(
+        $WorkSheet,
+        $Row,
+        $LastColumn,
+        [OfficeOpenXml.Style.ExcelFillStyle]$Pattern,
+        [System.Drawing.Color]$Color
+    )
+
+    $t=$WorkSheet.Cells["A$($Row):$($LastColumn)$($Row)"]
+    $t.Style.Fill.PatternType=$Pattern
+    $t.Style.Fill.BackgroundColor.SetColor($Color)
+}