Како заменити све знакове у табели другим знаковима
Да ли знате да? Подаци које добијете од пословних партнера или након увоза података садрже нетачне знакове. Може се десити да се децимална тачка појави свуда где је децимална тачка потребна. Или се може догодити да се између појединих цифара појављују косе црте.
Помоћу команде РЕПЛАЦЕ можете пронаћи ове знакове и заменити их другим знаковима. Али потребно је много труда ако желите да овај процес радите чешће. Уштедите време извршавањем задатка помоћу макроа. Овај макро можете поново брзо и једноставно позвати у истој ситуацији у будућности.
Да бисте укључили макро у празну радну свеску, отворите нову радну свеску у свим верзијама програма Екцел помоћу комбинације тастера ЦТРЛ Н. Затим притисните комбинацију тастера АЛТ Ф11 да бисте отворили ВБА едитор. Тамо изаберите команду ИНСЕРТ - МОДУЛЕ. Затим унесите следећи макро:
Замени поткарактере ()
На Грешка Настави даље
Дим Целл Ас Ранге
Дим Сеарцх Ас Ас Стринг
Дим Реплаце витх Ас Стринг
СеарцхФор = "."
РеплацеБи = ","
За сваку ћелију у АцтивеСхеет.УседРанге
Целл.Валуе = Апплицатион.Субституте (Целл.Валуе, ФиндФор, РеплацеБи)
Следећа ћелија
Он Еррор ГоТо 0
Енд Суб
Макро замењује децимални зарез децималним зарезом у свим ћелијама које се користе у активном радном листу. Да бисте позвали макро, активирајте жељени радни лист, притисните комбинацију тастера АЛТ Ф8 и изаберите макро ЗАМЕЊА ЛИКОВА.
Да бисте контролисали који се садржај тражи и замењује, подесите две променљиве СУЦХЕННАЦХ и РЕПЛАЦЕ БИ у макроу.
