Find and replace, superscript

[ brainless @ 18.11.2014. 18:37 ] @

Pozdrav,

video sam da ima identična tema, ali za word, meni treba za excel. Da li je moguće uraditi find&replace :

FIND WHAT: m3
REPLACE WITH:m³

[ Ivek33 @ 19.11.2014. 21:35 ] @

Citat:

brainless: FIND WHAT: m3
REPLACE WITH:m3

probaj vidjeti ovdje Find and Replace u Excelu imaš prmijer za download. Jedino ne znam iz kojeg razloga server neće prikazati sve slike na tutorijalu. Moram to vidjeti i riješiti.

A možeš vidjeti i ovdje kako preko VBA konvertirati m3
- Find and replace via VBA

[ Jpeca @ 20.11.2014. 10:59 ] @

Za konkretan primer problem je kako uneti superscript 3 kao karakter za zamenu umesto običnog 3.

Ako se u Replace navede formatiranje Excel će celu ćeliju formatirat sa superscript

Superscript 3 već postoji u proširenom karakter setu i možeš ga uneti u ćeliju preko Insert Symbol, pa se u ovom slučaju može primenti replace

U replace dijalogu (CTRL+H)
Find what unesi "m3"
Replace with unesi m pa paste simbola superscript 3 ili
ako je aktivirana English (United States ) tastatura superscript 3 možeš uneti sa Alt+0179 (vidi specijalni karakteri sa ALT)

Elegantije rešenje koje bi radilo i za neke slučajave gde nema odgovarajući superscript/subsript u proširenom karakter setu, bilo bi pomoću VBA preuzeto sa http://excel.tips.net/T005490_...ripts_in_Find_and_Replace.html

Code:
Sub DoConvert()
    Dim cl As Range

    For Each cl In Selection.Cells
        If cl.Value = "m3" Then
            cl.Characters(2, 1).Font.Superscript = True
        End If
    Next
End Sub

[ brainless @ 20.11.2014. 13:57 ] @

Hvala puno! Isprobao sam sva tri načina. Nisam uspeo da nalepim m³, a sa makroom menja samo ako su u ćeliji isključivo m³,
a neće ako su npr (m3/m3).. E a ovaj treći radi, ali sam prvo ukucao "alt+ taj broj", pa sam se malo čudio što neće da radi, pa sam onda skontao da
treba da držim alt i ukucam broj. Sve u svemu hvala puno!

[ lukarim @ 20.11.2014. 16:44 ] @

Ima jednostavnijih rješenja samo treba razmisliti.Što neki naravno ne rade već traže po planeti rješenja.Rješenja su tu preko puta u susjedstvu.Kod komšija, i uvijek pouzdana.
Iveku33 da stavi na svoj sajt, a Jpeci da razmišlja jer ima potencijala, isto tako pojedina se slova mogu podignuti ili spustiti isto tako pod uvjetima.

[ Ivek33 @ 20.11.2014. 22:43 ] @

Citat:

lukarim:Iveku33 da stavi na svoj sajt,

Interesantno rješenje "komšija". Jel smijem ove tvoje kodove staviti na moj sajt?
pozdrav

[ lukarim @ 21.11.2014. 14:12 ] @

Kao i sve do sada Ivek, otvorene i "zatvorene". Ivek treba stvarati nove stvari iz postoječih ne prepisivati.Sve "tuđe" i otvoreno ti mora biti poticaj. Vjerovatno bi i ti znao ovo sastaviti da razmišljaš, da si u Excelu In. Po sajtu se vidi kao da jesi..............................pozdrav.
PS
Jpeca je morao znati da je riječ o brojevima vrlo logični i ubaciti koju liniju koda koja diže ili spušta brojeve. Njegov kod nije njegov nivo................

[ Jpeca @ 21.11.2014. 15:11 ] @

Iako ga se ne bih stideo, samo da pojasnim da kod nije moj, preuzet je sa sajta kako je navedeno i samo je prilagođen za konkretan slučaj m3

Hvala na doprinosu temi. Program koji si priložio je interesantan i siguran sam da mnogi mogu da nauče puno iz njega, a da li je dobar za konkretan problem nisam siguran, jer pokretač teme nije detaljnije opisao problem.

Šta ćemo sa slučajevima M33 ili adm37 ili East Street 4 ... ? Po meni nema smisla prebacivati sve brojeve u superscript, nego samo određene reči. To je već pitanje konkretnog problema.

Inače, kad se izbace logički uslovi, petlje suština je ista i u tvom programu:

Code:
s.Characters(i, 1).Font.Superscript = True

Meni se čini da je to sasvim dovoljno detalja da neko kome ovo treba doda potrebnu logiku i prilagodi makro prema sopstvenim potrebama.

Kad smo već pokrenuli priču oko zamene može se zamena i ubaciti u AutoCorrect listu pa će uvek prilikom unosa m3 (kao posebna reč) da se prevede u željeni oblik - ali ovo važi samo u slučaju naknadnog, ručnog unosa.

[ lukarim @ 23.11.2014. 17:33 ] @

U konkretnom slučaju mjenja sve ono što je potrebno da promjeni a to je iz gore navedenog m3 i m3/m3 vrlo se jasno vidi šta treba promjeniti a tu je i m2, kemiiske formule sve. Ne treba koristiti makro da u knjizi "Ožalošćena porodica" ili Algebra za osnovnu školu podigne ili spusti sve brojeve. Osnovni je zadatak dati makrou u gore navedenim slučajevima da podiže ili spušta brojeve.
a ako se treba po posebnom obrascu mijenjati format onda postaje igra sa:

Code:

'naravno prije ovoga treba neke stvari dodati
With Application.FindFormat.Font
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
    End With
    With Application.ReplaceFormat.Font
        .FontStyle = "Regular"
        .Strikethrough = False
        .Superscript = True
        .Subscript = False
        .ColorIndex = xlAutomatic
    End With
' naravno i nakon ovoga upotrijebiti petlju da diže samo numeričke podatke

to vam ostavljam kao razbibrigu
zamislite da imate u koloni A točno poredane sve opcije sa spuštenim i podignutim slovima.
napraviti petlju da u nazovimo je šablonskoj tabeli uzima jedan po jedan pojam i da to bude Initstring ili Like i da na takav način mjenja (kopira)u potrebnom tekstu upravo to. pomoću već gore i prije navedenih makroa.....................................
pozdrav