Veď skúšaj meniť....
.MoveLeft Count:=19, Extend:=wdExtend
Sub Makro3()
With Selection.Find
.ClearFormatting
.Text = "dodatok"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Execute
End With
With Selection
.MoveLeft Count:=21, Extend:=wdExtend
.Font.Color = wdColorBlue
.Font.Bold = True
.MoveDown Unit:=wdLine, Count:=1
End With
End Sub
AL napsal/a:
@ marjankaj
Tak, musis sa pochvalit sam, ked Ta nikto iny nepochvali. :)
mepexg napsal/a:
AL, možno máš pravdu, ale toto je iba ďalší spisovateľ (možno si tohoto odhadol správne ty), ktorí nerešpektuje pravidlá fóra dať prílohu o verzii MSE ani nehovorím.
AL napsal/a:
Je samozrejme mozne, ze blby som ja a vsetci ostatni to zadanie pochopili.
No ja by som povedal, že je to tak do hneda.
Pekné čítanie.
S pomocným stlpcom.
pavol14pavol napsal/a:
Prepacte zabudol som ze musim vlozit zazipovany subor
elninoslov napsal/a:
marjankaj: No toto práve nestačí na to, aby to po stlačený farby spočítalo. Treba vyvolať prepočet.
http://excelprekazdeho.blogspot.com/2013/07/ako-scitat-hodnoty-podla-farby-bunky.html
pavol14pavol napsal/a:
Nie len ci by mi nepomohol ktosi s makrom lebo cez podmienene formát mi to nefunguje a skusal som aj ine makra len nefungujú
A preto, že ty musíš tú tabuľku ručne vypisovať, tak chceš aby sme si to vyskúšali aj my?
@elninoslov
Aj tak bunka nebude prázdna. Bude tam predsa ten vzorec.
veny napsal/a:
Trochu jsem ještě poupravil vzorový soubor. Hodnoty 2 sl.C budou neměnné ale Hodnoty 1 sl.B mohou mít i jiné kombinace např.5-6
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.