Results 1 to 2 of 2

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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.

  2. #2
    Ðåãèñòúðä Þçúð Ñâåòëüî's Avatar
    Join Date: Mar:2005
    Location: Ñîôèÿ
    Posts: 379
    Çäðàñòè,

    Íàïðàâèë ñúì òè ÷àñò îò ìàêðîñà ïî òî÷êà 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
    Ñïàì, ñïàì, ñïàì, áàì, áàì áà áàì

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