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

Příspěvky uživatele

Spreadsheet Compare: zkuste přeci jen na PC pohledat, já to tam našel. Buď kouzelná klávesa WIN a hledat Spreadsheet Compare, nebo v menu to mám po "Microsoft Office 2016".
Verze 2408 Microsoft 365 Apps pro velké organizace.
Zase jsem objevil něco nového, myslím že ve firmě je zlomek lidí co o tomto ví, nikdo se neobtěžuje nás seznamovat s novinkama. Díky pánové, jdu zkoumat jak se s tím pracuje

Můj postup je XnView (free): obrázek - jas a kontrast - zvýšit světlost a gama nastavit na 0,1 - příkaz doostřit. Celý postup jde třeba 2x opakovat a pak je pozadí bílé a text čitelný, i pro OCR, už jsem to dělal.

Vždyť jste sem dostal, až k zaslání dotazu - tak jste asi přehlédnul, že po klikání na
Wall.cz - Forum - MS Excel - tam je první příspěvek nahoře: Pravidla fóra - a v něm bod. 3 - Registrovaní uživatelé mohou vkládat přílohy

Jak je uvedeno výše, pomocí Sumif, v příkladu zde jen praktická ukázka, jak asi na to, výsledek pak můžete zkopírovat jako hodnoty zase do sl.A

Našeptávání myslím umí snad jen nějaká položka v userformu, nevím jistě. Ale dám sem jako ukázku soubor, kde je to udělané přes FILTER - tzn. pro excel od určité nové verze, nejlíp ms365. Zdroj "My Online Training Hub", jména wikipedie.

To bude náročný úkol. Na to já nestačím, ale při čtení zadání mě okamžitě napadlo, že já bych zkusil druhou cestu, udělat si jedno makro, které mi spraví v listu veškeré potřebné formátování a pod. a zachová hodnoty. Boj s uživatelem je totiž vždy předem prohraný a těch zákazů může být nakonec tisíce.

Testoval jsem a funguje mi tento kód:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim testValue As Variant

If Target.Cells.Count > 1 Then Exit Sub 'ignoruje zmìny s více než jednou buòkou
If Intersect(Target, Range(Cells(8, 4), Cells(372, 4))) Is Nothing Then Exit Sub 'ignoruje zmìny mimo urèený rozsah

testValue = Target.Value
If IsNumeric(testValue) Then
If testValue >= 0 And testValue < 1 Then
Target.Value = Format(testValue, "h:mm")
ElseIf testValue >= 1 And testValue < 24 Then
If Int(testValue) = testValue Then
Target.Value = Format(testValue, "0") & ":00"
Else
Target.Value = Format(testValue, "h:mm")
End If
End If
End If

End Sub

Jestli se jedná o Windows, tak rozhodně nastavit v Plánování úloh.

bobika99: mě funguje
Oznacene.Rows.Counti na výběr pouze jedné buňky !

Ano, GoTo Kam (značka "Kam:" - tady s dvojtečkou se umístí na požadované místo kódu, musí být jedna jediná)

Používejte "přejít na ..." CTRL+G. Napíše se jen cílový sloupec, č.řádku dáte stejný co jste >> a je to.

Zkuste u všech dotazů na data zakázat refresh na pozadí.

Dodatek - hned jak jsem příspěvek odeslal a ještě znovu četl zadání, napadlo mě, že by to šlo upravit na první písmeno jména - ale pak už JEN na toto první písmeno - tak ještě jeden přiložený soubor.
edit: oprava souboru

Dá se to i bez VBA, viz. přiložený soubor, ale podmínkou je mít Excel v poslední verzi (365?), kde už je funkce FILTER.

Já jsem to dal zatím jen s pomocným polem UNIQUE, tudíž pro MS365.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje