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

Příspěvky uživatele

asi máte jinou jazykovou verzi než anglicky, zkuste SLOUPEC

Ověření dat. Seznam atd.

Sheets("Zkouska").Visible = xlSheetVeryHidden

a pro zobrazení makro

Sub zobraz()
Sheets("Zkouska").Visible = True
End Sub

http://www.extendoffice.com/documents/excel/2134-excel-password-protect-hidden-sheet.html

toto funguje dost dobře

a toto i bez hesla nepomůže ?

Sub HideSheet()
Sheets(1).Visible = xlSheetVeryHidden
End Sub

Smysl mi to zatím taky nedává, jen jsem to chtěl zkusit. ale osobně bych to asi řešil s pomocnými sloupci, než megavzorec.

maticový vzorec pro řetězec do 30 znaků

edit: zase jsem napsal blbost. Pro jakkoli dlouhý řetězec a je to správně:
=ČÁST(A1;MIN(NAJÍT(ŘÁDEK($1:$10)-1;A1&ŘÁDEK($1:$10)-1));1)

ještě doplněné zarovnání do elninoslov kodu. Funguje, ale netuším, jak to udělat elegantněji. Datum do Labelu bych načítal jako text a ne value, protože ve formuláři je to jedno, ale dá se zobrazit vlastní formát tak, jak je na prvním řádku. Alespoň já formát datumu takto používám velmi často, protože kouknu a vidím co je za den.

Není jasné, jestli to má fungovat po jednotlivých buňkách (tak je to teď) a nebo po řádcích. Každopádně to nějak udělat jde, otázkou je proč, ale asi pro to máte nějaký důvody.
Barvy použít jde podle mě jenom základní. Je to jen pokus, musíte načíst formátování aktivní bunky nebo všech buněk řádku a pak to říct Userformu. Možná nějak takhle.

Ještě jedno z mnohých jiných řešení. Událostní proceduru zapíšete tak jak radil vovka.h

Já pro tyto účely používám zápis do registru. Mnozí jsou při představě zápisu do registru na mrtvici, ale není pro to opodstatnění.
V registru se vytvoří nová složka, kde se zapisuje a následně při otevření čte.

pokud se chcete podívat kam se to zapíše, pak stačí otevřít REGEDIT a najít adresář: HKEY_CURRENT_USER > SOFTWARE > VB and VBA Program Settings > POKUS

Většina uživatelů toto místo nenajde, takže jej nemůže modifikovat.

Pokud to chcete vyzkoušet, uložte soubor a znovu jej načtěte. Při každém otevření souboru se zobrazí hláška. Navíc v aktuálním adresáři se vytváří txt soubor se jménem "použití.txt", kde je celá historie otevírání souboru.

Jak správně eLCHa podotkl, s.r.o není s.r.o. a rovněž tak přípustná zkratka spol. s r.o. je to samé, ačkoli pro Excel Néééé. V příloze je možnost, jak eliminovat rozdílnosti zápisů.

Private Sub SpinButton1_SpinUp()
x = CDate(TextBox1.Text)
z = x + 0.000347222
TextBox1.Text = z
End Sub

Private Sub UserForm_Initialize()
Dim Cas As Date
Cas = "00:00"
TextBox1.Text = CDate(Cas)
End Sub

Private Sub SpinButton1_SpinDown()
x = CDate(TextBox1.Text)
If x = 0 Then Exit Sub
z = x - 0.000347222
TextBox1.Text = z
End Sub

edit:
Ale asi bych se řídil radou rádce nade mnou. On se totiž vyzná.

=KDYŽ(NEBO(JE.ČISLO(NAJÍT("s.r.o.";A1));JE.ČISLO(NAJÍT("a.s.";A1)));"právnická ososba";"fyzická osoba")

podmíněný formát
a obdobný vzorec použít pro bunku s výsledkem právnická nebo fyzická osoba

edit:
=KDYŽ(JE.ČISLO(NAJÍT("s.r.o.";A1));"fyzická ososba";"právnická osoba")

ted jsem si všiml, že jsem sice podmínku udělal špatně, co se týče právnické či fyzcké, ale v podstatě je to jedno, protože jde o použití fce je.číslo a najít. Zbytek si jistě doladíte.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje