MS Excel

Téma: Seznam autokorekce

Zaslal/a mildapilda12 7.5.2014 20:21

Dobrý den,

mam dotaz jak hromadne vložit slova ktera mají být nahrazena jiným slovem či zkratkou do seznamu autokorekce. jde mi to ze mam seznam vsech statu a jejich zkratek a potrebuju kdyz do libovolne bunkdy napisu jakykoli stát aby se to zmenílo na konkrétní zkratku. Sesit ve kterym potrebuju tuto zkratku je chráněný. Lze tam pouze převadět hodnoty z jineho listu. Čili pripada v uvahu jedine ta autokorekce.

Druha moznost je funkce vyhledat ale to mi není pohodlny jelikož při kazdém otevrení soubrou se tento sesit formatuje pomoci makra do puvodni podoby .

Je tedy moznost jak vlozit více slov do seznamu autokorekce ?

dekuji

Zaslat odpověď >

AL(8.5.2014 23:28)#019360

Kein problem

Sub AddToAutoCorrectList()
'makro zapise do zoznamu automatickych oprav hodnoty zo stlpcov A a B aktivneho listu
'stlpec A obsahuje stare hodnoty
'stlpec B obsahuje hodnoty k nahradeniu tzn.:
'pokial napiseme Alabama a chceme automatickou opravou zmenit na Al, Alabama bude v stlpci A a Al v stlpci B
'hodnoty zacinaju na riadku 1, bez zahlavia stlpcov
Dim cell As Range
With ActiveSheet
Set cell = .[A1]
Do While cell <> ""
Application.AutoCorrect.AddReplacement cell, cell.Offset(0, 1)
Set cell = cell.Offset(1, 0)
Loop
Set cell = Nothing
End With
End Subcitovat

Téma: Seznam autokorekce

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje