11. juni 2004 - 15:38Der er
3 kommentarer og 1 løsning
Macro til ændring af tekst 2
Sub test() Dim myrange As Range, c As Range, Rk As Long Rk = Range("F65536").End(xlUp).Row Set myrange = Range("F1:F" & Rk)
For Each c In myrange.Cells If UCase(c) = "EFT" Or UCase(c) = "FØR" Then c.Offset(0, 1).Font.Bold = True 'første celle Else c.Offset(0, 1).Font.Bold = False End If Next End Sub
Ovenstående macro har kabbak været så venlig at lave til mig. Nu er mit håb, at den kan videre udvikles til følgende.
EFT = Pris efter/FØR = Pris før. (Kolonne F) I kolonne G ud for FØR står et beløb og ud for EFT står et beløb (FØR er altid placeret først). Hvis EFT er lavere end FØR skal beløbet markere med rød-skrift, er EFT +10% større skal den markere med blå-skrift - stadigvæk med fed.
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Sub test() Dim myrange As Range, c As Range, Rk As Long, Før As Double, Eft As Double Rk = Range("F65536").End(xlUp).Row Set myrange = Range("F1:F" & Rk)
For Each c In myrange.Cells If UCase(c) = "FØR" Then Før = c.Offset(0, 1) End If
If UCase(c) = "EFT" Then Eft = c.Offset(0, 1) c.Offset(0, 1).Font.Bold = True 'første celle If Eft < Før Then c.Offset(0, 1).Font.ColorIndex = 3 ElseIf Før + (Før / 10) <= Eft Then c.Offset(0, 1).Font.ColorIndex = 5 Else c.Offset(0, 1).Font.ColorIndex = 0 End If End If If UCase(c) = "EFT" Or UCase(c) = "FØR" Then c.Offset(0, 1).Font.Bold = True Else c.Offset(0, 1).Font.Bold = False End If Next
End Sub
hvad så skal den stadigvæk være sort hvis EFT er = eller under 10 % større end før,
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.
