Příspěvky uživatele
< návrat zpět
Ahoj, mám prosbu,
Zadávám do sloupce „A“ hodnoty ve formě „příjmení jméno“. Mezi příjmením a jménem je vždy mezera. Potrebuji striktně nastavit makrem, aby výstup po odentrování bunky byl „PŘÍJMENÍ Jméno“. Jde mi o ten formát. Příjmení nastavit na velká písmena a jméno na malá s prvním velkým písmenem. Příloha asi není nutná.
Pro tlačítko "ulož provedené změny" nastav:
Private Sub editace_Click()
JMENOMAJITELE = prijmeni.Value
I = 3
Do Until Cells(I, 2) = JMENOMAJITELE
I = I + 1
If I > 1000 Then Exit Sub
Loop
Cells(I + 1, 2) = jmeno
End Sub
Nastav po otevření sešitu manualní přepočet.
Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub
Teprve po zadání dat ,mazaní atd. dát přepočítat (F9).
Není to nic světoborného, ale funguje. Snad je to ono.
A co jednoduse takto:
Díky moc, dotaz funguje.
A2: pole2 jsem změnil ma B1: pole2
Ani jsem netušil, že to lze vyřešit přes MSQuery. Dodatečně jsem ale zjistil, že po uložení sešitu a znovuotevření se zobrazí hláška "Neznámý formát databáze".Bude to asi tím, že ten dotaz jsem vytvořil přímo v tom sešitu. Při načtení do jiného sešitu dotaz funguje korektně.
Dobrý den, potřebuji pomoci jak vypsat do sloupce "D" hodnoty ze sloupce "A" podle určitých podmínek. Nebudu dlouze popisovat - podrobnosti jsou v přiloženém souboru. Děkuji za pomoc.
Tak to je ještě elegantnější řešení. Díky.
Chytré řešení. Tak mi to stačí.
Díky.
Možno uzamknout.
Dobrý den, prosím o pomoc se vzorcem, který spočte počet hodnot dle následujícího schematu. Než něco dlouze vysvětlovat jsou podrobnosti jasné z přiloženého souboru.
Děkuji.
To není ono, v příkladu jde o objekt, já jsem myslel změnu kurzoru při posunu myši nad jednotlivou bunku.
Asi to opravdu nejakým makrem typu mousemove nejde. Zkoušel jsem všechno možný, ale bez uspěchu. Makro typu select na to jde aplikovat, ale to se mi moc nehodí. Díky za pomoc.Možno uzamčit.
Ahoj, mám dotaz: Lze nějak nastavit např. na "list1", aby po najetí myši nad bunky např. "B5:E20" se změnil kursor myši ze šipky na ručičku?
Nějak to nemůžu vyřešit.Díky
Mě to funguje, přikládám zkušební soubor.
Hodnoty z texboxu zadavat takto:
Range("A1") = CDate(TextBox1) atd.
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