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

Příspěvky uživatele

Zdravim,
myslim, ze skoro nema smysl se ucit makra, pokud jeste poradne nezvladate napsat funkce (opravdu pochopit, jak funguji) nebo neumite pouzivat dalsi moznosti, ktere Excel nabizi (Overeni dat apod.).
Pokud to zvladate, pak je pro zacatek urcite dobre si precist nejakou tu teorii (abyste pochopil, proc se to dela tak, jak se to dela).
Ja jsem precet tuto knihu a myslim, ze ji muzu doporucit:http://www.ucebnice.com/verejnost/pocitacova-literatura-/kancelarske-aplikace/excel-2000-2007---zaznam-uprava-a-programovani-maker-2akt-vyd

Pak se urcite vyplati googlit, protoze na internetu je obrovske mnozstvi navodu a kodu, ktere resi konkretni dotazy.
Pokud si s necim nebudete vedet rady, je dobre pouzit zaznamnik maker - zaznamenany kod je vetsinou zbytecne dlouhy, ale pokud hledate nejaky objekt nebo vlastnost ci metodu - hodi se...

ahoj,
odpovidajici radky staci nahradit takto:
List1.Protect Password:= "heslo", AllowFormattingRows:=True

treba takto?
Sub ZamekBunkdy()
Dim Heslo As String
Heslo = "heslo"

If List1.Range("a1") = 1 Then
List1.Unprotect Heslo
List1.Range("a2").Locked = False
List1.Protect Heslo
End If

If List1.Range("a1") = 0 Then
List1.Unprotect Heslo
List1.Range("a2").Value = 5
List1.Range("a2").Locked = True
List1.Protect Heslo
End If

End Sub

NE, vzdy se musi udelat propojeni na konkr. sesit

to MISOCKO: no to vis, obcas se stane, ze nemam co delat, ale taky je to o ´TimeManagementu...

Zkuste do kodu, ktery skryva radky doplnit...
If ComboSkryvaniRadku.ListIndex = -1 Then Exit Sub

Private Sub ComboSkryvaniRadku_Change()
If ComboSkryvaniRadku.ListIndex = -1 Then Exit Sub

Dim lngRow As Long
Dim lngColumn As Long
lngColumn = Me.Range("H3")
For lngRow = 4 To 15
If Not Me.Rows(lngRow).Hidden = (Me.Cells(lngRow, lngColumn).Value = 0) Then
Me.Rows(lngRow).Hidden = (Me.Cells(lngRow, lngColumn).Value = 0)
End If
Next
End Sub

co jsem tak narychlo zjistil je, ze vam tam napr. ve sloupci L chybi ovl. prvek c.557 - makro predpoklada, ze prvky budou za sebou v ciselne rade (aby se priradila spravna bunka ke kazdemu ovl. prvku)...

takhle?

takze nejak takto?

Obecne bych doporucil nepsat prilis dlouhe kody, protoze se v tom za par tydnu ztraci i autor a upravit to potom je nadlidsky ukol.
Zkusit treba nejak zjednodusit, logiku kodu - vetsinou to jde nebo pokud to je mozne, tak na kazdou specifickou cast kodu napsat makro specialni, ktere potom lze jen volat ze 'souhrnneho kodu'.

Asi jsem uplne nepochopil, proc chcete rozdelovat informaci o prodejni a nakupni cene - ja bych je asi chtel videl vedle sebe - tak jsem upravil i prilohu - verim, ze po prostudovani pochopite, jak na to...
Jeste bych se chtel omluvit Misockovi, ze jsem se mu do tohoto vlakna vlozil (ale nudil jsem se... )

ahoj,

skryti posuvniku:
ActiveWindow.DisplayVerticalScrollBar = False

zobrazeni pousvniku:
ActiveWindow.DisplayVerticalScrollBar = True

Neni to zadny ovladaci prvek - je to Overeni dat. ma to tu vyhodu, ze se nemusi nic moc slozite nastavovat a jde to jednoduse kopirovat, nemluve o tom, ze se nemusi psat zadny VBA kod a tak se nemusi ani povolovt makra...

tento kod vlozte do modulu listu, ve kterem chcete mit tuto vlastnost obarveni bunek...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(Target.Row + 1, Target.Column), Cells(Target.Row + 8, Target.Column + 7)).Interior.ColorIndex = 6
End Sub

Pokud potrebujete jen sumu hodin za konkr. zakazku, staci funkce SUMIF, pokud potrebujete vice podminek, bude potreba maticovy vzorec (nebo funkce SOUČIN.SKALÁRNÍ), pokud mate Excel 2007, tak SUMIFS...
Urcite nebude problem vygooglit, jak na ty funkce, aby fungovaly

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje