Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  12 13 14 15 16 17 18 19 20   další » ... 84

tohle mi vyslo...

Podivej se do prilohy, na liste makro je tlacitko, ktere spousti prilozene makro, je pomerne jednoduche...

neni potreba makro, staci podmineny format (vzorcem)

Neco takoveho je samozrejme mozne, chce to ale mit dobre naplanovane.
Tim chci rict, ze je velmi dulezite vedet, kolik polozek mohou urovne mit (protoze to zasadne ovlivnuje celkovy pocet polozek a ty museji byt nekde zapsany).
Struktura toho, jak budou polozky zapsany je pak dulezita pro mozne doplnovani novych polozek nebo naopak jejich ubirani ci editovani.

Prilozte tedy, prosim, vzor, ktery bude obsahovat mapu toho, jake moznosti pripadaji v uvahu pri jednotlivych vybranych moznostch a zkuste uvest maximalni pocty polozek v jednotlivych urovnich...

tak posli TEN soubor!!!!

podivej se do kodu...

Vzdycky je potreba list v kodu odemcit:
ActiveSheet.Unprotect "Heslo"

a na konci makra zase zamcit:
ActiveSheet.Protect "Heslo"

Problem je v uzamknuti listu, zkus toto...

priloz soubor nebo ho aspon posli mailem, takhle to je vazne dost tezky...

aha, uz chapu.
Jestli se ma bunka uzamcit po tom, co ji vyplnis, tak se musi pouzit procedura _Change (Selection_Change se pustit vzdy, kdyz zmenis vyber v listu...)

Zkus toto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) = 0 Then Exit Sub

If Target.MergeCells = False Then
Target.Locked = True
Else
Set MergedRange = Target.MergeArea
MergedRange.Locked = True
End If
End Sub

treba takto:
Sub Lock_MergedCell()
Dim i As Long, Sloupec As Long
Dim CELL As Range, MergedRange As Range

Sloupec = 2 'v jakem sloupci se bunky prochazeji: Sloupec = 2 -> sloupec B

For i = 1 To Cells(65000, Sloupec).End(xlUp).Row
Set CELL = Cells(i, Sloupec)

If CELL.MergeCells = False Then
CELL.Locked = True
Else
Set MergedRange = CELL.MergeArea
MergedRange.Locked = True
End If
Next i
End Sub

ano, jde o bunku B3 - to jsem si jen tak zvolil pro svuj priklad.
Promenna CELL muze byt samozrejme definovana jinak (a klidne dynamicky, aby to mohlo byt pouzito v cyklu)

cau,
problem je ten, ze Slouceni bunek je nocni mura pro vsechny, co pracuji s Excelem vice nez pri "kresleni tabulek".

Je potreba overit, jestli je bunka soucasti sloucenych bunek a pak zamknout celou oblast:

Sub Lock_MergedCell()
Dim CELL As Range, MergedRange As Range
Set CELL = Range("b3")

If CELL.MergeCells = False Then
CELL.Locked = True
Else
Set MergedRange = CELL.MergeArea
MergedRange.Locked = True
End If
End Sub

Je to jak psal Jeza, jen doplnim jednu nevyhodu Formularovych tlacitek (a to duvod, proc ja osobne radsi pouzivam ActiveX).
Pokud nemate zamceny list, tak muze uzivatel snadno Formularove tlacitko uplne smazat/menit... 6

co takhle?
CZ.Axes(xlCategory, xlPrimary).TickLabels.Font.Color = RGB(196, 30, 30)

z ukazky se napr. da poznat, jaky excel uzivatel (coz je velice podstatne), taky se clovek nemusi 'patlat' s vymyslenim dat, ktera uz mate k dispozici...

Tedy, tady mate moznost, jak to udelat, kvuli poctu vnoreni funkce KDYŽ to ale neni mozne pouzit u excel 2003 a nizsich (pouze 2007 a 2010).

Tedy pro priste, vzdy vlozte ukazku, kdyz chcete poradit, usnadnite tim praci tem, kteri jsou ochotni vam pomoci... 2


Strana:  1 ... « předchozí  12 13 14 15 16 17 18 19 20   další » ... 84

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje