15. maj 2008 - 16:12Der er
16 kommentarer og 1 løsning
Dato, hvis og værdier
Ark 1: celle A1 - startdato - opdateret fra andet ark. celle B1 - slutdato - opdateret fra andet ark. Celle C1 - antal dage i perioden (inkl.startdato, eksl. slutdato) Celle D1 - gennemsnit af værdier (inkl.startdato, eksl. slutdato)
Ark 2: kolonne A = datoer - opdateret fra andet ark. kolonne B = tilhørende værdier - opdateret fra andet ark. Kolonne C = kun de værdier fra kolonne B, som opfylder kriterier.
Hjælpen består i, hvorledes jeg får tal i celle C1 og C2 på ark 1
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Jeg skrev desværre forkert - der skulle have stået, hvorledes jeg får tal i celle C1 og D1 på ark 1. Desuden skal gennemsnittet kun udregnes på grundlag af celler, hvor der er værdi.
Det virker ikke. Muligvis min forklaring ikke er tydelig nok. Startdato og slutdato skal fungere som kriterie for hvilke datoer der skal findes i kolonne A på ark 2, derefter skal antallet af datoforekomster stå i celle C1 på ark 1.Desuden skal data(ark 2 kolonne B) ud for hver datoforekomst lægges sammen og gennemsnit udregnes (skal så stå i celle D1 ark 1), men kun for det antal forekomster, som der er. Obs. jeg mangler også en formel til arh 2 kolonne c. Håber det hjælper.
Begge formler og der altid værdier i kolonne b. Jeg prøver lige igen og vender tilbage senere - tidligst i morgen. Kan du evt. hjælpe med formlen til ark 2 kolonne c?
Function Besøg(ark, fra As Range, til As Range) Set sh1 = Sheets("Dato - uge - besøgstal") Application.Volatile If ark = 1 Or ark = 0 Then For Each c In sh1.Range("A3:A3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If If ark = 2 Or ark = 0 Then For Each c In sh1.Range("D3:D3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If If ark = 3 Or ark = 0 Then For Each c In sh1.Range("G3:G3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If If ark = 4 Or ark = 0 Then For Each c In sh1.Range("J3:J3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If If ark = 5 Or ark = 0 Then For Each c In sh1.Range("M3:M3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If If ark = 6 Or ark = 0 Then For Each c In sh1.Range("P3:P3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If If ark = 7 Or ark = 0 Then For Each c In sh1.Range("S3:S3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If If ark = 8 Or ark = 0 Then For Each c In sh1.Range("V3:V3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If If ark = 9 Or ark = 0 Then For Each c In sh1.Range("Y3:Y3000") If IsDate(c) Then If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2) End If Next End If Besøg = t End Function
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.