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.
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.
