pro všechny
Formátovat hodnoty pro které platí vzorec:
=A($A$1>DNES();$B$1>DNES();$C$1>DNES())
platí alespoň jedna
=NEBO($A$1>DNES();$B$1>DNES();$C$1>DNES())
(podle potřeby odstranit $ )
čísla sloupců jsou pořadová čísla sloupců v listu,
ne tabulky
ActiveWorkbook.SaveAs Filename:=jmeno, FileFormat:=52
pomocny = 4 * modu2
If Abs(4 * modu2 - pomocny) < 0.001 And pomocny >= 6 And pomocny <= 28 Then[/quote]
modu2 má mít krok 1/4.
Násobek 4 tedy celé číslo.
Pomocny je Ingeter, modu2 je Double
První část testu IF:
rozdíl je nula (nebo blízký nule, proto 0.001 může být libovolné, otázka přesnosti) v případě,
že modu2 je celé_číslo/4
:pokud ano 2. část testuje, zda pomocny (resp, modu2) je v daném intervalu
Lze nahradit přehlednějším
modu2 >= 1.5 And modu2 <= 7
Takto?
Popište, co to má dělat.
Problematiku výpočtu neznám. Zapracovávám a upravuji jen to, co je v souboru nebo popisu dáno.
modu3 asi nebude v pořádku.
Takto se vždy přiřadí hodnota 7
Základ by měl být funkční.
Nutno zkontrolovat výpočet d a modu2
předpokládal jsem, že ve vzorci
skut = (((a + b) * m) / 2) - (((c + d) * modu) / 2)
má být modu2, protože modu se nikde nenačítá
Jen několik postřehů.
Dim m As Integer 'nemůže být pokud krok je 0.5
For m = 1.5 To 6 Step 0.5
dále
i = (b / c) * (d / c)
skut = (((a + b) * m) / 2) - (((c + d) * modu) / 2)
ale v minulém souboru bylo
i = (b / a) * (d / c)
modu = (((c + d) * modu2) / 2) - (((a + b) * m) / 2)
Navrhovaná úprava cyklů 1.9.2018 nefungovala?
http://wall.cz/index.php?m=topic&id=41357#post-41392
Počítané hodnoty "d" a "modu2" zde nemohou být Integer
Problém je, že buňky nevyhodnocuje jako prázdné, ale jako nuly.
"B" & beta & ":B" & alfa
Harok 2
CTRL A (vybrat vše)
vložit jinak - Hodnoty
V případě potřeby mít uchovány vzorce - vytvořit kopii listu Harok 2
Přes pomocné sloupce a váhu jednotlivých údajů.
Pozor na fixní odečítání 364 dnů - nebude funkční v přestupném roce
Range("B1:D10").Select
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.