Příspěvky uživatele
< návrat zpět
r13 napsal/a:
Prípadne pre "negatív" :
=MOD(SUBTOTAL(103;NEPŘÍMÝ.ODKAZ("B2:B"&ŘÁDEK()));2)
Super, děkuju
eLCHa napsal/a:
Nejjednodušší řešení je tabulka, jak píše r13. Pokud to chcete provést podmíněným formátováním, lze to - musíte použít funkci SUBTOTAL nebo AGGREGATE.
Zkusím to přes tu tabulku, ale pro zajímavost, jak by měl vzorec vypadat? Které hodnoty bych měla zadat při použití SUBTOTAL nebo AGGREGATE?
Zadám toto '=MOD(ŘÁDEK();2)' a pokračuji '&AGGREGATE(???;5;$A$2:$D$8)'?
Dobrý den,
nevím jestli to vůbec jde, ale chci mít barevně označené řádky kromě těch skrytých. Samozřejmě, když je zobrazím, aby se mi zase barevně označily.
Pro barevné rozlišení jsem použila podmíněné formátování pomocí vzorce '=MOD(ŘÁDEK();2)'
Ale ve chvíli kdy skryju řádek, tak mám nad sebou dva stejně barevné řádky.
Předem děkuji za pomoc.
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
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
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
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
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
Jen mám ráda Excel a snažím se naučit VBA, ale tohle se mi nedaří vydedukovat
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
\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