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

Příspěvky uživatele

Voľakedy som tak robil COUNTCOLORIF a COUNTCOLORIFS, tu je úprava na SUMOFCOLOR. Pri bunkách farbených cez Podmienený formát sa na to musí inak (2. príklad SUMOFCOLOR2).

Veď to stačí iba vo vlastnom formáte bunky. Napr:
namiesto
# ##0,00;-# ##0,00;;@
dáte
# ##0,00;# ##0,00;;@

proste taký formát aký tam máte si "našťukáte" vo Vlastnom formáte s tým, že umažete "-" mínusko za prvou bodkočiarkou.

V tom prípade sa ale ignorujú dáta v zdrojových C. Je to tak ?

Podľa skladby je to moje makro, tak tu máte narýchlo úpravu.
-každé tlačítko na každom liste volá tú istú procedúru.
-podľa aktívneho listu sa určuje, o ktorý ide
-predpokladá sa, že na každom liste s tlačítkom je iba jedna Tabuľka. Resp. Tabuľka číslo 1 je tá o ktorú ide.

Tak skúste toto. Má to ale háčik. Nemôžete kontrolovať či ste iba vstúpil do bunky a potvrdil (nezmenil) hodnotu, alebo ste zadal inú. Museli by sa niekde kvôli tomu ukladať všetky hodnoty (skrytý list). Čiže Vám to tam pridá/zmení vždy.

Je už veľa hodín, tak pridám len kód, a logické veci, čo môžu nastať, nechám na zajtra. Napr. Čo s komentárom, ak sa bunka neaktualizuje, má sa mazať komentár? Alebo ak tam už je, má sa prepísať, alebo sa má text pripísať ...?

Ale o prekresľovaní, či ukazovateli priebehu tu nepadla zmienka. Len o statickom info o spracovaní.

Áno, takých 100 milisekúnd môže byť na obed fakt málo ...

V tom prípade vyskúšajte toto.
Function FileExists(full_path As String)
Dim tmp() As String, Nazov As String
Application.Volatile
If full_path <> "" Then
tmp = Split(full_path, Application.PathSeparator)
tmp = Split(tmp(UBound(tmp)), ".")
If UBound(tmp) < 1 Then Nazov = full_path Else Nazov = Left$(full_path, Len(full_path) - Len(tmp(UBound(tmp)))) & "*"
FileExists = Len(Dir(Nazov)) > 0
End If
End Function

Malo by stačiť pridať
Application.Wait (100)
a malo by to stačiť. Už sa mi nepodarilo viac navodiť, aby to Excel nestačil "zožrať".

Prílohu som vymenil v pôvodnom poste.

=TRIM(LEFT(RIGHT(SUBSTITUTE(B9;" ";REPT(" ";LEN(B9)));10*LEN(B9)); LEN(B9)))*1
=PROČISTIT(ZLEVA(ZPRAVA(DOSADIT(B9;" ";OPAKOVAT(" ";DÉLKA(B9)));10*DÉLKA(B9)); DÉLKA(B9)))*1

Príklady...

EDIT: Aktualizácia prílohy 12.9.2019 12:02

Ja keď si tu na skúšobných dátach urobím aj prehľady, tak či tak mi to kopíruje správne aj s prehľadmi s označenými bunkami, všetko. Musí byť zádrhel v tých Vašich súboroch, môžete mi jeden poslať neverejne na mail?

Ak ide len o to označenie či nascrolovanie, dá sa pridať jeden riadok
Application.Goto .Cells(1, 1), True
za riadkom
If Not rngMazat Is Nothing Then rngMazat.ClearContents 'Vymazanie hodnôt stĺpcov

Ak ide o zlé kopírovanie (rozmiestnenie a pod) musím vidieť reálny súbor.

Ach áno, samozrejme. Pretože, to som postoval iba upravenú procedúru CheckExists, vychádzajúcu z postu (5.9.2019 12:39). Rovnako ako aj ďalšie 2 úpravy (5.9.2019 14:45) vychádzajú z pôvodného postu (5.9.2019 12:39). V ňom je malá pomocná procedúra AddColor, ktorá je v ďalších upravených postoch nemenná. A zaujímavé, že po takej dobe a toľkých mojich úpravách zisťujem, že ste ich ani netestoval, lebo by Vám predsa tá AddColor chýbala aj v ostatných návrhoch. A načo sa tu potom snažím?

Slúži na pridanie bunky k ostatným zafarbovaným, aby sa nefarbilo po jednej, čo je pomalé, ale všetky naraz.

PS: Túto procedúrku nepotrebuje len môj posledný návrh, lebo ten nič nefarbí, vracia True/False.

No asi tomu stále nerozumiem, ale uvidíme...:
Private Sub btnZnovu_Click()
btnZnovu.BackColor = &H8000000F
Range("B1:B10").Formula = "=TODAY()+A1"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range
Set Zmena = Intersect(Range("A1:A10"), Target)
If Not Zmena Is Nothing Then
btnZnovu.BackColor = vbGreen
Zmena.Offset(0, 1).ClearContents
Set Zmena = Nothing
End If
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje