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
Indholdsfortegnelse
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