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
OnePlus 7 Pro til test: Nu er selskabet i stand til at banke mobilverdenens giganter
Det kinesiske selskab OnePlus vil ind i det fine selskab af topproducenter med OnePlus 7 Pro. Missionen er lykkedes.
Computerworld
Google blokerer med omgående virkning for Huaweis brug af Android-licenser - se hvad det kommer til at betyde for dig
Google begrænser med omgående virkning kinesiske Huaweis brug af Android. Huawei vil ikke længere have adgang til tjenester fra Google.
CIO
CIO Jesper Riis fra DSV: Sådan arbejder jeg med governance så omkostninger og kompleksitet kan begrænses
Der er dømt stram governance hos Jesper Riis, CIO for verdens femtestørste transportvirksomhed. Men det er samtidig en betingelse for innovationen slår han fast. Hør mere om ledelse, performancekultur og vision hos globale DSV med de danske rødder.
Job & Karriere
"Vi var fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Det kalder jeg mit første start-up. Det blev til IT-Universitetet. "
"Da jeg var færdig med PhD´en så var vi fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Så skulle vi bare have et nyt universitet op og køre på seks måneder. Det kalder jeg mit første start-up. Det blev til IT-Universitetet."
White paper
Sådan påvirker Virtual Cloud Network den totale økonomi
Når virksomheder og organisationer prioriterer initiativer, der omhandler digital transformation, så oplever mange at legacy netværk arkitektur holder dem tilbage. For at støtte nye forretningsmodeller, cloudtilpasning og en eksplosion i connected devices gør, at moderne netværk skal supportere interoperabilitet på tværs af datacentre, multiple clouds, branch lokationer og edge devices. Med et Virtual Cloud Network baseret på NSX teknologi, så sigter VMWare mod at adressere disse problemer, ved at give organisationer mulighed for at geare en software til at connecte, operere og sikre end-to-end arkitektur, som supporterer applikationer uanset hvor de befinder sig.