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

Příspěvky uživatele

Tohle vypada jako domaci ukol, takze cele reseni neprijde, jen naznak, ktery bude potreba doplnit.
Sub zamceny()

For i = 1 To Worksheets.Count

If Worksheets(i).ProtectContents = True Then
MsgBox "List '" & Worksheets(i).Name & "' je zamčený..."
'další kod
Else
MsgBox "List '" & Worksheets(i).Name & "' je odemčený..."
'další kod
End If
Next
End Sub

TAk nejak jsem to myslel :-)

já bych to asi resil jednoduchym makrem...

Musis nakopirovat vsechny kody tam, kam patri - to znamena do modulu spravneho listu!

Mozna jsem natvrdlej, ale tohle zadani fakt nechapu...

Sub DelCol()
Columns("B:B").Delete
End Sub

uprava jen posledniho radku kodu:
Public Sub PridaniListu()
Dim ws As Worksheet
Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
ws.Name = Format(Date,"d.m.")
End Sub

Zamezit uzivateli scrolovat jde jednoduse ve vlastnostech listu pomoci ScrollArea - tu nastavis napr. na $A$1:$B$2 a mimo tyhle bunky se nikdo nikam nedostane.
Otazka je, proc zamezit zoomovani - nevidim duvod to delat (a teda ani neznam zpusob jak to udelat)

tady je takovej navrh, jak to udelat.
Je to jenom ukazka, takze jde jen o zadani dat "x" a "Ano/Ne".
Ve sloupcich A a D, muzes vzdycky klikem na bunku zadat hodnoty "x", resp. ""; a hodnoty "Ano", resp. "Ne", resp. ""

ošetřeno

Je mi lito, ale s tema Checkboxama si to nepujde - je problem priradit je bunce, protoze nemaji vlastnost na umisteni v listu.
Bez nich to vypadalo tak, ze ve sloupci A bude treba to 'X', jaks psal a misto dvou sloupcu, kde jsou ted checkboxy by byl jeden, kde by bylo 'Ano' nebo 'Ne' - to bys tam nemusel vypisovat - byl by tam takovej "zabudovanej combobox", kterej se dela pres overeni dat (kdyz kliknes na bunku, tak se ukaze rozbalovaci seznam, ze kteryho vyberes povoleny hodnoty".

Vyplnil jsem hodiny podle mesicu, opravil chybku v radku 4, na dalsi list pridal 10 nejlepsich a nejhorsich zaku a do radku 3 pridal takovy jednoduchy grafik pro prehled na prvni pohled (je samozrejme mozne udelat plnohodnotny graf, ale pracuji v Office 2007, kde nejsou kompatibilni styly), ale udelat graf je asi velmi jednoduche...

provedl jsem nejake upravy dle pozadavku.
viz poznamky u jednotlivých pozadavků - jsou tam i nejake otazky, ktere by bylo potreba zodpovedet...

Tak se musim priznat, ze tohle nevim - excel ma problem s na list vlozenymi ovladacimi prvky (a pokud jde o prvky formulare, ktere jsou pouzity, je to jeste horsi).
Nejde totiz zjistit, v jake bunce jsou umisteny, lze odhadovat pozici na zaklade umisteni na listu, ale muze se snadn stat chyba. Bylo by mnohem jednodušší, kdyby tam nebyly zaškrtávací políčka, ale hodnoty v bunkách (např. "x" ve sloupci A a "Ano" nebo "Ne" ve sloupci D - sloupec E by nebyl uz potřeba).
Pokud by nevadilo zapisování hodnot do buněk, bylo by to mnou resitelne, pokud by to vadilo, chtelo by to nekoho jineho, kdo by to treba zvladl...

I = 3 znamená, že cyklus začíná v bunce, A3 [cells(i,1) znamená: bunka i-tý řádek a 1. sloupec].
Tvoje data, ktera potrebujes porovnat jsou az do 3. radku.. tot vse

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse