Results 1 to 2 of 2

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Jul:2010
    Location: Sofia
    Posts: 22

    Êèðèëèçàöèÿ - Excel

    Çäðàâåéòå. Èìàì åäíà áàçà îò îêîëî 10 000 îáåêòà, åêñïîðòíàòà â xlsx, â êîÿòî èìàì ïîëå, ñúäúðæàùî ñòðèíãîâå, íà ëàòèíèöà. Ñåãà èñêàì òîâà ïîëå, ïî íÿêàêúâ íà÷èí äà ñòàíå íà êèðèëèöà. Òîâà, êîåòî ìè èäâà íà óì å äà replace-íà ïúðâî êîìáèíàöèèòå îò ëàòèíèöàòà (íàïð. ch ñ ÷), ñëåä òîâà îòäåëíèòå ñèìâîëè (íàïð. v ñ â), ìà íÿêàêñè íå ìè ñå çàíèìàâà ñ öÿëàòà àçáóêà! Íÿêîé çíàå ëè äàëè ñúùåñòâóâà add in èëè äà å ïîïàäàë íà ìàêðîñ, êîéòî ìîæå äà ìè ãî ñâúðøè òîâà??

  2. #2
    Registered User G@nius's Avatar
    Join Date: Feb:2010
    Location: Noob corner
    Posts: 137
    Òÿ àçáóêàòà íå å êîé-çíàå êîëêî ãîëÿìà. Äîêàòî ñú÷èíèø ïîñòà ùåøå äà ñè ñâúðøèë ðàáîòàòà (ïðåäïîëàãàì âå÷å òî÷íî òîâà ñè íàïðàâèë).
    Àêî ðàáîòàòà íÿìà äà å åäíîêðàòíà, ïúðâèÿ ïúò çàïèñâàø çàìåíèòå â ìàêðîñ è äåéñòâàø. Íåùî îò ñîðòà:

    Code:
    Sub Macro1()
    '
    ' Macro1 Macro
    '
    
    '
        Cells.Replace What:="ch", Replacement:="÷", LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:="a", Replacement:="à", LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:="b", Replacement:="á", LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:="v", Replacement:="â", LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    End Sub
    Òàêà èëè èíà÷å, ïðåäïîëàãàì ùå ïîëó÷èø ìíîãî ñòðàííè (íåèçïîëçâàåìè) ðåçóëòàòè.

    À è êàòî èñêàø ïîìîù, íå êàçâàé "íå ìè ñå çàíèìàâà", à ïèìåðíî "íå çíàì êàê" èëè "íå óñïÿâàì". Ùåøå äà ïîëó÷èø ïî-ïîëåçíè îò ìîÿ îòãîâîð.
    GIGABYTE 890GPA-UD3H | AMD Phenom II X4 925 2.8GHz / CM HYPER TX3 | 2 x 2GB SUPER TALENT DDR III 1333 CL9 | Sapphire HD5770 Vapor-X 1GB GDDR5 | WD 500GB SATA II Black | CM GX 650W | LG W2361V-PF, 23", 1920x1080 | Windows 7 Ultimate x64

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè