Omvandla formler till konstanter

Omvandla formler till konstanter

I detta tips visas hur vi enkelt kan omvandla formler till konstanter, såsom tal och text. Koden är inte omfattande däremot kan resultatet bli det!

Antag att vi ska skicka, per e-post, ett arbetsblad till en kollega eller samarbetspartner. Det berörda arbetsbladet innehåller en mängd formler, som dessutom refererar till andra arbetsblad och arbetsböcker. Nu vill vi endast vidarebefordra resultatet och inte beräkningarna i sig. Det är här som nedanstående procedurer kan lösa det på ett enkelt sätt.

För att omvandla samtliga cellers formler till konstanter används följande kod:

Sub Omvandla_Formler_Till_Konstanter_1()
'© 2001 Alla rättigheter XL-Dennis

With ActiveSheet.UsedRange.SpecialCells(xlFormulas)
       .Value = .Value
End With
End Sub

För att omvandla det markerade cellområdets formler till konstanter används följande kod:

Sub Omvandla_Formler_Till_Konstanter_2()
'© 2001 Alla rättigheter XL-Dennis

With Selection.SpecialCells(xlFormulas)
       .Value = .Value
End With
End Sub

Vill vi t ex endast färgmarkera de celler som har formler i sig kan följande kod användas:

Sub Fargmarkera_Celler_Med_Formler()
'© 2001 Alla rättigheter XL-Dennis

With ActiveSheet.UsedRange.SpecialCells(xlFormulas)
       With .Font
              .Bold = True
              .ColorIndex = 3
       End With
       .Interior.ColorIndex = 6
End With
End Sub