Results 1 to 3 of 3
Thread: Ìàëêî ïîìîù çà ìàêðîñ íà Excel
Hybrid View
-
26th September 2013 20:10 #1Registered 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.
-
27th September 2013 08:43 #2Registered 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
-
27th September 2013 10:23 #3Registered 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.




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