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

Příspěvky uživatele

zde

tady to máš

zde

" při otvírání eventuálně ukládání větších souborů HLAVNÍ LIST z obrazovky zmizí a obrazovka je bílá"

předtím než se spustí příkaz pro otevírání a ukládání zase povol ScreenUpdating

upravil jsem trochu makro viz příloha

zase jsem to delal na barvu bunky
kdyby to nefungovalo tak překopíruj si makro do svého sešitu
já to dělal na MS office 2003 takže nevím či nebudou nějaké problémy s kompatibilitou

Formát buněk... => Vlastní =>
zadat: 0###
což znamená že 4 místní číslo začínajíc 0 se zobrazí jak byl vložen

takže když číslo bude 056238 formát bunky si nastavíš na 0#####

omlouvám se za neodborné vysvětlení

jo to by šlo taky, ale
1. co je to někde odečetlo (vedle z bunky nebo jiný list?) bylo lepší popsat požadavek podrobněji
2. jak chceš odlišit kde se má co připočítat a kde zas co odečítat?

to jsou věci, bez kterých se makro těžko napíše.
bud sem hod přílohu kterou chceš upravit, nebo podrobněji rozepiš svůj požadavek.

Ahoj.
procedura funguje zkoušel jsem
bud nemáš povolená makra nebo si makro nevložil do správného listu.
co se týče otázky "samou funkci pro deset hodnot." mas na mysli 10 různých buněk?
tak tam bych volil možnost zabarvení bunky třeba na žlutou colorindex = 6
a to by stacilo přepsat Hav-Ranovo makro první řádek.
takto:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Target.Interior.ColorIndex = 6 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
Target.Offset(0, 2).Value = _
Target.Offset(0, 2).Value + 1
ERRORHANDLER:
Application.EnableEvents = True
End Sub


pro ukázku viz přílohu

co použít filtr?

Vlastní automatický filtr
Má na konci .com

Palooo:
díky užitečná rada určitě prostuduji

ale když tam bude mít víc slovíček (v řádcích), tak by se to muselo nadefinovat na víc sloupců kde by byly alternativy.

A pokud si to výslovně nebude žádat zadavatel, tak to zatím nebudu řešit.

Jaros:
Opraveno

Palooo:
-UCASE, TRIM jsem přidal
-LIKE a bez diakritiky jsem nepřidával. (ještě jsem se s těmi příkazy nikdy nepotkal)
Při učení slovíček je dobré se naučit je správně i psát *5

Co tohle?

Slovíčka můžeš přidávat dle libosti do sloupce "A" (ale nesmí být prázdný řádek mezi slovíčky)
Kliknutím na vlajku se spustí makro.
Máš na výber z EN do CZ, nebo z CZ do EN
viz přílohu

Tlačítko "delete" ti funguje, ale že to máš v Workbook_SheetChange tak při mazání se makro spustí ještě jednou a zas ti vyplní buňky

zkus makro spouštět jinším způsobem.

@marjankaj

stále nechápu v čem je problém.

Do souboru stav.xls musíš nakopírovat makro co jsem ti poslal(do souboru co používají skladníci),
který při ukládání ve skladu pošle do tvého souboru informaci kdy byl soubor stav.xls uložen.

Ještě by se mohlo upravit makro aby to do tvého souboru psalo pod sebe všechny záznamy o uložení.

Jinak už nevím mám asi krátké vedení

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse