Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 60

Napadá mě řešení bez tlačítek, přes událost listu - například přes BeforeDoubleClick nebo BeforeRightClick. Jinými slovy makro spouštět dvojklikem myši (resp. kliknutím pravého tlačítka myši) do příslušné buňky "řídícího" sloupce.
P.

Událost listu:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 2 And Target.Row > 1 Then
Call Služobná_cesta(Target.Row)
Cancel = True
End If

End Sub

Makro v Modulu:
Sub Služobná_cesta(radek)

If InStr(Cells(radek, 1).Value, "služobná cesta - ") > 0 Then
Cells(radek, 1).Value = Replace(Cells(radek, 1), "služobná cesta - ", "")
Exit Sub
Else
Cells(radek, 1).Value = "služobná cesta - " & Cells(radek, 1).Value
End If

End Sub

Viz také příloha:

Toto může vyřešit aktualizace ComboBoxu při změně v listu, viz událost listu "Worksheet_Change". Pro tvůj případ principiálně třeba nějak takto:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$F$1" Then
ComboBox1.ListFillRange = ""
ComboBox1.ListFillRange = "POSUN"
End If

End Sub

A co to třeba udělat přímo v buňce přes Ověření dat / Seznam? V buňce si navolíš formát jaký potřebuješ. Vybrané číslo pak bude mít požadovaný formát, ale s formátem seznamu zase hýbat nepůjde, maximálně si pomoci s lupou v sešitu pro zvětšení.
Úplně přesně netuším, co je cílem tohoto cvičení, tak jenom nabízím další alternativu :-).
P.

V příloze máš použitý prvek ze sady "Ovládací prvky formuláře". V tomto případě bohužel písmo zvětšit nejde. Zkus použít sadu "Ovládací prvky ActiveX" (viz karta Vývojář / Vložit).
P.

Já bych na to šel trochu z jiné strany a využil bych schopnosti Excelu vodorovně zarovnat na střed výběru.

Postup je jednoduchý:
1.) Obarvíš dvě buňky vedle sebe barvami, které chceš.
2.) Do levé buňky vložíš požadovanou hodnotu.
3.) Označíš obě buňky a ve "Formátu buněk", záložka "Zarovnání", vybereš v nabídce vodorovného zarovnání "Na střed výběru".

Požadovaného efektu dosáhneš, ale bude potřeba sloupec navíc.
P.

Viz příloha:

Dá se to obejít třeba tím, že nebudeš používat formát "Čas", ale vypreparuješ si z toho potřebné části přes textové funkce - tedy zvlášť hodiny, minuty a sekundy, vše převedeš na hodiny, a toto číslo pak bez problému vydělíš potřebnou základnou, abys dostal žádaný průměr.
P.

Jak jsem psal, tak pokud vím, tak to "ručně" nejde...
P.

Je to přesně tak jak píšeš, dokonce to je přesně takto napsané i v té hlášce, co hází Excel, když se pokusíš rozbalit souhrn v zamčeném listu. Ve standardní uživatelské nabídce toto Excel neumožňuje.

Nicméně se to dá obejít makrem. Slouží k tomu vlastnost listu "EnableOutlining", kterou je potřeba nastavit na "True". Níže uvádím ukázku kódu, který uzamkne List1, nicméně dovolí uživateli sbalovat/rozbalovat souhrny.
P.

Př.:
Sub Zamknout_list_s_povolenim_souhrnu()

With Worksheets(List1.Name)
.Protect Password:="", Userinterfaceonly:=True
.EnableOutlining = True
End With

End Sub

Těžko říct, k čemu to bude přesně sloužit, nicméně lze vyřešit například přes vzorce.
P.

Viz příloha:

@Rejpal: Moc díky, už chápu kde je problém a jak jej vyřešit. S tímto jsem se ještě nesetkal, tak mě to zmátlo.

Díky i ostatním za reakce ;-).
P.

@Rejpal: Verzi Excelu bych chápal, ale mám to uložené oboje jako xlsx, a přitom mám v každém sešitu jiné rozložení barev na paletě.

@Stalker: Můžeš prosím přiblížit? Už mě to vytáčí, protože mi takto chodí soubory od jednoho nezbedy, a pořád na to nemůžu přijít ;-).

Potřeboval bych nějak změnit paletu v souboru č.2 na paletu ze souboru č.1.

Viz příloha:

Pokud má to makro nějakou logiku, tak procenta (minimálně orientačně) zobrazit lze. Dle selského rozumu například při zápisu hodnot do 100 buněk bude po zapsání 40. buňky hotovo 40 %.
P.

Je nějaký důvod, proč to řešit makrem?
Tady stačí klidně obyčejný vzorec - funkce CONCATENATE nebo spojení řetězců přes ampersandy (&).
Případné rozdělení do více buněk zvládne s klidem například funkce ČÁST.
P.

Jednou z možností je využití kombinace funkce INDEX a ŘÁDEK.
P.

Např.:
=INDEX(A:A; ŘÁDEK(A1)*2-1; 1)
=INDEX(A:A; ŘÁDEK(A1)*2; 1)

Řešením je funkce SVYHLEDAT (a příslušný číselník s daty a jmény/svátky).
P.

Výstřel do tmy čistě pro tato vstupní data ;-)...
P.

Např.:
Množství (maticový vzorec):=IFERROR(SMALL(A2:$A$10000; 1); LARGE($A$2:$A$10000; 1))Celkem:=KDYŽ(D2<>D3; SUMIFS(D:D;D:D;D2); "")


Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 60

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Tisk listu černobíle

Stalker • 28.1. 16:30

Tisk listu černobíle

elninoslov • 28.1. 14:50

Tisk listu černobíle

Dita • 28.1. 14:27

ListBox

elninoslov • 28.1. 13:43

Tisk listu černobíle

elninoslov • 28.1. 13:12

ListBox

ji026441 • 28.1. 13:00

Tisk listu černobíle

Dita • 28.1. 10:25