Excel, datatabeller og VBA/VBScript i Power Automate Desktop

Intro Excel er den mest anvendte forretningsapplikation i alle virksomheder. Derfor er det også det program, vi automatiserer mest i Microsoft Power Automate Desktop. Læringsmål Beskrivelse Opret et flow, der Kursusmateriale Download kursusmaterialet: Candy.xlsx VBA-kode til lektionen VBScript til lektionen Video

Introduktion

Excel er den mest anvendte forretningsapplikation i alle virksomheder. Derfor er det også det program, vi automatiserer mest i Microsoft Power Automate Desktop.

Læringsmål

  • Primært
    • Automatisering af Excel
  • Sekundært
    • Introduktion til VBA og VBScript i Power Automate Desktop

Beskrivelse

Skab et flow, der

  • Opretter en "Profit"-kolonne til venstre for "Solgte enheder
  • Opretter en kolonne med "Samlet fortjeneste" til højre for "Solgte enheder
  • Gør overskrifterne fede
  • Itererer gennem data og opdaterer
    • Overskuddet med [Pris - Omkostning].
    • Den samlede fortjeneste med [(pris - omkostninger) * solgte enheder].
  • Farver Total Profit-celler efter følgende skema
    • < 70: Red
    • >= 70 AND < 100: Yellow
    • >= 100: Grøn
  • Ændrer størrelsen på kolonnerne for at tilpasse dataene automatisk

Kursusmaterialer

Download kursusmaterialet: Slik.xlsx

VBA-kode til lektionen

Sub FormatData()
    Const ProfitColumn As Integer = 6 ' Column F is the Profit column
    Dim ProfitRange As Range
    Set ProfitRange = Range("F2:F" & Range("A" & Rows.Count).End(xlUp).Row)

    ' Make headers bold
    Range("A1:F1").Font.Bold = True

    ' Color cells in Profit column based on profit value
    Dim Cell As Range
    For Each Cell In ProfitRange
        Select Case Cell.Value
            Case Is < 70
                Cell.Interior.ColorIndex = 3 ' Red
            Case Is < 100
                Cell.Interior.ColorIndex = 6 ' Yellow
            Case Else
                Cell.Interior.ColorIndex = 4 ' Green
        End Select
    Next Cell
End Sub

VBScript til lektionen

'Create an instance of the Excel application object
Set objExcel = CreateObject("Excel.Application")

'Open the Excel workbook
Set objWorkbook = objExcel.Workbooks.Open("c:\YourExcelPath.xlsx")

'Get a reference to the first worksheet
Set objWorksheet = objWorkbook.Sheets("Sheet1")

' Loop through each sheet in the Excel book
'For Each objWorksheet In objWorkbook.Worksheets
  objWorksheet.Activate

'Get the used range of the worksheet
Set objRange = objWorksheet.UsedRange

'Make the headers bold
objRange.Rows(1).Font.Bold = True

'Get the total number of rows in the used range
intRows = objRange.Rows.Count

'Loop through the rows in the worksheet
For i = 2 to intRows
    'Get a reference to the current row
    Set objRow = objRange.Rows(i)

    'Color Cells based on conditions
    If objRow.Cells(1,6).Value < 70 Then
    	objRow.Cells(1,6).Interior.ColorIndex = 3
    ElseIf objRow.Cells(1,6).Value < 100 Then
    	objRow.Cells(1,6).Interior.ColorIndex = 6
    ElseIf objRow.Cells(1,6).Value >= 100 Then
    	objRow.Cells(1,6).Interior.ColorIndex = 4
    End If

    '...

Next

'Save the workbook
objWorkbook.Save

'Close the workbook
objWorkbook.Close

'Quit the Excel application
objExcel.Quit

Video

https://youtu.be/urFyD7QOkac

Skriv en kommentar