Příspěvky uživatele

Napr.

Myslíte niečo takéto ?
SK
=SUBSTITUTE(REPLACE(B2;1;FIND("\Nav.";B2)+4;"");".docx";"")
CZ
=DOSADIT(NAHRADIT(B2;1;NAJÍT("\Nav.";B2)+4;"");".docx";"")
Ten kód slúži ako oddeľovač a musí začínať na "\Nav.", ďalej musí to byť dokument ".docx". Ak kód bude začínať aj inak (napr. "\Doc.") alebo prípona môže byť napr aj ".doc", treba vzorec skomplikovať.

Napr takto
Sub Zapis()
Dim R As Long, RZ As Long, Z As Worksheet
Set Z = Worksheets("List1")
RZ = Z.Cells(Rows.Count, 12).End(xlUp).Row - 9
With Worksheets("List2")
R = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(R, 1).Resize(RZ).Value = Z.Cells(10, 12).Resize(RZ).Value
.Cells(R, 2).Resize(RZ, 6).Value = Z.Cells(10, 14).Resize(RZ, 6).Value
End With
Z.Cells(10, 12).Resize(RZ, 9).ClearContents
End Sub
Pod prvým stĺpcom každej tabuľky nesmie byť nič iné, lebo sa používa na zistenie posledného zaplneného riadku.

Nieje problém, ale trošku to ešte upresnite.
-bude sa zapisovať len jeden (ak áno tak ktorý) riadok z tabuľky, alebo celá tabuľka. Ak celá tak predpokladám iba zaplnené riadky.
-na čo sú tie zaškrtávacie polia, keď niesú prepojené s nejakou bunkou ? Aj tie treba po zápise zmazať? Ak áno, ako si ich potom budete vytvárať? Radšej by mali byť stále-nemenné v celej tabuľke. Ak sa prepoja s bunkou (aby mali nejakú funkciu tak musia), má sa odložiť aj ich hodnota? Lebo na to nemáte v tej "Databáze" dátové pole....

Ak myslíte úväzkom dĺžku pracovnej doby za deň, tak som tam vložil jeden Definovaný názov s názvom "Hod", v ktorom je počet hodín za deň. Vo vzorcoch, kde bolo počítané s 8 hodinami, som toto číslo nahradil práve týmto Definovaným názvom "Hod". Snáď som ich nahradil všetky. Treba to trochu otestovať. Ak je to teda to, čo ste myslela, tak si kedykoľvek zmeníte hodnotu v tomto Definovanom názve, a je to, ak myslíte niečo iné tak nič.
http://uloz.to/x5uj3r3E/dochazkovy-list-ii-xls

Na takúto pakáreň ma napadá jedine takéto niečo. Predpoklad je, že v každom dni MUSÍ byť slovo "Nepřítomnost", a hlavne v aktuálnom dni.

Stačí v Definovanom názve "Vyskyt" zmeniť $A$1 na $A1

Kým som sa ja k tomu dostal, tak ste zapísali ďalšiu stranu, no ale keď už to mám hotové, čo už s tým. Príspevky už ale nečítam, tak môžno tu je riešenie obdobné...

EDIT:
Na žiadosť užívateľa som pridal aj opačnú fnc pre kladné čísla.
Ešte som urobil aj maličkú úpravu predošlej funkcie, kvôli 2 zbytočným premenným.

Vložte sem prílohu.

Klikaciu verziu Vám vymyslel Vovka. Takže ste si dal dokopy až 3 súbory.
1. verzia s dvojklikom v A
2. verzia s rozlišovaním XY-text/"NE"
3. Váš súbor
Snáď ste si to skombinoval správne, keď Vám to funguje tak snáď áno.

No to ste sa teda naozaj zle vyjadril, aj predtým, aj teraz. Vy chcete vypísať vlastne zo známych slov, tie, ktoré sa v danom texte vyskytujú ? Ak ich máte iba 6, tak nepotrebujete makro.
http://uloz.to/xJRu4SoZ/slova-xlsx

Vovka má na mysli niečo takéto.
Definované názvy potom treba doriešiť, keďže budú asi dynamické výšky, tak napr. prevedením na Tabuľku.

Najjednoduchšie mi to príde makro-funkciou:
Function VymazSlova(Kde As String, Coo As String) As String
Dim Co, i As Integer
Co = Split(Coo, ",")
For i = LBound(Co) To UBound(Co)
Kde = Replace(Kde, Co(i), "", , , vbTextCompare)
Next i
VymazSlova = Trim(Replace(Replace(Replace(Kde, " ", "•°"), "°•", ""), "•°", " "))
End Function
Použitie v liste potom bude:
=VymazSlova(A1;"ja,ty,my,vy,oni,tie")

Pozerali ste si makro nielen v module ale aj v liste ? Ak ste nepreniesli to, tak Vám to samozrejme fungovať nemohlo.
Každopádne, tu je príklad riešenia nového zadania. Ten zoznam nebude fungovať správne, ak budú medzi dátami prázdne riadky v stĺpci A.

Neviem ako presne vyzerá objektová štruktúra VBA v ArcGis, ale v Exceli by makro vyzeralo napr takto.
Sub Podmienka()
Dim KAT(), ROZL(), BODY(), r As Long
KAT = Range("KAT").Value
ROZL = Range("ROZL").Value
ReDim BODY(1 To UBound(KAT), 1 To 1)
For r = 1 To UBound(KAT, 1)
Select Case True
Case KAT(r, 1) = "NPR": BODY(r, 1) = 20
Case KAT(r, 1) = "PR" And ROZL(r, 1) <= 40: BODY(r, 1) = 10
Case KAT(r, 1) = "PR" And ROZL(r, 1) > 40: BODY(r, 1) = 13
Case Else: BODY(r, 1) = 0
End Select
Next r
Range("BODY").Value = BODY
End Sub
Podmienkou je, aby boli definované oblasti KAT, ROZL, BODY, rovnako vysoké. Dalo by sa aj bez nich samozrejme, ale neviem ako presne pracuje ArcGis, pokúšal som sa nejaký aj sprevádzkovať, žiaľ bezúspešne. Zaujímalo by ma, či sú tie Vaše oblasti dynamicky menené, ak áno, tak ako máte ošetrený rozsah? Ak nemáte a rozsah sa bude meniť, tak to takto byť nemôže. Proste by som potreboval ten ArcGis.

Dokážete si teda tento príklad pretaviť do Vášho riešenia ?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje