Results 1 to 3 of 3

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Mar:2008
    Location: BG
    Posts: 162

    Ìàëêî ïîìîù çà ìàêðîñ íà Excel

    Èìàì ðàáîòåù ìàêðîñ çà Excel. Èñêàì äà ñå ïðåðàáîòè òàêà, ÷å äà ïðîâåðÿâà êëåòêè B8 äàëè å ðàâíà íà 3 ( B8=3) è B14 äàëè å ðàâíà íà 1 (B14=1). Àêî å òàêà äà ñå èçïúëíè àêî íÿêîÿ îò êëåòêèòå íå îòãîâàðÿ íà òåçè äàííè äà íå ñå èçïúëíÿâà.

    Òîâà å ìàêðîñà:

    Sub BothTogether_1()
    CopyPict
    End Sub

    Sub CopyPict()
    Sheets("Snimkite").Select
    ActiveSheet.Shapes("Group 1").Select
    Selection.Copy
    Sheets("Ôîðìóëè çà èç÷èñëåíèå").Select
    Range("G2").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft -0.75
    Selection.ShapeRange.IncrementTop -8.25
    Range("D2:I46").Select

    End Sub
    Áëàãîäàðÿ ïðåäâàðèòåëíî
    Last edited by milenk; 27th September 2013 at 05:49.

  2. #2
    Registered User
    Join Date: Aug:2009
    Location: Ñîôèÿ
    Posts: 265
    Íåùî òàêîâà ëè?
    Code:
    If Sheets("Snimkite").Range("B8").Value = 3 And Sheets("Snimkite").Range("B14").Value = 1 Then
      ...
    End If

  3. #3
    Registered User
    Join Date: Mar:2008
    Location: BG
    Posts: 162
    Ìèñëÿ,÷å òîâà ùå áúäå êëþ÷à îò áàðàêàòà. Íàïðàâèõ ìàëêà ïðîìÿíà â êîäà ïîíåæå òàêà òðÿáâà äà áúäå. Ñìåíèõ Sheets("Snimkite") ñ Sheets("Formuli")....... ( òè íÿìà êàê äà çíàåø â êîé Sheets ñå èçâúðøâà ïðîâåðêàòà) è ñå ïîëó÷è êàêâîòî èñêàõ äà ïîñòèãíà.
    Âàæíîòî å,÷å ìè ïîìîãíà è ðàçáðàõ êàê òðÿáâà äà èçãëåæäà êîäà. Òðÿáâà äà ãî äîáàâÿ êúì 17 ìàêðîñà ñ èçâåñòíà ðåäàêöèÿ íà ïðîâåðÿâàíèòå êëåòêè è çà ðåçóëòàòà ùå ïèøà.

    Áëàãîäàðÿ

    P.S. Ñåãà ìàêðîñà èçãëåæäà òàêà è ðàáîòè.

    Code:
    Sub BothTogether_1()
        CopyPict
    End Sub
    
    Sub CopyPict()
    If Sheets("Formuli").Range("B8").Value = 3 And Sheets("Formuli").Range("B14").Value = 1 And Sheets("Formuli").Range("B17").Value = 0 And Sheets("Formuli").Range("B31").Value < 1 Then
    Sheets("Snimkite").Select
    ActiveSheet.Shapes("Group 1").Select
    Selection.Copy
    Sheets("Ôîðìóëè çà èç÷èñëåíèå").Select
    Range("G2").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft -0.75
    Selection.ShapeRange.IncrementTop -8.25
    Range("D2:I46").Select
    End If
    End Sub


    Áëàãîäàðÿ òè çà îòäåëåíîòî âðåìå. Çà ìåí òåìàòà å çàòâîðåíà. Ìîæå äà ïîìîãíå è íà íÿêîé äðóã.
    Last edited by milenk; 27th September 2013 at 16:09.

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