Příspěvky uživatele


< návrat zpět

veny napsal/a:

do buňky B1 si dejte vzorec
=ČÁST($A1;SLOUPCE($A$1:A$1);1)
a potáhněte doprava a případně dolů,
jen dát pozor na velikost oblasti podle nejdelšího slova(čísla)


Také děkuji 1

pavelo napsal/a:

Dobrý den,
vyhovovalo by přiložené jednoduché řešení?Příloha: 51028_51026_rozlozeni-slov-a-cisel-bez-oddelovace-do-bunek.xlsx (10kB, staženo 2x)


Děkuji 1

Teď jsem zkusila vzoreček =ČÁST($A1;1;1) ale aby se mi v další buňce objevilo další písmenko nebo číslo, tak do ní musím vzoreček vepsat ve tvaru =ČÁST($A1;2;1) atd. Šlo by to nějak zautomatizovat, abych nemusela v každé buňce měnit start?

Dobrý den,
jak by měl prosím vypadat vzoreček na rozdělení slova či čísla do samostatných buněk?
Viz přiložený soubor s příkladem, jak bych si to představovala.
Děkuji 1

summer85 napsal/a:

Jiří497 napsal/a:ActiveCell.Comment.Text Text:=Left(ActiveCell.Comment.Text, 3) nebo ActiveCell.Comment.Text Text:=Replace(ActiveCell.Comment.Text, "f", "7")

Super, moc děkuju
Zatím se mi podařilo rozchodit to první makro, s dalšími se zkusím poprat.


Ještě prosím jak makro uplatním na vybrané komentáře - např. mám je v buňkách A1:A20, ale pokaždé mi to změní jen na té buňce kterou označím první.

Jiří497 napsal/a:

ActiveCell.Comment.Text Text:=Left(ActiveCell.Comment.Text, 3) nebo ActiveCell.Comment.Text Text:=Replace(ActiveCell.Comment.Text, "f", "7")


Super, moc děkuju 1
Zatím se mi podařilo rozchodit to první makro, s dalšími se zkusím poprat.

Jiří497 napsal/a:

Třeba takto. Výsledky zapisuje do buňky.
Jinak mrkněte třeba sem: https://office.lasakovi.com/excel/vba-funkce-vzorce/Textove-funkce-ve-VBA-Excel/

[hr]Sub koment()

Range("B1").Value = Range("A1").Comment.Text
'1.
Range("B2").Value = Left(Range("A1").Comment.Text, 3)
'2.
Range("B3").Value = Replace(Range("A1").Comment.Text, "def", "")

'3.
Text = Range("A1").Comment.Text
Range("B4").Value = Left(Text, InStr(1, Text, "(") - 1) & Right(Text, Len(Text) - InStr(1, Text, ")"))

'4.
Range("B5").Value = Replace(Range("A1").Comment.Text, "f", "7")
End SubPříloha: 50725_text.zip (14kB, staženo 1x)


Děkuji, ale chtěla bych, aby se výsledek zapsal do komentáře... respektive, aby se v něm projevily změny.

Dokážu napsat makro na přepsání textu v komentáři, ale tohle se mi nedaří zapsat.

Makro na přepsání textu v komentáři:

Sub prepis_komentar()
'přepíše text v komentáři na text A+B

If ActiveCell.Comment Is Nothing Then

Else
ActiveCell.Comment.Text Text:="A+B"
End If
End Sub

Děkuji za odkaz, ale ještě se mi tam nepodařilo najít, jak to aplikovat na komentář, vše je zatím řešeno v buňkách.

Palooo napsal/a:

to znie ako domaca uloha :)


Úkol to není, do školy nechodím už spoustu let 5
Jen mám ráda Excel a snažím se naučit VBA, ale tohle se mi nedaří vydedukovat 1

Dobrý den,
prosím o radu jak zapsat ve VBA příkaz pro smazání nebo nahrazení části textu ve všech komentářích.

Potřebuji napsat toto:

1. po určitém počtu znaků vše ostatní smazat (např. ABCDEFG - smazat vše od D, takže nechat jen první tři znaky)

2. smazat určitý text (např. ABCDEFG - smazat DEF)

3. smazat text ohraničený závorkou (např. AB(CD)EFG - smazat (CD) včetně závorky)

4. nahradit určitý text jiným (např. ABCDEFG - nahradit F číslem 7, ale F není ve všech komentářích na stejném místě)


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

Kumulace listů do jednoho listu

Lugr • 28.9. 11:24

Kumulace listů do jednoho listu

veny • 27.9. 11:23

skenovani a vyhledavani a oznaceni v tabulce

elninoslov • 24.9. 23:11

Kumulace listů do jednoho listu

MonikaV • 24.9. 17:18

skenovani a vyhledavani a oznaceni v tabulce

djph • 24.9. 13:44

Sečíst sloupec od 4 řádku

madar5 • 23.9. 8:32

Ověření dat

lubo • 22.9. 11:25