Programmera in formler

[short]

För att slippa lindrigare undan i designarbetet försökte jag skriva ett program som skulle lägga in formler på detta sätt:

Sub nn()
Dim kolumn As Integer
Dim rad As Integer
Dim a As String

    rad = 8
    For kolumn = 2 To 14 Step 4
        a = Cells(3, kolumn).Address
        Cells(rad, 2).Formula = "=" & a
    Next kolumn
End Sub

Fast det gick inte för som formel stod det bara a. Finns det något sätt?

[Monshi]

Resultatet av det ovan borde varit  i stil med

=$A$1

i cellen du skriver till.

 

borde.

testa på en ensam cell och se vad du får i den,

   Dim myStr As String
    myStr = Me.Range("A1").Address
    Me.Range("B1").Formula = "=" & myStr

[short]

Det fungerar bara om man inte ändrar adressen där formeln som jag gör nedan:

Sub nn()
Dim kolumn As Integer
Dim rad As Integer
Dim a As String

    rad = 8
    For kolumn = 2 To 14 Step 4
        a = Cells(3, kolumn).Address
        Cells(rad, 2).Formula = "=" & a
        rad = rad + 3
    Next kolumn
End Sub

[Monshi]

Jag ser inte vad som skulle skilja min kod och din funktionsmässigt. Det borde fungera om jag inte missar något.

 

Om du stegar igenom koden, vad för värden får a? Eller undersök genom att stoppa in Debug.print a på raden efter du tilldelat a ett värde.

[short]

Jag hade skrivit något i de celler som jag tänkte ta adresser till. När jag tog bort det skrivna fungerade det. TAck!

[Monshi]

Borde inte spelat någon roll, koden borde ha skrivit över det.