Results 1 to 5 of 5

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User Òðàé÷î Áúðçàêîâ's Avatar
    Join Date: Jan:2006
    Location: Ñåïòåìâðè
    Posts: 162

    Êàê äà íàïðàâÿ òîâà â Åêñåë ?

    Öåëòà å ñ íàòèñêàíå íà åäèí áóòîí äà ñå èçâúðøàò ñëåäíèòå äåéñòâèÿ:

    Èçáèðàìå Ëèñò1 Êëåòêà À1
    Àêî Êëåòêà À1 å ïðàçíà, íå ïðàâèì íèùî
    Àêî Êëåòêà À1 ñúäúðæà ñòîéíîñò ÿ êîïèðàé
    Èäè íà Ëèñò 2
    Èçáåðè Êîëîíà À
    Íàìåðè ïúðâàòà ïðàçíà êëåòêà
    Êîïèðàé ñòîéíîñòà
    " Êúäå å ìúäðîñòòà, êîÿòî çíàíèåòî íè íàêàðà äà çàãóáèì ? Êúäå å çíàíèåòî, êîåòî ïîäìåíèõìå ñ èíôîðìàöèÿ ? "

  2. #2
    Bounty Hunter Johns's Avatar
    Join Date: Nov:2005
    Location: Ñîôèéñêî
    Posts: 728
    Quote Originally Posted by Òðàé÷î Áúðçàêîâ View Post
    Öåëòà å ñ íàòèñêàíå íà åäèí áóòîí äà ñå èçâúðøàò ñëåäíèòå äåéñòâèÿ:

    Èçáèðàìå Ëèñò1 Êëåòêà À1
    Àêî Êëåòêà À1 å ïðàçíà, íå ïðàâèì íèùî
    Àêî Êëåòêà À1 ñúäúðæà ñòîéíîñò ÿ êîïèðàé
    Èäè íà Ëèñò 2
    Èçáåðè Êîëîíà À
    Íàìåðè ïúðâàòà ïðàçíà êëåòêà
    Êîïèðàé ñòîéíîñòà
    Ìîæå äà ñå íàïðàâè ñ MACROS. Êàê ùå ñòàíå - íå çíàì "îò âîëå", òàêà ÷å, àêî íå ñå íàìåðè íÿêîé äà òè êàæå - ùå òðÿáâà ñàì äà ñå ðàçðîâèø
    Last edited by Johns; 6th October 2012 at 18:12.
    Like the coldest winter chill
    Heaven beside you
    Hell within

  3. #3
    Registered User hateras's Avatar
    Join Date: Jan:2011
    Location: Kronos III
    Posts: 1,028
    Ñúäúðæàíèåòî íà êëåòêà A1 íà Sheet1 ñå êîïèðà â ïúðâàòà ñâîáîäíà êëåòêà íà êîëîíà A îò Sheet2.
    Code:
    Sub copypaste()
        v = CStr(Worksheets("Sheet1").Cells(1, 1))
        If v <> "" Then
            b = False
            i = 1
            Do
                v1 = CStr(Worksheets("Sheet2").Cells(i, 1))
                If v1 = "" Then
                    Worksheets("Sheet2").Cells(i, 1) = v
                    b = True
                End If
                i = i + 1
            Loop Until b
        End If
    End Sub
    ASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1

  4. #4
    Registered User Òðàé÷î Áúðçàêîâ's Avatar
    Join Date: Jan:2006
    Location: Ñåïòåìâðè
    Posts: 162
    Quote Originally Posted by hateras View Post
    Code:
    Sub copypaste()
        v = CStr(Worksheets("Sheet1").Cells(1, 1))
        If v <> "" Then
            b = False
            i = 1
            Do
                v1 = CStr(Worksheets("Sheet2").Cells(i, 1))
                If v1 = "" Then
                    Worksheets("Sheet2").Cells(i, 1) = v
                    b = True
                End If
                i = i + 1
            Loop Until b
        End If
    End Sub
    Òîâà ðàáîòè ïåðôåêòíî, è ìíîãî ñòåãíàòî . Áëàãîäàðÿ hateras
    " Êúäå å ìúäðîñòòà, êîÿòî çíàíèåòî íè íàêàðà äà çàãóáèì ? Êúäå å çíàíèåòî, êîåòî ïîäìåíèõìå ñ èíôîðìàöèÿ ? "

  5. #5
    Registered User hateras's Avatar
    Join Date: Jan:2011
    Location: Kronos III
    Posts: 1,028
    Ìàëêî îöåò äà ñèïÿ: ñêðèïò÷åòî ùå ðàáîòè çà òåêñò è öåëî÷èñëåíè. Èìàø äà îãëåäàø ñ êàêâî äà ñìåíèø îáðúùàíåòî êúì è îò String (CStr ôóíêöèÿòà) - IsEmpty èëè íåùî òàêîâà. Ñúùî çà êîïèðàíåòî - ïðåç îáåêò. Åëå àêî ùå èñêàø è ôîðìàòèðàíåòî...
    ASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1

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