Makro i Excel – Tusenavdelare

Ett mycket enkelt Excelmakro som applicerar formatet “tusenavdelare” på valda celler. Dessutom så medger makrot alternering av inga eller två stycken decimaler.

Ett utomordentligt makro som bör ingå i varje Excelbrukares verktygslåda.

Vissa säger att det är siffror som gäller när någonting skall bedömas. Detta låter vi vara osagt, men om man nu ändå skall presentera siffror för någon annan så har man i alla fall ansvaret för att göra uppställningarna så enkla som möjligt att titta på.

Observera att tusenavdelarens utseende skiljer sig åt länder emellan. Sverige använder normalt ett mellanslag medan t ex Spanien oftast brukar punkt (men även ibland ett komma tyvärr). Vad som visas beror ytterst på en inställning i Windows och inte på Excelinstallationen i sig.

VBA-kod som applicerar tusenavdelare

Sub TusenAvdelare()
 Selection.NumberFormat = "#,##0.00"
End Sub

VBA-kod: alternera mellan två decimaler och ingen decimal

Sub TusenAvdelareAlternerande()
 
Dim Area As Range
Set Area = Selection
 
If Area.NumberFormat = "#,##0" Then
 Area.NumberFormat = "#,##0.00"
Else
 Selection.NumberFormat = "#,##0"
End If
 
End Sub