በመጨረሻው የቫለንታይን ቀን ለምትወደው ሴት የአቦሸማኔ ፀጉር ካፖርት ከሰጠሽው እና ካለፈው ዓመት በፊት - አይፎን 7፣ እና ሌላ ምን ማሰብ እንዳለብህ እያሰቡ ከሆነ፣ አንድ አማራጭ ማቅረብ እችላለሁ፡-
ይህንን ለማድረግ 2 ደቂቃዎችን ይወስዳል.
ኤክሴልን ይክፈቱ ፣ ወደ ትሩ ይሂዱ አስገባ - ቅርጾች (አስገባ - ቅርጾች) እና ልብ ይምረጡ;
በሉህ ላይ እናስበዋለን ፣ በውስጡ ልብ የሚነካ ጽሑፍ አስገባን ፣ በትክክል እንቀርፃለን
ለበለጠ ተፈጥሯዊነት፣ በትሩ ላይ የ3-ል ተጽእኖ ያክሉ ቅርጸት - የቅርጽ ውጤቶች (ቅርጸት - የቅርጽ ውጤቶች):
እና የመጨረሻው ንክኪ - ለአኒሜሽን ማክሮ ያክሉ። ጠቅ ያድርጉ Alt + F11, በሚከፈተው Visual Basic አርታኢ መስኮት ውስጥ አዲስ ባዶ ሞጁል በምናሌው ውስጥ ያስገቡ አስገባ - ሞጁል እና የዚህን ማክሮ ጽሁፍ እዚያ ይቅዱ፡-
ንዑስ ልብ() ለ i = 1 እስከ 3000 ከActive Sheet ጋር።ቅርጾች.ክልል(ድርድር("Сердце 1")) .ሶስት .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 በመተግበሪያ ያበቃል። ቆይ (አሁን + TimeSerial (0, 0, 0.1)) ቀጣይ i መጨረሻ ንዑስ Visual Basic Editorን ዝጋ፣ ጠቅ አድርግ Alt + F8 እና የእኛን ማክሮ ያሂዱ. ቮይላ! የተወደዳችሁ - በደስታ ፣ እርስዎ - በመሳም ፣ በዓሉ የተሳካ ነበር። የምትወደው ሰው ካላደነቀው፣ ቢያንስ ከ3-ል ጋር ለመስራት የVBA ትዕዛዞችን ተማር 🙂