18. juni 2003 - 21:06Der er
4 kommentarer og 1 løsning
pivot makro
Jeg skal bruge en makro, som leder efter en tekst I en pivot tabel. Herefter skal den tjekke om værdien i rækken er >100, hvis den er markeres tallet med rød skrift.
Den tekst der søges efter, forekommer flere steder i pivoten og det er alle rækker der skal tjekkes.
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
Jeg har lavet den selv, så jeg lukker spørgsmålet, men poster alligevel resultatet.
Sub RField()
Range("A1").Select
t = 1
Do While t = 1 Cells.Find(What:="TEKST", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
rwnr = ActiveCell.Row clnr = ActiveCell.Column
If rwnr < rwnrny Then t = 0 Range(Selection, Cells(ActiveCell.Row, 255)).Select
For Each cell In Selection If cell.Value >100 Then cell.Font.ColorIndex = 3 Next
rwnrny = rwnr + 1 Cells(rwnrny, clnr).Select
Loop
Range("A1").Select
End Sub
Synes godt om
Ny brugerNybegynder
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.