• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

Nejaký príklad som urobil, ale tento "browser" má veľké obmedzenia (skripty, cookies, nezatvoriteľné časti stránok, nefunkčnosť...). Záleží na tom, k čomu to presne bude.

návod na YT
+ upraviť reg
na YT
ovládate makrom

Sub Pocet()
Dim Soubor As String, Hledej As String
Dim PocetVyskytu As Long

Soubor = "abc\def\ghi"
Hledej = "\"

PocetVyskytu = Len(Soubor) - Len(Replace(Soubor, Hledej, ""))
End Sub
alebo
...
PocetVyskytu = UBound(Split(Soubor, Hledej))
...

Dim Text As String, Cena As Double

Text = "objednávky činí 921,49 CZK bez DPH (1 115,10 CZK s DPH)."
Cena = Val(Replace(Split(Split(Replace(Text, " ", ""), "(")(1), "CZK")(0), ",", "."))

Normálka to filtruje...
Sub Filter()
Dim Klient As String

Klient = "Fero"
'filtrujeme tab podle 'Klient'
Worksheets("tab").ListObjects("TabHardware").Range.AutoFilter Field:=12, Criteria1:=Klient
End Sub

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje