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

Příspěvky uživatele

Bez přílohy nemá cenu nic tvořit...
Je to ale prosté, pracuješ pouze s parametrem "Locked".
P.

Ukázka:
UserForm1.TextBox1.Locked = True
UserForm1.TextBox1.Locked = False

U Cells(1, 1) jsi neuvedl, že chceš ukládat ono pozadí.
P.

Možné řešení:
Sub vypln()
Dim pozadi As Integer
pozadi = Cells(1, 1).Interior.Pattern
Cells(1, 2).Interior.Pattern = pozadi
End Sub

1.) Změna barvy buňky dle hodnoty lze udělat s využitím podmíněného formátování.
2.) Vložení textu na základě hodnoty lze udělat s klasickou funkcí KDYŽ.

Ve dvou různých buňkách to není problém... To, co chceš ty, ale toto všechno provádí v jedné buňce, což lze udělat asi jenom s VBA. Napiš k čemu to přesně chceš, a případně zvaž, zda to nelze rozdělit do dvou buněk.
P.

Zřejmě je jenom špatně voláš...
P.

Př.:Application.WorksheetFunction.Min(myRange)
Application.WorksheetFunction.Max(myRange)

Pokud ti tam překáží, tak ho označ a zvol "Skrýt".
P.

Toto by mělo pomoci.
http://wall.cz/index.php?m=topic&id=743
P.

Řešilo se před pár dny...
http://wall.cz/index.php?m=topic&id=19885
P.

Jednoduchý to máš dost, ne? ;-)
Vždyť tam stačí pouze ono "rovnáse"...

K tomu vložení řádku. To samozřejmě nemůže fungovat, protože podmíněné formátování máš závislé na sloupci P, který je v tomto případě pak prázdný. Napravit by to šlo makrem, které by se spouštělo při události listu a vkládalo do prázdné buňky ve sloupci P požadovaný vzorec...
P.

Některé výpočty umísti do sloučených buněk...
P.

Zkontroluj si parametry funkce.
Případně vlož ukázku...
P.

Možné řešení s využitím Select Case.
P.

Př.:Sub zapis_na_dalsi_list()
Dim aktivni_list As String
Dim zapisovy_list As String

aktivni_list = ActiveSheet.Name

Select Case aktivni_list
Case "leden": zapisovy_list = "únor"
Case "únor": zapisovy_list = "březen"
'atd.
End Select

Sheets(zapisovy_list).Cells(14, "D") = "6:15"
End Sub

Aha, toto použití jsem nečekal ;-).
V tom případě ti tam chybí jeden ampersand...
P.

Př.:Cells(k, y).Formula = "=VLOOKUP(B:B," & f & "!A:A" & " ,1,0)"

Nejdříve se podívej na syntaxi funkce VLOOKUP a na to k čemu slouží.
Na první místě je hledaný výraz, což "B:B" určitě není. Také nedává smysl hledání hodnoty v prvním sloupci, jelikož výsledkem je pak právě ona hledaná hodnota...
P.

Není záludná :-).
Jde to udělat velmi jednoduše přes událost listu.
P.

Příklad volání makra dle podmínky:Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1").Value = 1 Then
Call makro
End If

End Sub

A co ti v tom brání? ;-)
Označ je a odstraň...
P.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse