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

Příspěvky uživatele

pouzil bych asi tuhle proceduru vlozenou do modulu prislusneho listu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing And Len(Target) > 0 Then
Rows(Target.Row + 1).Hidden = False
Cells(Target.Row + 1, 1).Select
End If
End Sub

Ja bych projel cyklem bunky prvniho sloupce

Cells(i, 1).MergeArea.Count

pokud uvedeny kod hodi cislo vetsi nez 1 (vice spojenych bunek) - jde zrejme o vasi spojenou oblast...

priloz soubor, takhle se to opravdu neda opravit...

Tady se to resilo pro radek, pro sloupec tedy staci pouzit Columns (misto Rows)

http://wall.cz/index.php?m=topic&id=5660

tezko rict, takhle bez zdrojovyho souboru - ale tam, jak jsem v kodu doplnil " 'nejaky kod" - tak tam ma byt ten kod, ktery se provede v pripade stiknuti talcitka ANO.

prostudujte si podminene formatovani...

Opravdu si nemyslim, ze blikani je dobrym zvyraznenim textu ci cisla a Excel neni Word
- kazdopadne blikani (podle toho, co me tak narychlo napadlo) lze dosahnout pouze tak, ze se bunka bude stridave obarvovat na barvu pozadi a nejakou jinou barvu, cehoz lze dosahnout makrem s casovym intervalem - je to ale zbytecne slozite (ne na napsani, ale na neustaly prubeh makra, ktere bude zneprijemnovat praci)
DOPORUCUJI ODLISNY ZPUSOB ZVYRAZNENI!!!!!!

Jen tak me napadlo, ze by bylo lepsi spis pouzit tlacitka Ano a Ne, kdyz uz se ptame klasickou otazkou (ale to jen tak na okraj )

Je potreba ulozit vysledek msgboxu do promenne.

Zprava = MsgBox("text", vbYesNo, "title")
Select Case Zprava
Case vbNo
Exit Sub
Case vbYes
'nejaky kod
End Select

je to jednoduche:

Rows(i).Font.Color = 34567 'barva RGB
Rows(i).Font.ColorIndex = 3 'pouziti pouze zakladnich barev
Rows(i).Font.Color = vbRed 'jen par barev

Prislo mi to az prilis jednoduche, takze to mozna nebude to, co je potreba, ale treba prece...
Staci vyplnit cislo do bunky C3 (Zaklad)

Ted jsem to trosku zkousel a zjistil jsem, ze kdyz zkopirujes kont.tabulku, tak se te nove priradi index 1, takze by snad sel vzdy nove tabulce pridat novy nazev takto:
ActiveSheet.PivotTables(1).Name = "Jmeno"

co takhle?

No, pokud vim, tak kdyz kliknes na zkopirovanou tabulku pravym tlacitkem mysi a vyberes 'Moznosti kontingencni tabulky...', tak hned nahore se da zmenit nazev (mam office 2007, jak je to v 2003 si uz nepamatuju a 2010 moc neznam)

Lze pouzit SVYHLEDAT, POZVYHLEDAT ve variante presneho hledani (posledni nepovinny parametr doplnte jako NEPRAVDA nebo 0) - pokud cislo nebude nalezeno, bude vysledek N/A

Precetl jsem ten dotaz asi 3x, ale proste jsem nepochopil, co potrebujete - zkuste to napsat konkretne...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje