Results 1 to 6 of 6

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User srg's Avatar
    Join Date: Oct:2003
    Location: .
    Posts: 2,025

    Ïðîáëåì â Excel

    Ïîíåæå ñúì íà òè ñ ôîðìóëèòå â Åêñåë è ïèñàíå íà VBA, ñòèãíàõ äî ñëåäíèÿ ïðîáëåì.

    Èìàì áàðêîä ÷åòåö, êîéòî ïîäàâà íîìåðàòà íà áàð êîäîâåòå êúì Åêñåë.
    Áàð êîä íîìåðà, îáà÷å, ñå ñúñòîè îò 20 öèôðè, à Åêñåëà ìîæå äà ïîåìå ñàìî 15.

    Ìîãà äà èìïîðòíà äàííèòå êàòî "Òåêñò", íî ìè òðÿáâàò ïîñëåäíèòå 5 öèôðè çà èç÷èñëåíèÿ.

    Òà âúïðîñà ìè å: êàê ìîãà äà îòäåëÿ ïîñëåäíèòå 5 ñèìâîëà îò òåêñòîâ ñòðèíã â Åêñåë è äà ãè íàáóòàì â äðóãà êëåòêà êàòî ÷èñëà.

    Ìåðñè ïðåäâàðèòåëíî.
    Íàì ãðóáèÿíîâ íå íàäî. Ìû ñàìè ãðóáèÿíû. - (Îñòàï Áåíäåð)

  2. #2
    Ðåãèñòúðä Þçúð Ñâåòëüî's Avatar
    Join Date: Mar:2005
    Location: Ñîôèÿ
    Posts: 379
    çà VBA-òî - CInt((Right(Range("a1"), 5)))

    èëè â êëåòêà íà åõñåëà =VALUE(RIGHT(A1,5))
    Ñïàì, ñïàì, ñïàì, áàì, áàì áà áàì

  3. #3
    Registered User srg's Avatar
    Join Date: Oct:2003
    Location: .
    Posts: 2,025
    Quote Originally Posted by Ñâåòëüî View Post
    çà VBA-òî - CInt((Right(Range("a1"), 5)))

    èëè â êëåòêà íà åõñåëà =VALUE(RIGHT(A1,5))
    Ìåðñè çà ïîìîùà, íî è â äâàòà âàðèàíòà ìè äàâà ãðåøêà.

    Ïðè ôîðìóëàòà - íà ìÿñòîòî íà À1 èñêà òåêñò
    Ïðè VBA-òî : Expected:Identifier

    Íå ìèñëÿ, ÷å ñ CInt ùå ñå ïîëó÷è - òîâà ÷óäî ïðåâðúùà Value â Integer, à â ñëó÷àÿ àç èìàì òåêñòîâà êëåòêà â êîÿòî íÿìà Value, à String.
    Íàì ãðóáèÿíîâ íå íàäî. Ìû ñàìè ãðóáèÿíû. - (Îñòàï Áåíäåð)

  4. #4
    Ç.È.Â.Ï. thedivaka's Avatar
    Join Date: Mar:2006
    Location: 8.3
    Posts: 4,951
    Âêàðâàø áàðà êàòî òåõò, äåëèø ãî âúòðå íà 2 ñ left i right; ïîñëå äâåòå ãè ïðåîáðàçóâàø ñ value.

    Åìè äà, åòî è ìîÿòà ôîðìóëà òàêà =VALUE(RIGHT(B12,5)) èçëèçà ñè ÷èñëî.
    Àìà òàì êúäåòî èìïîðòâàø êîäà, êëåòêèòå ãè ôîðìàòèðàé äà ñà òåõò, ùîòî àêî ñà îáùè ñèãóðíî àâòîìàòè÷íî òè ãè ïðàâè íà ÷èñëî êàòî âêàðàø áàð êîäà è çàòîâà òè äàâà ãðåøêà.

    Íàé-äîáðå èìïîðòâàé êîäà â 2 êîëîíè - â ïúðâàòà êàòî 20 öèôðåíî ÷èñëî, êîåòî åõåëà ùå òè çàêðúãëÿ ïîñëåäíèòå 5 çíàêà íà 0, âòîðàòà êîëîíà êàòî òåõò è îòòàì ùå âçåìàø ïîñëåäíèòå 5 öèôðè.
    Last edited by thedivaka; 14th September 2007 at 17:24.

  5. #5
    Ðåãèñòúðä Þçúð Ñâåòëüî's Avatar
    Join Date: Mar:2005
    Location: Ñîôèÿ
    Posts: 379
    å âñå ïàê íà ìÿñòîòî íà Range("a1") òðÿáâà äà ñëîæèø àäðåñúò íà äàííàòà, ñ êîÿòî èñêàø äà îïåðèðàø ò.å. range("kolona red"), èëè íàïðàâî äà ñëîæèø ïðîìåíëèâàòà -
    a="11111111111111111111"
    n=cint(right(a,5)) ðåçóëòàò n=11111

    À ïî-ëåñíî å â åêñåëà:
    èìàø êîëîíà èëè êëåòêà ñ áàð êîäîâåòå ïðèìåðíî íà D1,D2 è ò.í.
    â êîëîíà Å ñëãàø ôîðìóëà -
    Êëåòêà e1 - =value(right(d1,5))
    Êëåòêà e2 - =value(right(d2,5)) è ò.í.
    Òàêà âå÷å òúðñåíèòå äàííè ñà â êîëîíà Å ....

    Ïðàòè àêî èñêàø ïðèìåð÷å äà ãî èçìèñëèì è ðàçáèðà ñå àêî íå ñòàíå òîâà ãîðå.
    Ñïàì, ñïàì, ñïàì, áàì, áàì áà áàì

  6. #6
    Registered User srg's Avatar
    Join Date: Oct:2003
    Location: .
    Posts: 2,025
    Meðñè è íà äâàìà âè, íî íåùî íå ñå ïîëó÷àâà.
    Äîðè ñàìî ïðè ñëàãàíå íà "=value(right(d1,5))" Åêñåëà äàâà ãðåøêà, íåçàâèñèìî äàëè â d1 èìà ÷èñëî èëè íå.

    Àêî ôîðìàòèðàì êëåòêàòà, â êîÿòî ñëàãàì ôîðìóëàòà, êàòî òåêñò - ñàìàòà ôîðìóëà èçëèçà âúòðå èçïèñàíà è íå ðàáîòè. Àêî ÿ ôîðìàòèðàì êàòî General èëè Number - äàâà ãðåøêà, äîðè â d1 äà íÿìà ÷èñëî èëè äà èìà 6-öèôðåíî, ïðèìåðíî.

    ÅÄÈÒ:
    Ïôó - îòêðèõ êúäå å ïðîáëåìà - êîãàòî çàìåñòÿ "," ñ ";" íåùàòà ñè èäâàò íà ìÿñòîòî.

    Áëàãîäàðñêî!
    Last edited by srg; 14th September 2007 at 18:01.
    Íàì ãðóáèÿíîâ íå íàäî. Ìû ñàìè ãðóáèÿíû. - (Îñòàï Áåíäåð)

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 | Ìàãàçèí çà åëåêòðîííè öèãàðè