10. september 2006 - 17:26Der er
3 kommentarer og 1 løsning
Messagebox som oplyser om antal poster og varianter
Før en bruger tager stilling til, om han/hun vil afvikle en given programkode, skal jeg have en MsgBox, som fortæller brugeren hvilken opgave denne er ved at igangsætte, samt et forventet sluttidspunkt.
Kolonne A indeholder fra A:25 og nedefter en ID, er identisk for ensempelvis de efterfølgende 30 poster, herefter shifter ID og er det samme i 28 poster o.s.v.
Jeg har behov for en oplysning til brugeren om, hvor mange poster der totalt er, hvormange ID der er ( ID svare til en række sammenhængende poster. Endelig vil jeg gerne have af vide hvor lang tid Excel vil være om at afhvile koden/sluttidspunkt, når afviklingskoden pr. ID er xx minutter.
Sub besked() tid = 90 'indtast tiden pr. ID i sekunder poster = Range("a1", Range("a65536").End(xlUp)) posterialt = WorksheetFunction.CountA(poster) For i = 12 To UBound(poster) If poster(i, 1) <> poster(i - 1, 1) Then antal = antal + 1 End If Next i tidialt = Format((tid / 24 / 60 / 60) * (antal + 1), "hh:mm:ss") svar = MsgBox("Der er i alt " & antal + 1 & " antal ID's, svarende til" & vbLf _ & "et tidsforbrug i alt på " & tidialt & vbLf _ & "Antal poster i alt: " & posterialt & vbLf _ & "Ønsker du at fortsætte ?", vbYesNo) If svar = vbNo Then Exit Sub Else MsgBox ("Godt så udføres beregningen") 'din kode End If End Sub
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.
