» »

[Excel] problem z makrojem, visual basic

[Excel] problem z makrojem, visual basic

1
2
»

steev ::

Hm, a kdo ve slučajno, kako bi to naredu. Da bi mi program u formulo dou spremenljivko.

ActiveCell.FormulaR1C1 = "=SUM(R[-12]C:R[-2]C)"

Po kateri koli poti bi rad da je namesto [-12] spremenljivka iz VB.
:|

Zgodovina sprememb…

  • spremenil: steev ()

Tutankhamun ::

Mogoče tko:

ActiveCell = "=SUM(R[14]C:R[-2]C)"



Al si hotu kak drgač?
AMD Phenom QUAD 9950 Black Edition, 8GB

steev ::

Samo to se vedno menja.

dim vrednost4 as string

ActiveCell = "=SUM(R["vrednost4"]C:R[-2]C)"

Nekaj v tem rangu, če bi seveda delovalo.
:|

Tutankhamun ::

    Dim iStevilka As Integer
    Dim strStevilka As String

    iStevilka = 1
    Do
        strStevilka = iStevilka
        ActiveCell = "=SUM(R[" + strStevilka + "]C:R[-2]C)"
        iStevilka = iStevilka + 1
    Loop



Mogoče tkole? Sam tist do loop zbriš pa nared po svoje kako se spreminja
AMD Phenom QUAD 9950 Black Edition, 8GB

steev ::

Hm, sem ze obupal pa si me resil. Ja deluje, cela koda je pa taka.

Sub Makro5()
Row = 1
Do
If Cells(Row, "AB") = 1 Then
Dim vrednost As String
vrednost = Cells(Row, "Z") + Row + 2
Range("AO1:AP1").Select
Selection.Copy
Range("L" + vrednost).Select
ActiveSheet.Paste
Range("M" + vrednost).Select

Dim iStevilka As Integer
Dim strStevilka As String

iStevilka = Cells(Row, "z") + 1
strStevilka = -iStevilka
ActiveCell = "=SUM(R[" + strStevilka + "]C:R[-2]C)"
Else
If Row > 1500 Then Exit Sub
End If
Row = Row + 1
Loop


End Sub


Uglavnem, kr neki. Sam vazn da dela.

Lp
:|

steev ::

Aja, pa morm priznat, da sem se iz tvoje pomoči v tej temi veliko nauču. Tole kodo sem sam spisu.
:|

steev ::

Pa direkt tkole bi lahk naredu.

Dim iStevilka As String
iStevilka = -Cells(Row, "z") - 1
ActiveCell = "=SUM(R[" + iStevilka + "]C:R[-2]C)"
:|

Tutankhamun ::

Ja če dela je prov :), men basic mau šepa, nč skor ne pišem v basicu tko da sam ko postavš kšn uprašanje kej sprobam ;).

Sam da nauš kšno raketo iz excella naredu :D.
AMD Phenom QUAD 9950 Black Edition, 8GB

steev ::

Drgač programiram glavni modul ja JumboJet A380. Sej dobiš 1%, okol 1M $.

Lp
:|
1
2
»


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

vba array

Oddelek: Programiranje
12863 (556) Vazelin
»

Excel: tiskanje po vrsticah

Oddelek: Pomoč in nasveti
7966 (879) luksorzi
»

Makroji v excelu

Oddelek: Programska oprema
62351 (2245) smetko
»

Prosim za pomoč pri VBA

Oddelek: Programiranje
351980 (1783) apachee
»

Visual Basic in Excel

Oddelek: Programiranje
262532 (2098) Vesoljc

Več podobnih tem