06. april 2006 - 22:31Der er
13 kommentarer og 1 løsning
Loope alle felter i range
Jeg sidder og roder med at lave noget med subtotaler og der sætter Excel selv en tekst ind der hedder noget i stil med 1111111111 Total (jeg grupperer på CPR numre) og det vil jeg så gerne fjerne efterfølgende. Jeg kan ikke lige se hvordan men man kan måske loope alle felter i et range og checke om det står Total i det og så sætte det til blank. Men hvad er koden lige for at loope alle felter i et range?
Et tillægsspørgsmål: I samme setup har jeg et linienummer helt til venster men når jeg grupperer bliver der huller i det. Det kan jeg leve med, men jeg vil så gerne i stedet lave en betinget formatering der checker om kolonne A indeholder et tal og så laver et eller andet. Hvordan ser det ud.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Sub LookForTotal() Dim rcell As Range For Each rcell In Range("A1:A100") If rcell Like "*Total*" Then rcell = Replace(rcell, "Total", "") End If Next End Sub
bak> første punkt fungerer til UG (bortset fra at jeg skal fjerne alt i feltet, men det er jo en detalje)
Formateringen har jeg lidt problemer med og nu går jeg i seng da jeg skal køre til Sjælland meget tidligt i morgen. Så må jeg se på det søndag når jeg kommer hjem igen:-)
Tilbage fra Sjælland kan jeg videre forklare at det jeg helt specifikt ønsker er at hvis der ikke står noget i kolonne A, så skal kolonnerne B,C,D,E,F,G,H og I formateres til at vise hvid tekst på blå baggrund (linien indeholder mine totaler)
Sub LookForTotal() Dim rcell As Range For Each rcell In Range("B1:B100") If rcell Like "*Total*" Then rcell.Value = Null rcell.Resize(, 8).Interior.Color = vbBlue rcell.Resize(, 8).Font.Color = vbWhite End If Next End Sub
Jeg fandt ud af at få det lavet som betinget formatering efter din anvisning bak. Det virkede ikke i første omgang da jeg har 2 formateringer. Den ene laver hver anden linie grøn og når den står som den første, så træder den anden åbenbart aldrig i kraft. Da jeg så byttede rundt på rækkefølgen faldt det i hak. Så hvis du kaster et svar, så skal du få dine points.
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.
