Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  4 5 6 7 8 9 10 11 12   další » ... 155

lugr napsal/a:

Funguje i na záporná čísla. Nevím jakou má podmínku.

namiesto
=AVERAGEIF(B5:B31;">0")
stačilo aj v tvojom súbore. A funguje aj so zápornými číslami.
=AVERAGE(B5:B31)

Ani ja neviem, čo vlastne rieši. Keď nedá prílohu, tak nech si zavolá vešticu.

Zdá sa že on to myslel na takýto spôsob
=AVERAGE(B5:B11;B17:B23;B27:B31)

A nejaký príklad nedáš? 4

lugr napsal/a:

Co třeba takhle?Příloha: 49043_averageif.xlsx (11kB, staženo 4x)

A čo ak tam budú aj záporné čísla?

A toto ti nevyhovuje? Vyznač oblasť a spusti makro.
Sub Makro2()
Application.DisplayAlerts = False
With Selection
.MergeCells = True
End With
Application.DisplayAlerts = True
End Sub

Tak toto bude už na umelú inteligenciu.
Ako vieš, že tento mail "novak@seznam.cz" vôbec existuje? 2

Jiří497 napsal/a:


Pomocí Ctrl+V obejdu ověření dat, ale už ne zamknutou buňku.

To máš pravdu. Ja som odpovedal zadávateľovi.

"tim padem tam nikdo nemuze vlozit nic jineho nez co je definovano v seznamu"

No neviem, či je to najšťastnejšie riešenie. Ale ani overenie dát nezabráni vloženie akejkoľvek hodnoty cez CTRL+C a CTRL+V

Najlepšie je zaheslovať ten súbor, aby sa ti doňho nikto nedostal. A potom si ho môžeš pokašlat iba ty sám.

A čím to asi bude, že tomu prd rozumiem? 6

=REPLACE(REPLACE(A2;5;0;" ");3;0;" ")
=nahradit(nahradit(A2;5;0;" ");3;0;" ")

Niečo takéto?
Sub Makro1()
riadok = 3
Do Until Cells(riadok, 1) = ""
If Cells(riadok - 1, 1) + 1 <> Cells(riadok, 1) Then
Cells(riadok, 1).EntireRow.Insert
Cells(riadok, 1) = Cells(riadok - 1, 1) + 1
riadok = riadok + 1
Else
riadok = riadok + 1
End If
Loop
End Sub

Johan-Kraczmar napsal/a:

Klobouk dolů..... Díky moc!!!!

Zdá sa, že úroveň tejto stránky prudko stúpa. 9

A k čomu ti bude tá príloha?

A nebolo by jednoduchšie to "x" zapísať priamo do potrebnej bunky 1-12?

nejako takto?
Sub Makro1()
Application.AutoCorrect.AddReplacement What:="+", Replacement:=":"
End Sub
Sub Makro2()
Application.AutoCorrect.DeleteReplacement What:="+"
End Sub

Asi to bude niečo dôležité.
A ako potom napíšeš to +


Strana:  1 ... « předchozí  4 5 6 7 8 9 10 11 12   další » ... 155

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

Zrychlení aktualizace data Power Query

elninoslov • 4.12. 13:20

Zrychlení aktualizace data Power Query

Alfan • 4.12. 13:02

Zrychlení aktualizace data Power Query

lubo • 4.12. 11:41

Zrychlení aktualizace data Power Query

Alfan • 4.12. 8:09

kontrola buniek

marjankaj • 3.12. 20:51

Náhodné hodnoty

Cizek5 • 3.12. 20:51

kontrola buniek

ivana12 • 3.12. 19:24