< návrat zpět

MS Excel


Téma: vyhledat v komentáři a nahradit, nebo doplnit rss

Zaslal/a 12.2.2024 15:54

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

Příloha: zip56174_komentare.zip (15kB, staženo 2x)
Zaslat odpověď >

#056175
elninoslov
Sub CommentChangeText()
Dim sOldComment As String, sNewComment As String, sFind As String, sReplace As String
Dim Cmt As Comment
Dim Bunka As Range

Set Bunka = List1.Range("A1")

sFind = 2011
sReplace = 2012

On Error Resume Next
Set Cmt = Bunka.Comment
On Error GoTo 0

If Cmt Is Nothing Then
MsgBox "Žádný komentář v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
Exit Sub
End If

sOldComment = Cmt.Text
sNewComment = Replace(sOldComment, sFind, sReplace)
Cmt.Text Text:=sNewComment

If sOldComment = sNewComment Then
MsgBox "Nepřišlo ke změně komentáře v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
Else
MsgBox "Byl nahrazen text :" & vbNewLine & sFind & vbNewLine & _
"novým textem :" & vbNewLine & sReplace & vbNewLine & _
"v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)

End If

Set Cmt = Nothing
End Sub
Příloha: zip56175_komentare.zip (16kB, staženo 1x)
citovat
#056177
avatar
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ářů.
Příloha: zip56177_komentare.zip (20kB, staženo 2x)
citovat
#056178
elninoslov
O ktoré parametre formátu by hlavne išlo? Iba o farbu a hrúbku písma?citovat
#056179
avatar
anocitovat
#056182
avatar
..obecný dotaz k té anylýze textu.
Tady doposud řešíme stále text v komentáři buňky v excelu.

Pro jiné účely:je možné zkopírovat si text např z těla emailu do Form/textBoxu a tam spustit to vyhledávání?
Zkouším to tam nakopírovat ručně , ale vloží se mi do textBoxu jen první řádek označeného textu-on neumí více řádků?
Musím ho kopírovat ručně, nebo jde napsat makro i do outloku,které z těla vybraného emailu, na který koukám, -nyní má vždy přesně definované struktury textu, samo vyextrahuje určená data? Makra z outloku budou umět pracovat se sešitem excelu?

Např.vždy tam bude:

Vážený partnere,

rádi bychom Vás informovali, blablabla.

ZÁKAZNÍK: ing. Karel Novak
PRODUKT: Krabice
POČET: 2
ID LICENCE: xxx-xxx-xxx
EXPIRACE: 9.3.2023

Uložit pak chceme do buněk vždy to co je za dvojtečkou.

Možná postup zbytečně komplikuju.
Nejsem programátor, jakou taktiku by jste na to zvolil,aby to vba zvládl?
Příloha: zip56182_komentare.zip (22kB, staženo 1x)
citovat
#056187
avatar
Tak ten přenos textu z emailu jsem vyřešil. Mám to už v buňce. Jen prosím odpovědi a příklad jak vycucnout to za dvojtečkama...

ZÁKAZNÍK: ing. Karel Novak
PRODUKT: Krabice atd
Hezký dencitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Uspořádání dat do tabulky

elninoslov • 15.4. 14:19

QR kód

parkovec • 15.4. 13:53

Uspořádání dat do tabulky

lubo • 15.4. 12:10

Uspořádání dat do tabulky

Marw • 14.4. 19:41

Uspořádání dat do tabulky

elninoslov • 14.4. 10:08

Uspořádání dat do tabulky

Marw • 14.4. 9:30

hláška

elninoslov • 13.4. 8:45