Vise formler OG resultat

Her er en måde:

Vælg Vindue - Nyt vindue.
Placer de to vinduer side om side (Vindue - Arranger)
I det ene vindue vælger du Funktioner - Indstillinger - Vis - Formler.

Så kan du se dine formler i det ene vindue og dine resultater i det andet.

Det er ikke muligt direkte.

Jeg plejer at løse problemet ved at kopiere formlen og indsætte den i en celle i nærheden. Hvis man skriver et lille "'" foran undgår man, at Excel opfatter teksten som en formel - f.eks. '=SUM(A1:B6)

Jkrons løsning er selvfølgelig også en mulighed .... :-)

Den virker i hvert fald :-)

Fordelen ved min metode er, at rettelser til en formel med det samme kan ses i det andet vindue uden at du skal kopiere igen.

Det er selvfølgelig rigtigt.
Fordelen ved min løsning er, at den bevarer et bedre overblik på skærmen, og ikke er så pladskrævende.

Begge ideer er selvfølgelig brugbare, men jeg vil tro at jkrons' er bedst til formålet.
Tak for jeres deltagelse.

En 3. ide (måske lidt tosset, men hva...?)
Indsæt denne kode i arkets eget kodemodul (højreklik på arkfanen og "Vis koder")

Hvis læreren mener at en formel er væsentlig dobbeltklikker han bare på den og den bliver så anbragt i en kommentar, der forbliver åben.
Hvis man vil af med dem igen, markerer man et område, hæjreklikker og sletter / skjuler disse kommentarer.
Er sat til kun at virke på formler.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Left(Target.Formula, 1) = "=" Then
        With Target
            On Error Resume Next
            OldText = .Comment.Text
            If Err <> 0 Then .AddComment
            NewText = Target.Formula
            .Comment.Text NewText
            .Comment.Visible = True
            .Comment.Shape.Select
            Selection.AutoSize = True
        End With
        Target.Activate
End If
End Sub

bak >> Det må jeg sige, meget smart. MEn det er nok alle formlerne der skal vises.

No problemos
Denne her variant indsættes i et alm modul.
Den indsætter kommentarer til alle formler på det aktive ark i den aktive projektmappe.

Sub vis_formler()
Dim cell As Range, OldText As String, NewText As String
For Each cell In ActiveWorkbook.ActiveSheet.UsedRange
If Left(cell.Formula, 1) = "=" Then
    With cell
        On Error Resume Next
        OldText = .Comment.Text
        If Err <> 0 Then .AddComment
        NewText = .Formula
        .Comment.Text NewText
        .Comment.Visible = True
        .Comment.Shape.Select
        Selection.AutoSize = True
    End With
End If
Next
End Sub

For lige at tage en ny variant.
Hvis der rettes i arket on-line kan man jo indsætte dette i Modulet ThisWorkBook. Dette vil opdatere alle kommentarer efterhånden som der rettes i arket:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Call vis_formler
End Sub

og denne i et alm. modul

Sub vis_formler()
Dim cell As Range, OldText As String, NewText As String
Dim StartCelle As Range
Set StartCelle = ActiveCell
For Each cell In ActiveWorkbook.ActiveSheet.UsedRange
If Left(cell.Formula, 1) = "=" Then
    With cell
        On Error Resume Next
        OldText = .Comment.Text
        If Err <> 0 Then .AddComment
        NewText = .Formula
        .Comment.Text NewText
        .Comment.Visible = True
        .Comment.Shape.Select
        Selection.AutoSize = True
    End With
End If
Next
StartCelle.Activate
End Sub