Søg
Avatar billede familienriis Nybegynder
02. november 2007 - 22:31 Der er 5 kommentarer og
2 løsninger

få vist teksten fra en tilfældig celle i min statusbar

Når jeg kører en kode, kunne jeg godt tænke mig at den slutter med at skrive en tekst i min status bar.

JEg er med på koden hedder:
Application.StatusBar = "PRØVETEKST1"

For at få den til at skirve noget

Men jeg kunne den godt tænke mig at den kunne skrive en tekst fra en liste.

celle a1 = tekst1
calle a2 = tekstnr 2
celle a3 = prøve tekst
osv.


De forskellige tekster står i et område, som jeg har kaldt hjælpetekster.

Kan det lade sig gøre at den viser teksten fra en tilfældig celle i området?
og hvis det ikke kan lade sig gøre.

Så en tilfældig tekst fra området a1-a10 i "ark2"
Avatar billede excelent Ekspert
03. november 2007 - 08:21 #1
Application.StatusBar = Cells(Rnd * 9 + 1, 1)
Avatar billede jlemming Nybegynder
03. november 2007 - 08:22 #2
denne tager et tilfældig fra a1-a10

hvis du ønsker det med et område, kan man nok hente område værdierne ud, og indsætte dem som max i rnd

Sub Knap1_Klik()
tilfaeldig = Int((10 * Rnd) + 1)
Application.StatusBar = Sheets("ark2").Cells(tilfaeldig, 1).Value

For t = 0 To 65535000
   
Next t
Application.StatusBar = False
End Sub
Avatar billede jlemming Nybegynder
03. november 2007 - 09:59 #3
Dette er et lille stykke ekstra på vejen.

med du skal stadigvæk selv sætte dit start og længde på området.
Jeg kan ikke finde metode til at regne diff. på kolonne og række
Der findes godt nok en range("").RowDifferences, men jeg kan ikke få den til at virke.
Det er der måske andre der kan??

int((længde * rnd) + start)


tilr = Int((9 * Rnd) + 1)
tilc = Int((0 * Rnd) + 1)
Application.StatusBar = Range("omrade").Cells(tilr, tilc)
Avatar billede familienriis Nybegynder
03. november 2007 - 10:34 #4
jeg har testet excelents forslag og jlemmings den første.

Begge virker fint.
Det bedste ville dog have været at jeg kunne navngive i et område. Men dette går også.

Den sidste kommentar fra jlemming forstår jeg desværre ikke. Kan ikke få den til at virke.

Da I begge har leveret et skal, skal vi lige have delt pointene mellem jer.

Og så til sidst. Tak for indsatsen :-)
Avatar billede excelent Ekspert
03. november 2007 - 11:30 #5
ok her et svar fra mig
vender tilbage hvis jeg finder en løsning med navngivet område
Avatar billede jlemming Nybegynder
03. november 2007 - 15:40 #6
ok

2. kommentar var et forsøg på at løse det med et navngivet område.
men det virke desværre ikke helt :-(
Avatar billede excelent Ekspert
05. november 2007 - 21:50 #7
Denne vælger en tilfældig værdi i det navngivne område "Hjælpetekster"
måske ikke særlig elegant, men det virker da :-)

Sub Status()
Randomize Timer
x = Int(Rnd * 9 + 1)
For Each c In Sheets("Ark2").Range("Hjælpetekster")
t = t + 1: If t = x Then x = Sheets("Ark2").Range(c.Address)
Next
Application.StatusBar = x
End Sub
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Udseende af datoer Af ErikHg i Excel 7 I går 14:56 I dag 00:07
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 3 23/03/202613:24 07/05/202614:01
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 10:05 Sætte flere billeder sammen til et billede - IPad seneste version Af nu_igen i Billedbehandling
I går 14:56 Udseende af datoer Af ErikHg i Excel
23/0509:37 hvilken AI synes I er bedst? Af jcr18 i Andre onlineløsninger
22/0518:51 Pausepil på youtube i chrome Af valby i Browsere
22/0511:42 Mail med endelsen ".lat" Af ErikHg i E-mail
White papers
Flere white papers »