Příspěvky uživatele
< návrat zpět
ano
Dobré ráno,super.
Jen jsem si všiml, že pokud dojde k nahrazení,tak se ztratí původní formátování komentáře, Něco bylo v původním např tučně, něco barevně apod.To nejde zachovat?
Šlo by to ještě vylepšit variantou, že nebudu jen nahrazovat, ale vyberu si v komentáři:
1/nahradit(to máme)
2/doplnit
3/najit a uložit
4/celý komentář zkopírovat do jedné buňky
ad2.Doplnit na začátek komentáře "můjNovýText" ,původní posunout dolu o řádek
ad3.Vyhledat řetězec a určitý počet znaků (text co následuje za ním) vypsat do proměnné.
příklad,v koment.je :
Účet( XXXP/IUD) :BXXXCDXX-3XX0-4XX8-AXX9-7XXX7XXX1BXX
takže najdu "Účet( XXXP/IUD) :"
a vycucnu "BXXXCDXX-3XX0-4XX8-AXX9-7XXX7XXX1BXX" ..32znaků
...Jsou to prostě nešťastně vložené hodnoty do komentářů.
Zdravím.
Prosím nevěděli by jste jak vyhledat v textu v komentáři bunky jeho část a nahradit ho jiným ?
Ten kod co jsem stahl z netu mi nefunguje.
Nechci ho pro všechny komentáře všech buněk , ale jen pro vybranou bunku.
Díky
Děkuju
ano :
urobiť rovnaký výpočet ako vzorec ale makrom, a uložiť do premennej?
např toto
vzorec
=MALÁ(ZLEVA(B4;HLEDAT(" ";B4))) ok
vba pokus o zápis, samo že je to blbě
Range("AP" & cisloRadku).FormulaLocal ="=MALÁ(ZLEVA(B" & cisloRadku & ";HLEDAT(" ";B" & cisloRadku & "4)))"
Dobrý večer
existuje nějaký konvertor vzorců do kodu vba?
v buňce mám např vzorec:
=MALÁ(ZLEVA(B4;HLEDAT(" ";B4)))
dokážu pak proměnné přiřadit value hodnotu te bunky se vzorcem,ale nechci zbytečně furt vzorce kládat do buněk.
Nejde to nejak komfotně napsat do kodu?
př:
hodnota = ..výsledek vzorce MALÁ(ZLEVA(B4;HLEDAT(" ";B4)))
Díky za tipy
ano tak.
a k čemu je :
.TextBox1.SelStart = 0
.TextBox1.SelLength = Len(.TextBox1.Text)
děkuji
a to ladění v kodu, nějak v tom lítám
Mám formulář, kde ověřuji vyplněný textbox, pokud tam není hodnota žádná, nebo je hodnota špatná/není to datum, vyhodnotím to jako error /+msg info" ,s odskokem na GoTo...
a chci aby se to vrátilo na ten textbox.
Dá se to nějak, je nejaký přikaz na znovuzaktivnění textboxu, aby se do něj i sám umístil kurzor?
On Error Resume Next 'zkontroluje formát datumu
Cells(poziceradek, 5).Select 'v aktivním řádku vybere sl.5
'doplni hodnotu jako datum dd.mm.rrrr
Cells(poziceradek, 5).Value = DateValue(Replace(TextBox6.Text, ".", "/"))
If Err.Number <> 0 Then
MsgBox "Datum chybí,nebo je špatně!", vbCritical, "Chyba !"
formulář !", vbCritical, "Chyba !"
On Error GoTo 0
Děkuji za rady
super
děkuji
Použil jste základní barvy.
Zkouším třeba různé odstíny. ale kod hází chyby.
Jak vygenerovat správně to označení pro jiné barvy.
Já třeba cvaknu na form a Backcolor tam zkopíruju , ale to nefunguje.
barva1 = &H0080FFFF& 'jiná žlutá
Děkuji
Zdravím,jaký příkaz je třeba doplnit do makra, aby k mejlu připojil i jasně definovaný jeden list z pracovního sešitu, např: List1
Děkuji
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