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

Příspěvky uživatele

žiadny UF, na ktorom by som to mohol vyskúšať, po ruke nemám, a vyrábať ho len pre tento účel sa mi nechce, tak len tip: mal by si to pmn nastaviť v rámci udalosti UserForm_Initialize(), prípadne vždy pred tým, než použiješ inštrukciu UserFormX Show.

Slúži k tomu metóda SetFocus

Tipujem opäť na nejakú variáciu SVYHLEDAT (mojim odhadom viac než 50% všetkých dotazov ohľadom excelu na internete stále rieši jednu a tú samú vec...)

@ Palooo: chvíľu som si s tým hral, neprišiel som na dôvod, prečo sa Ti to tak chová, ničmenej, asi by tomu šlo zabrániť pridaním jednej inštrukcie pred End Sub:Private Sub lbKlienti_Change()
If Not mbEvents Then
With Sheets("WorkSheet")
For x = 0 To lbKlienti.ListCount - 1
If lbKlienti.Selected(x) = True Then
Range(Cells(1, (x * 4) + 5), Cells(1, (x * 4) + 9)).Columns.Hidden = False
Else
Range(Cells(1, (x * 4) + 5), Cells(1, (x * 4) + 9)).Columns.Hidden = True
End If
Next
End With
End If

[B3].End(xlToRight).Offset(0, 1).Columns.Hidden = True
End Sub

Nie je to síce zrejme striktne v duchu logiky, ale niekedy stačí použiť hrubú silu :)

@eLCHa: Pro čechy a další postižené národy (pro Palooo - nejsme jediní
on to Paloo asi vie a bol to zrejme pokus o vtip

tu máte printscreen

Ten FILTR, ktorý máte, je automatický filter, o ktorom hovorím. Akurát, že to máte zatrhnúť vo voľbe pri zamykaní listu:
Akce povolené všem uživatelům listu - nájdite príslušný checkbox Použít automatický filtr a ten zatrhnite...

Čo sa podarilo?

Pokiaľ máš tie listy chránené heslom, tak za
.protect dopíš ešte ďalší parameter Password:="heslo, ktorým to máš chránené"

Ochrana heslom na úrovni sheetu je ale na prd, pokiaľ tomu niekto aspoň trochu rozumie, tak to ten list odblokuje tak ako tak. Zamknutie listu stačí, aby niekto dáta neprepisoval neúmyselne, takže schválne predpokladám, že heslo nepoužívaš, páč neposkytuje v podstate žiadnu účinnú ochranu.

Bez makra neviem, makrom by to šlo. V kódovom okne ThisWorkbook:Sub workbook_open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
Next sh
End Sub

Dá, maticový vzorec:

=SUMA(ČÁST(A1;LARGE(JE.ČISLO(--ČÁST(A1;ŘÁDEK($1:$25);1))*
ŘÁDEK($1:$25);ŘÁDEK($A$1:INDEX($A:$A;POČET(--ČÁST(A1;ŘÁDEK($1:$25);1)))));1)*
10^(ŘÁDEK(INDEX($1:$25;POČET(--ČÁST(A1;ŘÁDEK(INDEX($1:$25;1;1):
INDEX($1:$25;DÉLKA(A1);1));1));1):INDEX($1:$25;1;1))-1))

google poznáš?

http://www.mrexcel.com/forum/excel-questions/443983-extract-only-numbers-text-string.html

máš tam i nematicový tvar:

=SOUČIN.SKALÁRNÍ(ČÁST(0&A1;LARGE(INDEX(JE.ČISLO(--ČÁST(A1;ŘÁDEK($1:$25);1))*ŘÁDEK($1:$25);0);ŘÁDEK($1:$25))+1;1)*10^ŘÁDEK($1:$25)/10)

Tak to máš smolu, písala si: "ako naprogramovat zablokovanie buniek v stlpci v tabulke po tom, ako je zadana hodnota do jednej bunky v stlpci"

Naučte sa sem vkladať prílohy, v ktorých to chcete poriešiť a jasne definovať zadanie, "ked skusam nieco vpisat do slpca v ktorom uz je vpisana hodnota" odporuje tomu, čo si chcela na začiatku...

Chybová hláška je fajn, ale ja si nebudem vytvárať súbor, aby som ju nasimuloval a zistil jej príčinu, to prepáč...

Ja radšej budem držať pusu páč v Česku žijem

@Opičák: "v CZ excelu 2010 to funguje přesně tak, jak to napsal eLCHa"
eLCHa písal, že mu to nefunguje, nie, že funguje, ja som pochopiteľne poukazoval na český Excel, nie VBA...

@MirekCZ: Rozhodovanie cez If nahraď rozhodovaním cez Select Case

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse