Příspěvky uživatele
< návrat zpět
Skús to vytvoriť znovu skopíruj si to z toho fungujúceho hárku a uprav. Ten nefungujúci vymaž. To bude asi najrýchlejšie.
V 2003 to blbne tak ako bolo popísané.
V 2010 to funguje tak ako to fungovať má.
Pri zabezpečení hárka by si mal mať aspoň toto jedno zaškrtnuté.
V bunke C1 je hodnota 13
=OFFSET(A1;C1-1;1) - odkaz na bunku B13
=INDIRECT("B"&C1) - odkaz na bunku B13
OFFSET=POSUN
INDIRECT=Nepřímý.odkaz
Jasné. Aj tak sa dá. 
Tak potom takto.
Sub Makro1()
a = Array("B4:B16", "B20:B34") ' doplň si to do konca
b = Array("L5A", "L5A") ' aj tu si to doplň, počet musí byť rovnaký.
For i = LBound(a) To UBound(a)
Sheets("shift_1").Range(a(i)).Copy
Sheets(b(i)).Range(a(i)).PasteSpecial Paste:=xlPasteValues
Next i
Application.CutCopyMode = False
End Sub
'L5A assy
sheets("shift_1").Select
Range("B4:B16").Select
Selection.Copy
sheets("L5A").Select
Range("B4:B16").Select
Selection.PasteSpecial Paste:=xlPasteValues
Toto nahraď takto. Skopíruje ti to aj vzorce.
'L5A assy
sheets("shift_1").Range("B4:B16").Copy sheets("L5A").Range("B4:B16")
No ja by som skôr vytvoril nový stlpec a dal tam vzorec =(A1+30%*A1)*120%
A skopíroval.
marža=30%
DPH=20%
Sub Makro1()
ActiveSheet.Shapes("TextovéPole 1").Select
End Sub
Veď stačí, keď si to makro dáš nahrať a potom iba upraviť.
Klikni na makro VLOZ
No ja teda netuším o čo ide.
Čo je počiatočný stav(zadanie) a ako by mal vyzerať výsledok.
Tam je to akosi všetko dokopy. Možno aj pojem "kombinace" je asi svojský.
Daj do cyklu počítadlo a pri dosiahnutí napríklad 1000 cyklov ukonči makro.
takto?
Do makra sa dostaneš cez ALT+F11 a vyberieš si MODUL
Na text by malo ísť toto.
Function Vzorec2Text(a) As String
Vzorec2Text = " " & a.Formula
End Function
Tak si tam daj toto.
Function výsledok(a As String) As Double
a = Replace(a, ",", ".")
výsledok = Evaluate(Right(a, Len(a) - 2))
End Function
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články