Results 1 to 8 of 8

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User aniuta's Avatar
    Join Date: Apr:2004
    Location: Ïëîâäèâ
    Posts: 1,058

    Ìàëêî ïîìîù çà Åêñåë

    Çàäà÷êàòà å ñëåäíàòà, äàííèòå âúâåäåíè â ïúðâèÿ ëèñò íà ôàéëà ñëåä çàäåéñòâàíå íà ôîðìóëà èëè ìàêðîñ äà ñå ïðåõâúðëÿò â ñëåäâàùèòå íÿêîëêî ëèñòà, â çàâèñèìîñò îò ñòîéíîñòà â êîëîíà À(ïðèìåðíî), êàòî òðÿáâà äà ñå ïðåõâúðëÿ öåëèÿ ðåä. Ïðèìåðíî ïðè ñòîéíîñòè 1,3,12,23 â êîëîíà À, ðåäà ñå êîïèðà íà âòîðèÿ ëèñò, ïðè ñòîéíîñòè 2,5,42, ðåäà ñå êîïèðà íà òðåòèÿ ëèñò è ò.í.

    Âúïðîñà ìè å:

    1.Èìà ëè ôîðìóëà êîÿòî äà ìè ñâúðøè ðàáîòà è êîÿ òî÷íî å òÿ (ñ ïî-åëåìåíòàðíèòå ôóíêöèè ñå îïðàâÿì áåç ãîëåìè ïðîáëåìè è ñúì ñèãóðåí, ÷å àêî çíàì êîè òî÷íî äà ïîëçâàì, ñ ïîâå÷êî ÷åòåíå, è ìåòîäà ïðîáà-ãðåøêà ùå ñå îïðàâÿ è ñàì)?

    2.Àêî íå ñòàâà çà öåëòà ôîðìóëà, à òðÿáâà äà ñå ïèøå ìàêðîñ, êàêâî å íóæíî äà ÷åòà, çà äà ñè ãî íàïèøà? Äîñåãà åäèíñòâåíèÿ ìè îïèò ñ òåçè íåùà ñà íÿêîëêî ïðàâåíè êîðåêöèè íà âå÷å ãîòîâè ìàêðîñè, íà áàçàòà íà ëîãèêà è îòíîâî ìåòîä ïðîáà-ãðåøêà.
    ...à äíåñ ìîÿ ñîáñòâåí íàñëåäíèê, èçâúðøâà ãåðîéñêè áåëè,
    íå ñúì ñå èçãóáèë áåçñëåäíî, ùîì òîé ìå ïîâòàðÿ... íàëè?

  2. #2
    Registered User singularity's Avatar
    Join Date: Apr:2003
    Location: Ñîôèÿ
    Posts: 3,382
    åäíà ïðîñòà IF íÿìà ëè äà òè ñâúðøè ðàáîòà ?
    íà âòîðàòà ñòðàíèöà ñëàãàø IF(ñúîòâåòíàòà êëåòêà íà ïúðâà ñòðàíèöà=ñòîéíîñòòà;ñúîòâåòíàòà êëåòêà íà ïúðâà ñòðàíèöà) è êîïèðàø íàäîëó. Ïî ñúùèÿ íà÷èí íà âòîðà è íà òðåòà ñòðàíèöà...
    ignore list:Java,våelio,jaredharet,gochev.george,Nit rogenium
    Quis custodiet ipsos custodes?

  3. #3
    Registered User Òðàé÷î Áúðçàêîâ's Avatar
    Join Date: Jan:2006
    Location: Ñåïòåìâðè
    Posts: 162
    Äî êîëêîòî ðàçáèðàì òðÿáâà äà ïðåõâúðëèø ñòîéíîñòèòå â êîëîíà À íà Sheet1 ,â ðåä íà Sheet2 /Sheet3
    Ñúçäàâàø åäèí áóòîí îò òóóëáàðà Forms è ìó ñëàãàø òîçè ìàêðîñ:

    Sub Button1_Click()

    resultat = MsgBox(" Êîïèðàíå", vbOKCancel, "Êàêâî äà ïðàâèì?")
    'êîïèðàò ñå ñòîéíîñòèòå â sheet1
    Range("A1:A20").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Dim RowNumber As Integer
    'òúðñåíå íà ïúðâèÿ ïðàçåí ðåä â sheet2
    RowNumber = 2
    While Cells(RowNumber, 1).Value <> 0
    RowNumber = RowNumber + 1
    Wend
    Cells(RowNumber, 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
    'èç÷èñòâàíå
    Sheets("Sheet1").Select
    Range("A1:A20").Select
    Selection.ClearContents
    End Sub

    Êàòî íàòèñíåø áóòîíà âñè÷êè ñòîéíîñòè â êîëîíà À1:20 ùå îòèäàò íà ïúðâèÿ ïðàçåí ðåä â Sheet2 ,a òè âå÷å øå ñè ðåäàêòèðàø êàêòî íà òåá òè òðÿáâà.
    " Êúäå å ìúäðîñòòà, êîÿòî çíàíèåòî íè íàêàðà äà çàãóáèì ? Êúäå å çíàíèåòî, êîåòî ïîäìåíèõìå ñ èíôîðìàöèÿ ? "

  4. #4
    Registered User aniuta's Avatar
    Join Date: Apr:2004
    Location: Ïëîâäèâ
    Posts: 1,058
    @singularity àêî èçïîëçâàì IF ïðè êîïèðàíåòî íà ðåäà íà ñëåäâàùèòå ëèñòîâå íÿìà ëè äà èìàì è ïðàçíè ðåäîâå êúäåòî íÿìà ñúâïàäåíèå?

    EDIT: À è òàêà íå óñïÿõ äà ãî íàêàðàì äà êîïèðà ðåäà


    @Òðàé÷î Áúðçàêîâ ÿâíî íå ñúì ñå èçðàçèë äîáðå.

    Ïðè íàëè÷èå íà òàáëèöà îò âèäà:

    ¹ - Èìå - Ãðàä - Òåëåôîí
    1 - Èâàí - Ïëîâäèâ - 623546
    2 - Äèìèòúð - Ñîôèÿ - 9206549
    3 - Ãåîðãè - Âàðíà - 569352
    4 - Èâàí - Ñîôèÿ - 6523501

    Ïðè ñòîéíîñò "Èâàí" â êîëîíà "èìå", öåëèÿ ðåä äà ñå êîïèðà íà âòîðèÿ ëèñò (òîâà âêëþ÷âà ¹, èìå, ãðàä è òåëåôîí), ïðè ñòîéíîñò "Äèìèòúð" â êîëîíà "èìå" ðåäà äà ñå êîïèðà âúâ âòîðèÿ ëèñò è ò.í.
    Last edited by aniuta; 6th November 2006 at 18:41.
    ...à äíåñ ìîÿ ñîáñòâåí íàñëåäíèê, èçâúðøâà ãåðîéñêè áåëè,
    íå ñúì ñå èçãóáèë áåçñëåäíî, ùîì òîé ìå ïîâòàðÿ... íàëè?

  5. #5
    motherfather The Penalty's Avatar
    Join Date: Mar:2002
    Location: ÑÔ
    Posts: 20,472
    Ðàçáèðàì, ÷å èäåÿòà å äà èçëÿçàò âñè÷êè äåòî òè òðÿáâàò îò òîçè òåëåôîíåí óêàçàòåë, íî ñ Åêñåë ùå çàãóáèø äîñòà ïîâå÷å âðåìå - íàïðàâè ãî ñ Àêñåñ, ùå ñè ñïåñòèø ìíîãî ãëàâîáîëèÿ.
    Êà÷âàø òàáëèöàòà è ïîñëå ñ ïðîñòî êóåðè ùå èçëåçå âñè÷êî êàêâîòî òè òðÿáâà.

    • Ìîæåø äà èçâàäèø ÷îâåêà îò ñåëîòî, íî ñåëîòî îò ÷îâåêà - íèêîãà
    • Sometimes I think the surest sign that intelligent life exists elsewhere in the universe is that none of it has tried to contact us
    • Soul platinum 1 and 2. See? It's not the game - you suck.


  6. #6
    Registered User
    Join Date: Aug:2001
    Posts: 101
    Âèæ HLOOKUP. Èìà ìíîãî ïðèìåðè, íàïðèìåð ÒÓÊ.
    The Best Year Of Our Lives | êèðèëèöà

  7. #7
    Registered User aniuta's Avatar
    Join Date: Apr:2004
    Location: Ïëîâäèâ
    Posts: 1,058
    Quote Originally Posted by The Penalty
    íàïðàâè ãî ñ Àêñåñ, ùå ñè ñïåñòèø ìíîãî ãëàâîáîëèÿ.
    Çà ñúæàëåíèå ôàéëà (êîéòî íå å òåëåôîíåí óêàçàòåë ) ùå ñå ïîëçâà åæåäíåâíî ïîíå íà òðè êîìïþòúðà, îò êîèòî åäèíèÿ å ôèðìåí è íàëè÷èåòî íà Àêñåñ å íåæåëàíî (ïîíå òàêà ìè çàÿâèõà), çàòîâà ñúì ñå íàñî÷èë êúì ìàêðîñ èëè ôîðìóëà.

    Çà ìîìåíòà îïèòèòå ïðîäúëæàâàò, àêî èìà ðåçóëòàò, òîé ùå áúäå îáÿâåí è òóê.
    ...à äíåñ ìîÿ ñîáñòâåí íàñëåäíèê, èçâúðøâà ãåðîéñêè áåëè,
    íå ñúì ñå èçãóáèë áåçñëåäíî, ùîì òîé ìå ïîâòàðÿ... íàëè?

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