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

Příspěvky uživatele

=IF(OR(MONTH(A1)>10;MONTH(A1)<4);"zima";"leto")
=KDYŽ(NEBO(MĚSÍC(A1)>10;MĚSÍC(A1)<4);"zima";"leto")

Pridám ešte príklad, aby to bolo jasnejšie.

Ak sú všetky bunky vyplnené:
=SUM(--(((A3:A103<=A1)+(B3:B103=B1))>0))
=SUMA(--(((A3:A103<=A1)+(B3:B103=B1))>0))
Ak nemá započítavať nevyplnené bunky (lebo prázdna bunka je inak ako 0):
=SUM(--((((A3:A103<>"")*(A3:A103<=A1))+((B3:B103<>"")*(B3:B103=B1)))>0))
=SUMA(--((((A3:A103<>"")*(A3:A103<=A1))+((B3:B103<>"")*(B3:B103=B1)))>0))

Prípadne SUM/SUMA zamente za SUMPRODUCT/SOUČIN.SKALÁRNÍ a nemusí to byť maticový vzorec

Alebo index
=INDEX('nem CHOM'!B:B;B3)

Ja by som ich radšej skrýval naraz
Sub CheckAndHide()
Dim aColumn As Range, RNG As Range
Application.ScreenUpdating = False
With ActiveSheet.Columns("A:D")
.EntireColumn.Hidden = False
For Each aColumn In .Columns
If Application.Sum(aColumn) = 0 Then
If RNG Is Nothing Then Set RNG = aColumn Else Set RNG = Union(RNG, aColumn)
End If
Next
End With
If Not RNG Is Nothing Then RNG.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub

Treba to pri Change alebo pri Calculate alebo pri stlačení čudlíku ? ...

Dim DisableEvents As Boolean

Private Sub ComboBox1_Change()
If Not DisableEvents Then
DisableEvents = True
With ComboBox1
.Value = Format(Val(Replace(.Value, ",", ".")), "hh:mm")
End With
DisableEvents = False
End If
End Sub

Zadajte vzorec do prvého riadku, a potom len:
a) potiahnite z pravý spodný roh túto bunku dole, pokiaľ treba,
b) Ctrl+C na prvej bunke so vzorcom, označiť ostatné, Ctrl+V
c) Ak máte nejako inak formátované riadky, tak Ctrl+C, Označiť ostatné, pravý klik na označené, Možnosti prilepenia, Vzorce.

Ak by ste ho totiž chcel vkladať do všetkých naraz tak, že najskôr označíte všetky, a potom vložíte raz vzorec, tak musíte to A1 nahradiť za A1:Ax. A to x musí byť počet riadkov. Nie číslo riadku, ale počet riadkov. Aby ste sa nemýlil, bude lepšie jedno z tých a,b,c.

Pr.
Zas mi nejdú prikladať prílohy ???
Tu to je na GoogleDrive

Je to presne ako som hovoril. Part Number nieje číslo! Idem Vám na to pozrieť. Vydržte, najem sa ...

EDIT:
2 návrhy.
Inak nepoužívajte kontrolu celých stĺpcov, to je pomalé. To radšej použite jeden stĺpec na určenie počtu použitých riadkov (teraz je to D7:D10000) v dynamickom definovanom názve a potom napr. OFFSET-ujte (OFFSET je v CZ POSUN) oblasti, alebo naindexujte. Tabulka1 používa def. názov "PART_NUMBER" a Tabulka2 používa def. názov "OBLAST_DAT" + pomocný stĺpec pre číslo indexu.

Tak ešte raz. Čože Vám to nejde ?

Uvádzate iné rozsahy, iné umiestnenia riadkov, stĺpcov, a možno aj iný typ dát v stĺpci IC. A to bude problém. Ak Vám nefunguje toto, čo som upravil presne podľa Vášho vzorca, tak sem dajte reálne vyzerajúcu prílohu. Citlivé dáte zamente na necitlivé. Skúste IC zameniť za nečíslo, a hneď nemáte žiadne výsledky. Podľa Vás možno drobnosť, ale treba to zmieniť.

Excel to čísluje automaticky, a pri vytváraní zvyšuje číslo, aj keď je 1-ka dostupná, lebo už súbor otvorený nieje. Dalo by sa to obabrať asi takto. Vytvorte si niekde na disku prázdny súbor s názvom, ktorý Vám Excel Automaticky ponúka ako prvý predvolený, teda v CZ "Sešit", v SK "Zošit" a uložte ho ako .xlsx. Potom z neho Vašim makrom vytvárajte nový, ako zo šablóny, a dostane vždy číslo 1 a bude neuložený a bez prípony, tak ako klasické vytvorenie nového zošitu Excelom. Len treba v makre najskôr otestovať prípadnú existenciu už predtým vytvoreného "Zošit".
Sub Vytvor_Zosit()
Dim WB As Workbook
On Error Resume Next
Set WB = Workbooks("Zošit1")
On Error GoTo 0
If WB Is Nothing Then
Workbooks.Add Template:="Z:\Zošit.xlsx"
Else
Set WB = Nothing
MsgBox "Môže byť otverený iba jeden súbor s názvom Zošit1", vbExclamation, "Chyba"
End If
End Sub

Máte tam:
-zle umiestnenú zátvoru
-určite potrebujete vkladať "0" (teda text) a nie náhodou 0 ako číslo?
-chýba Vám tam ešte vyhodnotenie stavu, ak nieje splnená druhá podmienka. Potom čo?
=KDYŽ(I9="-";0;KDYŽ(M9>0;M9*P9;čo ak neplatí ani druhá podmienka))

Prílohu ako to vyzerá, čo kde robí čítačka, čo kam dáva, to sem nikto nedá. Ale dopytovať riešenie, to áno.

Príklad vypracovaný hádaním hádaniek.

Pr. maticový vzorec...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse