Příspěvky uživatele
< návrat zpět
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
\nMenu
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.
RSS nejnovější články