I colori che contano

#############################################################
## CONTEGGIO CELLE COLORATE DI UN FOGLIO EXCEL
#############################################################
## Da un'idea di Afazio, ma declinata a modo mio
#############################################################
## 08.ott.2022 - Versione A.00 -  by Tdoes
#############################################################
## v. https://bar-ingegneria.forumfree.it/?t=79336104
#############################################################

# PER FAR GIRARE LO SCRIPT BISOGNA:
# 1. Aprire il programma "Windows PowerShell ISE"
# 2. nel prompt inferiore posizionarsi nella cartella che contiene lo script, usando il comando:
#                
#                cd "nome_percorso_della_cartella_che_contiene_lo_script"
#                
# 3. una volta che il prompt è divenuto: PS nome_percorso_della_cartella_che_contiene_lo_script>
# 4. lanciare il comando:
#
#                powershell.exe .\ContaCelleColorate.ps1
#
# 5. Nota bene: bisogna avere le autorizzazioni per l'esecuzione di script powershell ps1.
#       Set-ExecutionPolicy Unrestricted
# 6. Consultare https://www.robadainformatici.it/abilitare-esecuzione-script-powershell/ per delucidazioni sul comando precedente
#    Attenzione: il comando "Unrestricted" potrebbe rendere il tuo PC vulnerabile
#############################################################
#A.00: prima versione
#
#
##############################################################à
$debug = $true; # modalità di debug 'manuale'
# puliamo la console
Start-Sleep -Milliseconds 150; # ms
cls
#
if($debug) {"STEP 001 : avvio script"}
# avvisiamo l'utente
if($debug) {"STEP 002 : preparo e visualizzo il MessageBox (non sempre è in primo piano!)"}
Add-Type -AssemblyName PresentationCore,PresentationFramework
Start-Sleep -Milliseconds 150; # ms
$Result = [System.Windows.MessageBox]::Show("Vuoi selezionare il file Excel che contiene le celle colorate da contare?","ContaCelleColorate",[System.Windows.MessageBoxButton]::YesNoCancel,'Question')
if($debug) {"STEP 003 : hai risposto " + $Result + " al MessageBox"}
if($Result -ne "Yes") {
   if($debug) {"STEP 004A: lo script è terminato."}
   Return #termino lo script
   }
if($debug) {"STEP 004B: lo script prosegue..."}
# Vediamo di aprire il dialogo per selezionare il file excel dalla cartella documenti:
Add-Type -AssemblyName System.Windows.Forms
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   InitialDirectory = [Environment]::GetFolderPath('MyDocuments')
   Filter = 'Excel Worksheets 2007(*.xlsx)|*.xlsx|Excel Worksheets 2003(*.xls)|*.xls'
   }
$DialogExitStatus = $FileBrowser.ShowDialog()
if($DialogExitStatus  -ne "Cancel") {
   if($debug) {"STEP 005 : Hai scelto di aprire: " + $FileBrowser.FileName}
   }
# Apro Excel
$XL = New-Object -comobject Excel.Application;
$XL.Visible = $true;
# Get Windows handle of the application
$excelWinHwnd = $XL.Hwnd
# Get Process Id of the application
$process = Get-Process Excel | Where-Object {$_.MainWindowHandle -eq $excelWinHwnd}
$excelProcessId = $process.Id
# put excel window in foreground
$WSShell = New-Object -ComObject WScript.Shell;
$WSShell.AppActivate("Excel") | Out-Null;
Start-Sleep -Milliseconds 150; # ms
# Apro il file excel scelto
$WB = $XL.Workbooks.Open($FileBrowser.FileName)
# seleziono il foglio di lavoro (spreando per semplicità che sia l'ultimo creato)
if($debug) {"STEP 006 : Seleziono l'ultimo foglio di lavoro creato"}
$WS1 = $XL.Worksheets.Item($XL.Worksheets.count)
$WS1.Activate();
# Cerco il range Area
$RangeArea = $WS1.Range("Area")
# Cerco il range IndiceColori
$RangeIndiceColori = $WS1.Range("IndiceColori")
# vediamo di contare le celle
[System.Int64] $iCountTotColorate=0;
[System.Int16] $iCountAcc=0;
#Azzero la colonna successiva al RangeIndiceColori
foreach($cell in $RangeIndiceColori){
   $WS1.cells.item($cell.Row,($cell.Column+1)) = 0;
   }
if($debug) {"STEP 007 : Azzero i conteggi nella colonna successiva all'indice colori"}
# conto tutte le celle che NON hanno fondo trasparente, ma uguale all'indice colori se valorizzato
foreach($cellA in $RangeArea) {
   if($cellA.Interior.ColorIndex -ne -4142){
       $iCountTotColorate++
       foreach($cellB in $RangeIndiceColori){
           if($cellA.Interior.ColorIndex -eq $cellB.Interior.ColorIndex){
               $iCountAcc = ($WS1.cells.item($cellB.Row,($cellB.Column+1)).Value2);
               $WS1.cells.item($cellB.Row,($cellB.Column+1)) = ($iCountAcc + 1);
               }
           }
       }
   }
#$WS1.Cells.item(7,'B').Interior.Color #16777215 che numero é?
#$WS1.Cells.item(7,'B').Interior.ColorIndex #-4142
if($debug) {"STEP 008 : Conteggio effettuato"}
# scrivo il risultato in AX19 (dove AX = 50)
$WS1.cells.item(19,51) = "Conteggio automatico di tutte le celle colorate";
$WS1.cells.item(19,50).HorizontalAlignment = -4108; # $xlHAlignCenter
$WS1.cells.item(19,50).VerticalAlignment = -4108; # $xlHAlignCenter
$WS1.cells.item(19,50).NumberFormat = "#.##0,00 €\/\T\o\n"; # Euro/Ton
$WS1.cells.item(19,50) = $iCountTotColorate;
# faccio la somma della colonna in AX18 (dove AX = 50)
$WS1.cells.item(18,50).Formula = "=sum(AX6:AX17)";
$WS1.cells.item(18,51) = "Somma delle celle colorate";
if($debug) {"STEP 009 : Scrivo i risultati del conteggio"}
# salvo in un nuovo file:
# tolgo l'estensione
[System.string]$NewFileName = $FileBrowser.FileName;
[System.string]$NewFileDirN = $FileBrowser.FileName;
$NewFileDirN = (Get-Item $FileBrowser.FileName).DirectoryName
$NewFileName = (Get-Item $FileBrowser.FileName).Basename;
# aggiungo una data
[System.string]$CurrentDateTimeStr = Get-Date -Format "yyyy-MM-dd_HHmmss";
# salvo il file
[System.string]$FilePathXLSX = $NewFileDirN + "\" +$NewFileName + "_" + $CurrentDateTimeStr + ".xlsx";
#$FilePathXLSX
$WB.SaveAs($FilePathXLSX)
if($debug) {"STEP 010 : Ho salvato in un nuovo file: " + $FilePathXLSX }
# per chiudere bene excel:
#$WB.Close();
#$XL.Quit();
#$null = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($XL)
if($debug) {"STEP 011 : Fine."}