• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA výpočet ve 3D matici

Zaslal/a Malman 15.7.2019 10:29

Ahoj, mám sešit s maticemi na 3 listech, kde se na posledním listu (List3) počítá hodnota buňky (matice začíná v buňce D5) v závislosti na hodnotách na předchozích listech:

==(IF('List2'!D5>'List1'!$B5;(('List2'!D5-'List1'!$B5)/'List2'!D5)*'List1'!D5;0))

Rád bych namísto rozkopírování vzorce do všech buněk využil makro, ale zatím neúspěšně. Hlásí chybu 'mismatch' na řádku, který je tučně:

Sub matice()

Dim f As Single
Dim g As Single
Dim h As Single

Dim i As Integer
Dim j As Integer

Dim a As Integer
Const b As Integer = 2
Dim c As Integer
Dim d As Integer

For i = 5 To 7
a = ActiveCell.Row
For j = 11 To 14
c = ActiveCell.Column
d = ActiveCell.Column - 2

f = Worksheets("List2").Cells(a, c).Value
g = Worksheets("List1").Cells(b, d).Value
h = Worksheets("List1").Cells(a, c).Value

Cells(i, j).Formula = "=IF(f>g,((f-g)/f)*h,0)"
Next j
Next i
End Sub

Výsledná matice je mnohem větší, velikost 3*4 je jen testovací. Mám Excel 2016.
Mým cílem je urychlit výpočet a zmenšit velikost souboru. Prosím tedy o radu, kde by mohla být chyba. Případně i o navedení na jinou, jednodušší cestu. Díky

Zaslat odpověď >

---

Anonym(15.7.2019 16:40)#043744

=IF(f>g,((f-g)/f)*h,0)
toto v buňce listu nefunguje.

Cells(i, j).Formula = "=...nutno napsat vzorec, který je v listu funkční..."citovat

Jiří497(15.7.2019 18:47)#043745

c = ActiveCell.Column
d = ActiveCell.Column - 2

f = Worksheets("List2").Cells(a, c).Value
g = Worksheets("List1").Cells(b, d).Value

Jestliže mám při spuštění makra aktivní buňku ve sloupci A tak ActiveCell.Column = 1 a potom proměnná d má hodnotu -1. Pak samozřejmě nemohu do g načítat hodnotu ze sloupce -1.citovat

Jiří497(15.7.2019 19:16)#043746

A pokud to"Hlásí chybu 'mismatch' na řádku, který je tučně".

tak pravděpodobně je v buňce Worksheets("List1").(Cells(b, d) textová hodnota místo číselné.citovat

Jiří497(15.7.2019 20:08)#043748

Cells(i, j).Formula = "=IF(" & f & ">" & g & "," & ((f - g) / f) * h & ",0)"citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse