ExcelJ95 Seniormester
14. marts 2019 - 18:32 Der er 1 løsning

VBA universitetsopgave

Hej.

Jeg læser på universitet og er lige startet på et nyt fag, hvor vi skal lære VBA.

Vi er blevet stillet denne her opgave :https://we.tl/t-zL4L9iN8jV
til vores øvelsestime - og jeg kan simpelthen ikke finde ud af det.

I opg. 4.1.1, kan jeg komme frem til at få lavet 1000 forskellige værdier mellem 6 og 8 tegn med funktionen SLUMP, men de andre krav der er,  kan jeg ikke finde ud af.
- derfor kan jeg heller ikke rigtigt komme videre med de efterfølgende opgaver.

Går vi længere ned til anden del, og siger vi, at jeg har en liste med tilfældige værdier fra en anden opgave, så opstår der også problemer.

I opg. 4.2 var mit udgangs punkt, at jeg ville lave en inputbox, og så benytte Offset til at vælge værdierne på den række som "brugeren" nu angiver. Men det virker ikke for mig, og det er vidst også forkert metode.

Så hvis der sidder nogen der ude, der har lyst til at hygge sig lidt med et bud på en løsning, så skal i være mere end velkomne.

Lige en hurtig note.
Det er en øvelsesopgave, dvs. at der er "frivillige" opgaver, som vi kan vælge at lave, enten hjemme eller til en time hvor der sidder en ældre elev og hjælper med at få det løst.

Vi er altså ikke ude i noget snyd her. Jeg søger bare noget perspektiv, andre vinkler og gode råd til at løse den :)

På forhånd tak.
kim1a Ekspert
14. marts 2019 - 21:43 #1
Jeg arbejder på engelsk, men du har vel allerede fået styr på de 100 studentIDs:
=randbetween(40000;499999) - lav 50
=randbetween(80000000;89999999) - lav 50
Sørg for der ikke er dubletter :-) Lav det som værdier.

Så kopierer du vel blot disse 100 ti gange, så har du 1000 registreringer hvor der er 10 med hver ID

4.2
Option Explicit
Public SelectedRow As Integer

Sub test42()
SelectedRow = InputBox("What row number")
End Sub
Hvis du er fancy så spørger boxen først om brugeren vil bruge Row(activecell)

4.3
Sub test43()

Dim studentID As String
Dim studentgrade As String
studentID = Cells(SelectedRow, 2).Value
studentgrade = Cells(SelectedRow, 1).Value
MsgBox ("StudentID=" & studentID & vbNewLine & "StudentGrade=" & studentgrade)
End Sub
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Midt i spionage-rygter og mediestorm: Computerworld besøger Huawei i Kina - tag med på besøg hos det måske mest omstridte tech-firma lige nu
Reportage, Shenzhen: “Exacting, rigorous, tests drive learning, all for real battles.” Computerworld er taget på besøg i det gigantiske hovedkvarter for verdens måske mest omtalte tech-selskab lige nu
Computerworld
Google slipper første version af Android 10 løs: Her er de vigtigste nyheder
Tiende version af styresystemet Android er ude i sin første betaversion: Her er de nye funktioner, som systemsoftwaren vil byde på.
CIO
Tech fra Toppen: Det har CIO Mads Madsbjerg Hansen fra FLSmidth lært af flere års global it-konsolidering
Tech fra Toppen: Flere års arbejde har betydet en reduktion i antallet af it-systemer hos FLSmidth. Men processen har ikke været uden overraskelser. Hør hvad CIO Mads Madsbjerg Hansen har lært af den omfattende og globale proces.
Job & Karriere
Efter blodrødt regnskab: Nu fyrer Atea 20 medarbejdere i Danmark
Atea fyrer nu 20 medarbejdere. Det sker som en direkte konsekvens af, at den danske forretning er under pres, oplyser selskabets direktør.
White paper
Ny undersøgelse blandt detail- og produktionsvirksomheder
En ny stor rapport viser, at 100% af de virksomheder i undersøgelsen, som ikke bruger EDI i dag, mener, at det vil være en fordel for deres forretning, hvis de benyttede EDI. Undersøgelsen er foretaget af Vanson Bourne på vegne af TrueCommerce, som er baseret på besvarelser fra 300 detail- og produktionsvirksomheder. Virksomheder inden for især detail og produktion oplever i dag et marked og en supply chain, som er i konstant udvikling. Forbrugerne stiller stadig større krav til leveringstid, priser, produktudvalg, lagertilgængelighed, m.v., og der kommer hele tiden nye købskanaler til. Det kan være en udfordring for detail- og produktionsvirksomheder at holde sig på forkant med udviklingen, både når det drejer sig om at være til stede i de rette kanaler og - ikke mindst - den teknologi, som understøtter en mere effektiv supply chain. Hent hele rapporten helt gratis her.