Results 1 to 5 of 5
Thread: Êàê äà íàïðàâÿ òîâà â Åêñåë ?
Hybrid View
-
6th October 2012 12:35 #1
Êàê äà íàïðàâÿ òîâà â Åêñåë ?
Öåëòà å ñ íàòèñêàíå íà åäèí áóòîí äà ñå èçâúðøàò ñëåäíèòå äåéñòâèÿ:
Èçáèðàìå Ëèñò1 Êëåòêà À1
Àêî Êëåòêà À1 å ïðàçíà, íå ïðàâèì íèùî
Àêî Êëåòêà À1 ñúäúðæà ñòîéíîñò ÿ êîïèðàé
Èäè íà Ëèñò 2
Èçáåðè Êîëîíà À
Íàìåðè ïúðâàòà ïðàçíà êëåòêà
Êîïèðàé ñòîéíîñòà" Êúäå å ìúäðîñòòà, êîÿòî çíàíèåòî íè íàêàðà äà çàãóáèì ? Êúäå å çíàíèåòî, êîåòî ïîäìåíèõìå ñ èíôîðìàöèÿ ? "
-
6th October 2012 17:06 #2
Ìîæå äà ñå íàïðàâè ñ MACROS. Êàê ùå ñòàíå - íå çíàì "îò âîëå", òàêà ÷å, àêî íå ñå íàìåðè íÿêîé äà òè êàæå - ùå òðÿáâà ñàì äà ñå ðàçðîâèø
Last edited by Johns; 6th October 2012 at 18:12.
Like the coldest winter chill
Heaven beside you
Hell within
-
6th October 2012 18:05 #3
Ñúäúðæàíèåòî íà êëåòêà 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 SubASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1
-
6th October 2012 18:51 #4
-
6th October 2012 23:05 #5
Ìàëêî îöåò äà ñèïÿ: ñêðèïò÷åòî ùå ðàáîòè çà òåêñò è öåëî÷èñëåíè. Èìàø äà îãëåäàø ñ êàêâî äà ñìåíèø îáðúùàíåòî êúì è îò 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




Reply With Quote

Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè