• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

No je to triviálne. Problém s tým nemám. Ale nejasné úlohy sa ani nesnažím riešiť. A dva týždne si dopisovať tiež nemusím.
Ale každý nemá čas sa venovať takej prkotine. Zrejme nikto nič takéto nepotrebuje.
Ja odkazy na úložisko ani neotváram a ani RAR sa mi nechce otvárať (a to niekto dáva aj 7Z alebo TAR). No tentoraz som urobil výnimku a dnes som ten súbor otvoril.

Urobil som takéto makro
Nastav sa do bunky v C stlpci a spusti toto makro. Môžeš si to dať aj do cyklu. pre celý stlpec.

Sub upr()
ActiveCell = Replace(ActiveCell.Offset(0, -1).Formula, "pokus", ActiveCell.Offset(0, -2))
End Sub

@bedha.
Pán Vovka nemôže za to, že niekto nevie zrozumiteľne popísať problém. Excel predsa nemá na všetky prkotiny nejakú funkciu. Na konkrétny príklad si treba občas napísať svoju vlastnú funkciu. A pán Vovka by to určite vedel. Ale ak máš zložitý vzorec a časť z neho zakryješ, tak ani Einštein ti nepovie výsledok.

@vovka
Pekné.
No zadávateľ toto určite ocení, aj keď celý kód nežiadal.

@začátečník
Takže si sa "prepracoval" tiež k nahratiu makra?

@začátečník.
Nakoľko si myslím, že zadávateľ nedokáže slovne popísať čo presne chce, tak by najlepšie bolo zapísať nahrávanie makra a urobiť manuálne celý postup. Potom by mohlo byť jasné "wo co gou".
Inak sa tým ani nebudem zaoberať. Nech si nájde nejakého študenta a ten mu to za bakšiš vytvorí presne podľa požiadaviek. Viac k tomu nemám a ani nemienim dodávať.

Tiež "pouze nastíním"
Zapni si nahrávanie makra a potom to uprav.

@elninoslov
Po napísaní akého znaku?
A nechci odo mňa, aby som vymýšľal prílohu. Obráť sa na zadávateľa problému.

Možno by sa dalo použiť aj CTRL+H. Je tam možnosť aj nahradiť format. Prečo by to muselo byť interaktívne makro?

Sub Makro()
Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorGreen
With Selection.Find
.Text = "ja"
.Replacement.Text = "ja"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Skús tieo makrá

Sub Makro1()
'červená
Call vyber(wdColorRed)
End Sub
Sub Makro2()
'zelená
Call vyber(wdColorGreen)
End Sub
Sub Makro3()
'hnedá
Call vyber(wdColorBrown)
End Sub
Sub vyber(farba As Long)
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Color = farba
End With
End Sub

Napíš si text nastav sa na pozíciu a spusti makro 1-3. Vyfarbí sa jeden znak.

Iné farby:
http://www.transcriber.ru/etudeseng/hlp_colors.htm

alebo ak chceš vyfarbiť vybrané slovo,
Tak

Sub vyber(farba As Long)
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
With Selection.Font
.Color = farba
End With
End Sub

@AL

@elninoslov
Ja som to tušil, že ty to dáš aj bez prílohy.

@AL
Tiež to vidím na makro. Kto mal na začiatku vedieť, že vzorce bude chcieť kopírovať? Obľubujem takéto úlohy, kde treba informácie "dolovať".

Keby si priložil súbor ako to má vyzerať, tak by ti to niekto už urobil. Ja si tie vzorečky sám vytvárať určite nebudem.
A čo príspevok, to ďalšie požiadavky. V poslednom chceš vzorce rozkopírovať. To sa nedalo napísať priamo do zadania? To má niekto upresňovať 15 krát, čo si zase vymyslíš?

Skús pozrieť funkciu SUMIF.

Alebo zruš automatický prepočet vzorcov. Nastav manuálny.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje