Results 1 to 8 of 8
Thread: Ìàëêî ïîìîù çà Åêñåë
Hybrid View
-
3rd November 2006 23:22 #1
Ìàëêî ïîìîù çà Åêñåë
Çàäà÷êàòà å ñëåäíàòà, äàííèòå âúâåäåíè â ïúðâèÿ ëèñò íà ôàéëà ñëåä çàäåéñòâàíå íà ôîðìóëà èëè ìàêðîñ äà ñå ïðåõâúðëÿò â ñëåäâàùèòå íÿêîëêî ëèñòà, â çàâèñèìîñò îò ñòîéíîñòà â êîëîíà À(ïðèìåðíî), êàòî òðÿáâà äà ñå ïðåõâúðëÿ öåëèÿ ðåä. Ïðèìåðíî ïðè ñòîéíîñòè 1,3,12,23 â êîëîíà À, ðåäà ñå êîïèðà íà âòîðèÿ ëèñò, ïðè ñòîéíîñòè 2,5,42, ðåäà ñå êîïèðà íà òðåòèÿ ëèñò è ò.í.
Âúïðîñà ìè å:
1.Èìà ëè ôîðìóëà êîÿòî äà ìè ñâúðøè ðàáîòà è êîÿ òî÷íî å òÿ (ñ ïî-åëåìåíòàðíèòå ôóíêöèè ñå îïðàâÿì áåç ãîëåìè ïðîáëåìè è ñúì ñèãóðåí, ÷å àêî çíàì êîè òî÷íî äà ïîëçâàì, ñ ïîâå÷êî ÷åòåíå, è ìåòîäà ïðîáà-ãðåøêà ùå ñå îïðàâÿ è ñàì)?
2.Àêî íå ñòàâà çà öåëòà ôîðìóëà, à òðÿáâà äà ñå ïèøå ìàêðîñ, êàêâî å íóæíî äà ÷åòà, çà äà ñè ãî íàïèøà? Äîñåãà åäèíñòâåíèÿ ìè îïèò ñ òåçè íåùà ñà íÿêîëêî ïðàâåíè êîðåêöèè íà âå÷å ãîòîâè ìàêðîñè, íà áàçàòà íà ëîãèêà è îòíîâî ìåòîä ïðîáà-ãðåøêà....à äíåñ ìîÿ ñîáñòâåí íàñëåäíèê, èçâúðøâà ãåðîéñêè áåëè,
íå ñúì ñå èçãóáèë áåçñëåäíî, ùîì òîé ìå ïîâòàðÿ... íàëè?
-
3rd November 2006 23:55 #2
åäíà ïðîñòà IF íÿìà ëè äà òè ñâúðøè ðàáîòà ?
íà âòîðàòà ñòðàíèöà ñëàãàø IF(ñúîòâåòíàòà êëåòêà íà ïúðâà ñòðàíèöà=ñòîéíîñòòà;ñúîòâåòíàòà êëåòêà íà ïúðâà ñòðàíèöà) è êîïèðàø íàäîëó. Ïî ñúùèÿ íà÷èí íà âòîðà è íà òðåòà ñòðàíèöà...ignore list:Java,våelio,jaredharet,gochev.george,Nit rogeniumQuis custodiet ipsos custodes?
-
5th November 2006 19:41 #3
Äî êîëêîòî ðàçáèðàì òðÿáâà äà ïðåõâúðëèø ñòîéíîñòèòå â êîëîíà À íà 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 òè âå÷å øå ñè ðåäàêòèðàø êàêòî íà òåá òè òðÿáâà." Êúäå å ìúäðîñòòà, êîÿòî çíàíèåòî íè íàêàðà äà çàãóáèì ? Êúäå å çíàíèåòî, êîåòî ïîäìåíèõìå ñ èíôîðìàöèÿ ? "
-
6th November 2006 18:29 #4
@singularity àêî èçïîëçâàì IF ïðè êîïèðàíåòî íà ðåäà íà ñëåäâàùèòå ëèñòîâå íÿìà ëè äà èìàì è ïðàçíè ðåäîâå êúäåòî íÿìà ñúâïàäåíèå?
EDIT: À è òàêà íå óñïÿõ äà ãî íàêàðàì äà êîïèðà ðåäà
@Òðàé÷î Áúðçàêîâ ÿâíî íå ñúì ñå èçðàçèë äîáðå.
Ïðè íàëè÷èå íà òàáëèöà îò âèäà:
¹ - Èìå - Ãðàä - Òåëåôîí
1 - Èâàí - Ïëîâäèâ - 623546
2 - Äèìèòúð - Ñîôèÿ - 9206549
3 - Ãåîðãè - Âàðíà - 569352
4 - Èâàí - Ñîôèÿ - 6523501
Ïðè ñòîéíîñò "Èâàí" â êîëîíà "èìå", öåëèÿ ðåä äà ñå êîïèðà íà âòîðèÿ ëèñò (òîâà âêëþ÷âà ¹, èìå, ãðàä è òåëåôîí), ïðè ñòîéíîñò "Äèìèòúð" â êîëîíà "èìå" ðåäà äà ñå êîïèðà âúâ âòîðèÿ ëèñò è ò.í.Last edited by aniuta; 6th November 2006 at 18:41.
...à äíåñ ìîÿ ñîáñòâåí íàñëåäíèê, èçâúðøâà ãåðîéñêè áåëè,
íå ñúì ñå èçãóáèë áåçñëåäíî, ùîì òîé ìå ïîâòàðÿ... íàëè?
-
6th November 2006 19:57 #5
Ðàçáèðàì, ÷å èäåÿòà å äà èçëÿçàò âñè÷êè äåòî òè òðÿáâàò îò òîçè òåëåôîíåí óêàçàòåë, íî ñ Åêñåë ùå çàãóáèø äîñòà ïîâå÷å âðåìå - íàïðàâè ãî ñ Àêñåñ, ùå ñè ñïåñòèø ìíîãî ãëàâîáîëèÿ.
Êà÷âàø òàáëèöàòà è ïîñëå ñ ïðîñòî êóåðè ùå èçëåçå âñè÷êî êàêâîòî òè òðÿáâà.
-
6th November 2006 20:44 #6Registered User
Join Date: Aug:2001
Posts: 101
Âèæ HLOOKUP. Èìà ìíîãî ïðèìåðè, íàïðèìåð ÒÓÊ.
The Best Year Of Our Lives | êèðèëèöà
-
8th November 2006 21:08 #7Çà ñúæàëåíèå ôàéëà (êîéòî íå å òåëåôîíåí óêàçàòåë
Originally Posted by The Penalty
) ùå ñå ïîëçâà åæåäíåâíî ïîíå íà òðè êîìïþòúðà, îò êîèòî åäèíèÿ å ôèðìåí è íàëè÷èåòî íà Àêñåñ å íåæåëàíî (ïîíå òàêà ìè çàÿâèõà), çàòîâà ñúì ñå íàñî÷èë êúì ìàêðîñ èëè ôîðìóëà.
Çà ìîìåíòà îïèòèòå ïðîäúëæàâàò, àêî èìà ðåçóëòàò, òîé ùå áúäå îáÿâåí è òóê....à äíåñ ìîÿ ñîáñòâåí íàñëåäíèê, èçâúðøâà ãåðîéñêè áåëè,
íå ñúì ñå èçãóáèë áåçñëåäíî, ùîì òîé ìå ïîâòàðÿ... íàëè?




Reply With Quote
Ïðåïîðú÷àéòå ìÿñòî çà ïî÷èâêà â...
7th May 2023, 14:24 in Îáùè ïðèêàçêè