Formler i excel

Prøv med denne makro:

Sub CheckFrame()
Dim c As Range
Dim Sht As Worksheet
x = 0
For Each Sht In ActiveWorkbook.Worksheets
Sht.Activate
Sht.Range("C13:AG13").Select
For Each c In Selection
If c.Borders(xlEdgeLeft).LineStyle = xlContinuous Then
If c.Borders(xlEdgeLeft).Weight = xlMedium Then
If c.Borders(xlEdgeRight).LineStyle = xlContinuous Then
If c.Borders(xlEdgeRight).Weight = xlMedium Then
If c.Borders(xlEdgeTop).LineStyle = xlContinuous Then
If c.Borders(xlEdgeTop).Weight = xlMedium Then
If c.Borders(xlEdgeBottom).LineStyle = xlContinuous Then
If c.Borders(xlEdgeBottom).Weight = xlMedium Then
x = x + 1
End If
End If
End If
End If
End If
End If
End If
End If
Next c
Next Sht
MsgBox ("Der er " & x & " celler med ramme")
End Sub

Hej Jens

Tak for dit inlæg, jeg har ingen ide om hvad en macro er???
(Totalamatør på Éxcel)

Mvh. Kasper

Hvis du kopierer makroen og højreklikker på fanebladet kan du indsætte den under Vis Koder. Makroen kan så køres fra Vis - Makroer - Kør.

Søger efter formel..