Příspěvky uživatele
< návrat zpět
O ktoré parametre formátu by hlavne išlo? Iba o farbu a hrúbku písma?
Sub CommentChangeText()
Dim sOldComment As String, sNewComment As String, sFind As String, sReplace As String
Dim Cmt As Comment
Dim Bunka As Range
Set Bunka = List1.Range("A1")
sFind = 2011
sReplace = 2012
On Error Resume Next
Set Cmt = Bunka.Comment
On Error GoTo 0
If Cmt Is Nothing Then
MsgBox "Žádný komentář v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
Exit Sub
End If
sOldComment = Cmt.Text
sNewComment = Replace(sOldComment, sFind, sReplace)
Cmt.Text Text:=sNewComment
If sOldComment = sNewComment Then
MsgBox "Nepřišlo ke změně komentáře v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
Else
MsgBox "Byl nahrazen text :" & vbNewLine & sFind & vbNewLine & _
"novým textem :" & vbNewLine & sReplace & vbNewLine & _
"v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
End If
Set Cmt = Nothing
End Sub
Ja Vám stále tápem, ale asi to bude iba takto jednoduché...
Počet
=DATEDIF(E2;E3;"m")+1
=DATEDIF(E2;E3;"m")+1
Posledná
=EOMONTH(E3;IF(DAY(E3)<15;-3;-2))+15
=EOMONTH(E3;KDYŽ(DEN(E3)<15;-3;-2))+15
Ja neviem, stále mi to je nejasné.
Čo presne znamená "za dva měsíce zpět" ?
Ak príde dodávka 10.2.2024, tak :
a) je to dodávka za december 2023, a posledná je teda december 2023
b) je to dodávka za 2 mesiace, teda za december 2023 a január 2024, a posledná je teda január 2024
---------------------
Situácia je jasná, ak dodávka príde 15.2.2024 - je to dodávka za január 2024 a posledná je január 2024.
---------------------
Ak tam ale nebudú dáta s dátumami prídených dodávok, ako viem, že keď je dnes 15.2.2024, tak prišla dodávka? Čo ak príde 17.2.2024?
Neviem, či chápem, skúste.
Tak od boku
Hodnota = LCase(Split(List1.Cells(cisloRadku, "B").Value & " ", " ")(0))
EDIT: Pridal som malú vychytávku, aby nehodilo chybu pri prázdnej bunke.
Ak sú úvodzovky súčasťou textu, musia byť zduplované.
...HLEDAT(" "...
...HLEDAT("" ""...
ostatné ostávajú single.
...cisloRadku & "4...
??? na čo tá 4 ???
EDIT:
Alebo Vy tam nechcete vkladať vzorec? Vy chcete urobiť rovnaký výpočet ako vzorec ale makrom, a uložiť do premennej?
Normálne keď som si to znovu prečítal, tak som na vážkach...
Pr.
Súbor - Možnosti - Korektúra - Možnosti automatických opráv - Automatický formát pri písaní - Vyplniť vzorce do tabuliek a vytvoriť vypočítavané stĺpce
...z té přes odkaz na buňku mám tyto data...
...se ručně nakopírujou z jiného listu takže zde již žádné vzorece nebudou...
To je to isté ako vzorec, takže je tam vzorec!
...opravdu jako datum je to vždy na měsíc takže opravdu 1...
Tak "1" opravdu nie je dátum. Je to poradové číslo dňa v mesiaci. To je rozdiel. Skutočný dátum som chcel použiť na to, aby som zistil víkend a tak zachoval Vami požadované
Takto potřebuji aby vypadal výsledek
...se ručně nakopírujou z jiného listu...
Ak tie dáta budú kopírované / vkladané ručne, tak Vám to žiaden vzorec v rovnakom umiestnení neupraví. Logicky, buď tam nakopírujete hodnoty, alebo tam bude vzorec čerpajúci dáta odniekiaľ (odkaz na bunku je vzorec). Úprava nakopírovaných dát v rovnakom umiestnení by bola možná jedine makrom. Nerozumiem načo to tam chcete ručne kopírovať. Veď nech si to ťahá vzorec z toho zdroja.
11. deň je v príklade zle.
Tu máte príklad, kde si to ťahá údaje zo zdroja, a výsledok je ako ste chcel. Ak chcete 0 aj na vynechaných, zmeňte si vo vzorci "" na 0.
To čo som písal funguje. Len si doplňte kontrolu víkendu
=IF(WEEKDAY(H5;2)>5;0;...to čo som písal)
Píšete že v stĺpci H sú dátumy, no nie je to tak - sú tam čísla. Chcel som od Vás vedieť, kde sú aké vzorce, to má na to tiež vplyv predsa. A nič.
Tyto dala jsou tam dodána automatiky z jiných tabulek.
To znamená vzorcom? Tak ošetrite ten vzorec, ktorý tie dáta z tých tabuliek ťahá tak, že ak už pred ním je rovnaká hodnota, tak dá "".
=IF(COUNTIFS($H$4:$H4;vzorecH5;$I$4:$I4;vzorecI5)>0;"";vzorecI5)
=IF(COUNTIFS($H$4:$H4;vzorecH5;$J$4:$J4;vzorecJ5)>0;"";vzorecJ5)
=KDYŽ(COUNTIFS($H$4:$H4;vzorecH5;$I$4:$I4;vzorecI5)>0;"";vzorecI5)
=KDYŽ(COUNTIFS($H$4:$H4;vzorecH5;$J$4:$J4;vzorecJ5)>0;"";vzorecJ5)
Ak nie, tak upresnite, ako sa tam tie dáta dostanú, aj ako má vyzerať výsledok. Reálne - teda kde sú aké dáta, vzorce, formáty.
Ak máte Office 365, skúste kombináciu SORT(FILTER())
@lubo opäť výborný nápad, ktorý sa dá urobiť aj makrom. Týmto sa totiž odstráni problém s Areas (bude iba jedna na konci). Príklad makrom "Vymaž RNG2".
Odstraňovať Range s toľkými Areas má svoje limity. Riešením by bolo pole dát. Skúste si v tomto súbore vytvoriť tlačítkom "Vytvor" 300000 dát (množstvo zadajte v bunke L1) a potom použite tlačítko "Vymaž pole". V pohode. Pri použití "Vymaž RNG" na takéto množstvo, budete čakať veľa minút, a keď budete mať šťastie a Excel Vám nespadne, dočkáte sa rovnakého výsledku.
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