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 | 1059 (752) | Vazelin |
| » | Excel: tiskanje po vrsticahOddelek: Pomoč in nasveti | 1309 (1222) | luksorzi |
| » | Makroji v exceluOddelek: Programska oprema | 2710 (2604) | smetko |
| » | Prosim za pomoč pri VBAOddelek: Programiranje | 2253 (2056) | apachee |
| » | Visual Basic in ExcelOddelek: Programiranje | 2914 (2480) | Vesoljc |