Forum » Programiranje » [Excel] problem z makrojem, visual basic
[Excel] problem z makrojem, visual basic
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.
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č?
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.
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
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)"
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 .
Sam da nauš kšno raketo iz excella naredu .
AMD Phenom QUAD 9950 Black Edition, 8GB
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | vba arrayOddelek: Programiranje | 933 (626) | Vazelin |
» | Excel: tiskanje po vrsticahOddelek: Pomoč in nasveti | 1117 (1030) | luksorzi |
» | Makroji v exceluOddelek: Programska oprema | 2489 (2383) | smetko |
» | Prosim za pomoč pri VBAOddelek: Programiranje | 2112 (1915) | apachee |
» | Visual Basic in ExcelOddelek: Programiranje | 2691 (2257) | Vesoljc |