Introduktion

Sespi Cola ønsker at automatisere, hvordan deres sælgere klarer sig.

Hvad du vil lære

• Primært:
  • Excel-automatisering
• Sekundært:
  • Brug af Excel-makroer/VBA
  • Arbejde med variabler

Kundens navn

Sespi Cola

Procesnavn

ExcelMedarbejdere

Beskrivelse

Sespi Cola har brug for din hjælp til at automatisere deres medarbejderdata i Excel:

• Download Excel-bogen her
• Årligt salg
  • Beregn det årlige salg (Q1Q2+Q3Q4), og skriv resultatet for hver række i kolonnen Årligt salg.
• Månedligt salg
  • Beregn det månedlige salg for hver af medarbejderne i Excel-arket (Medarbejdere), og skriv det i kolonnen Månedligt salg.
• Farvelæg cellerne i Månedligt salg baseret på værdien af dem:
  • If Monthly Sales < 10,000: Red
  • If Monthly Sales >= 10,000 and Monthly Sales <= 30,000: Yellow
  • Hvis månedligt salg > 30.000: Grøn

Tips

• Indstil variabel, gem din Excel-sti her
• Start Excel
• Luk Excel til sidst
• Indstil aktivt Excel-regneark
• Hent første ledige kolonne/række fra Excel-regnearket
• Læs fra Excel-regneark
• Årligt salg
  • For hver
  • Konverter tekst til tal
    • Tekst, der skal konverteres: %Employee['Q1Q2']%
    • Variabler produceret: Q1Q2
  • Konverter tekst til tal
    • Tekst, der skal konverteres: %Employee['Q3Q4']%
    • Variabler produceret: 3. KVARTAL 4
  • Opret en indeksvariabel for at få den rigtige række
  • Skriv til Excel-regneark
    • 1. KVARTAL 2 + 3. KVARTAL 4 %.
• Månedligt salg
  • Indstil variabel
    • Variabel: Monthlysales, værdi: %(Q1Q2 + Q3Q4) / 12%.
  • Skriv til Excel-regneark
    • %(Q1Q2 + Q3Q4) / 12
• Farve
  • Vi skal aktivere makroer til vores Excel-bog
    • Gem den som en .xlsm-fil
    • Hvis menufanen Udvikler i Excel ikke er aktiveret:
      • File - Options - Customize Ribbon, og sørg for, at Developer er aktiveret.
    • Udvikler - Visual Basic
      • Højreklik og indsæt/modul
    • Indsæt VBA-koden nedenfor
      • MonthlySales og RowNumber er (indgående) argumenter
  • Kør Excel-makro
    • ColorCode;%MonthlySales%;%RowNumber% (månedligt salg)

Sub ColorCode(MonthlySales As Double, RowNumber As Integer)
'Paint red if it's a bad performing employee
If MonthlySales < 10000 Then
    Range("F" & RowNumber).Interior.ColorIndex = 3
'Paint yellow if it's an average performing employee
ElseIf MonthlySales >= 10000 And MonthlySales <= 30000 Then
    Range("F" & RowNumber).Interior.ColorIndex = 6
'Paint green if it's a good performing employee
ElseIf MonthlySales > 30000 Then
    Range("F" & RowNumber).Interior.ColorIndex = 4
End If
End Sub

Video-guide