Results 1 to 2 of 2
Thread: Ïîìîù çà Excel
Hybrid View
-
20th May 2013 10:35 #1Registered User
Join Date: May:2013
Location: Radnevo
Posts: 1
Ïîìîù çà Excel
Çàäà÷à íàä êîÿòî ñå ìú÷à âå÷å 3 äåí å ñëåäíàòà :
Èñêàì äà ïðèñâîÿ ìàêðîñ êúì äàäåí áóòîí,êîéòî äà èçâúðøâà ñëåäíîòî:
http://prikachi.com/images/563/6128563g.png
http://prikachi.com/images/564/6128564J.png
 Sheet " ÌÀÉ 2013 " :
1 . Âúâåæäàìå ðàá.¹ â êëåòêà Y271 è äâà òåëåôîíà â ñúîòâåòíèòå êëåòêè Ê271 è Ê272
2 . Íàòèñêàìå áóòîí " Çàïèøè íîìåðàòà"
3.  Sheet "òåëåôîíè" ðàá.¹ äà áúäå íàìåðåí è ñúîòâåòíî çàïèñàíè íîìåðàòà â ñúîòâåòíèòå êëåòêè / â ñëó÷àÿ êëåòêèòå çà òåëåôîíèòå êúì ðàá.íîìåð 5 ñà C2 i D2 /
4.Ñëåä êîåòî âúâåäåíèòå ñòîéíîñòè â Y271 , Ê271 è Ê272 äà áúäàò èçòðèòè
Îò âñè÷êî íàïèñàíî Àç ìîãà åäèíñòâåíî ñëåä çàïèñà äà íàïðàâÿ êëåòêèòå - Y271 , Ê271 è Ê272 â Sheet "ÌÀÉ 2013" äà ñå èç÷èñòÿò îò äàííèòå.
Äàíî ñúì îáÿñíèë êàêòî òðÿáâà ïðîáëåìà ñè.
Ìîæå áè å ïî óäà÷íî òîâà äà ñå èçâúðøâà ñ UserForm êúäåòî äà ñå âúâåæäàò äàííèòå çà çàïèñ.
Íî è â äâàòà ñëó÷àÿ íå çíàì íóæíèÿò ìàêðîñ.Last edited by mehanika; 20th May 2013 at 18:32.
-
21st May 2013 02:19 #2
Çäðàñòè,
Íàïðàâèë ñúì òè ÷àñò îò ìàêðîñà ïî òî÷êà 3, ìîæå áè íàé-âàæíàòà. Îñòàíàëîòî ãî ïîïúëíè ñàì, òúêìî ùå ìîæåø äà ãî òåñòâàø. Ðàçáèðà ñå, àêî èìàø íÿêàêâè òðóäíîñòè, ùå ïèøåø.
'Ñòîéíîñòòà, êîÿòî òúðñèø
look_for = 5 'îò êëåòêà Y271
tel1 = 088888888 'òåëåôîíúò îò äðóãèÿ øèéò Ê271
tel2 = 05555555 'òåëåôîíúò îò äðóãèÿ øèéò Ê272
Worksheets("òåëåôîíè").Activate
Columns("B:B").Select
If Selection.Find(what:=look_for, LookIn:=xlFormulas, lookat:=xlWhole) Is Nothing Then
'Àêî íÿìà òàêúâ ðàáîòåí íîìåð â "òåëåôîíè" - ïîñëåäíèÿ ðåä
result = Selection.End(xlDown).Value + 1
Else
'Ïúðâèÿò íàìåðåí íîìåð â òåëåôîíè - íîìåðà íà ðåäà
result = Selection.Find(what:=look_for, After:=ActiveCell, LookIn:=xlFormulas, lookat _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Row
End If
Cells(result, "C") = tel1
Cells(result, "D") = tel2Ñïàì, ñïàì, ñïàì, áàì, áàì áà áàì




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