Příspěvky uživatele
< návrat zpět
Jedna z možností...
Udělat si událost listu a testovat určitou buňku, zda je vyplněna, v kladném případě vložit řádek.
P.
Ukázka:Private Sub Worksheet_Change(ByVal Target As Range)
Dim puvodni_pozice As String
puvodni_pozice = ActiveCell.Address
If Range("A1").Value <> "" Then
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Range(puvodni_pozice).Select
End Sub
Makrem by to určitě šlo, ale stačí i obyčejná funkce ZLEVA v kombinaci s funkcí NAJÍT.
Výsledek si pak můžeš překopírovat a vložit jako hodnoty...
P.
Př.:=ZLEVA(A1;NAJÍT("/";A1;1)-2)
Reaguji čistě na tento kód...
1.) Podmínku "ano" dej do uvozovek, jelikož se jedná o text.
2.) Místo Selectu Listu2 dej Activate, a pak ještě upřesni Select A2.
Asi takto:Sheets("List2").Activate
Sheets("List2").Range("A2").SelectPak už ti to bude nějakým způsobem fungovat :-).
P.
Nevím jestli ti úplně rozumím, ale podle toho souboru chceš spočítat množství zpožděného materiálu. Jdeš tam na to dobře s pomocí funkce SUMIFS. Máš tam ale zadanou pouze jednu podmínku, přičemž ty tam potřebuješ zadat podmínky dvě...
P.
Př.:
=SUMIFS(Tabulka1[mnozstvo];Tabulka1[dodavatel];[dodavatel];Tabulka1[meskanie s materialom];"ano")
Využij funkci KDYŽ.
P.
Předpokládám, že OP je občanský průkaz... Není pak ale číslo OP jenom číslo (bez textu)?
Pokud se ten text nemění, tak by jej šlo nastavit fixně, a zadávat pak pouze čísla, tedy vlastní formát:XY #P.
Spíše napiš, jak přesně to chceš formátovat...
P.
Něco jsem zkusil, mělo by to fungovat.
Před spuštěním makra vždy označ počáteční buňku sloupce, který chceš rozdělit.
Neřešil jsem tam žádné chyby zadání, např. n není dělitelné x apod.
P.
Viz příloha:
A pravidla fóra jsi četl...
Musíš se zaregistrovat.
P.
Aby se takovéto číslování dělalo dynamicky, muselo by být zřejmě použito nějaké makro... Filtrováním vlastně skrýváš nerelevantní řádky, což pak vytváření takovéhoto pořadí dosti komplikuje.
Pokud se jedná o jednorázovou záležitost, tak stačí vyfiltrovanou tabulku překopírovat (např. přes vložit jinak) a číslování tam dodělat ručně.
P.
Na to ti bude stačit například jednoduchý If cyklus.
P.
Př.:If Me.TextBox1 - Me.TextBox2 < 0 Then
Me.TextBox3 = 0
Else
Me.TextBox3 = Me.TextBox1 - Me.TextBox2
End If
Pokud chceš, aby se v buňce E13 objevila hodnota z buňky E7, pak použiješ klasickou rovnost.
V případě že tam chceš mít tuto hodnotu vícekrát, tak lze využít znak ampersandu (&).
P.
Ukázka vzorce v buňce E13:
=E7=E7&E7&E7
Nahraj přílohu.
P.
Mohlo by pomoci podmíněné formátování, případně nějaká pomocná tabulka, případně makro.
P.
Je to čistá logika ;-), dáš tam čísla s mínusem.
P.
Př.:=COUNTIF(data;">=-45")-COUNTIF(data;">-22")
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články