Ti o ba jẹ ni Ọjọ Falentaini ti o kẹhin ti o ti fun obinrin olufẹ rẹ ni ẹwu irun cheetah kan, ati ọdun ti o kẹhin - iPhone 7, ati pe o n iyalẹnu kini ohun miiran lati ronu, lẹhinna Mo le funni ni aṣayan kan:
Yoo gba to iṣẹju 2 lati ṣe eyi.
Ṣii Excel, lọ si taabu Fi sii - Awọn apẹrẹ (Fi sii - Awọn apẹrẹ) ki o si yan ọkàn:
A fa si ori iwe kan, tẹ ọrọ ti o kan si inu, ṣe ọna kika rẹ ni deede:
Fun adayeba nla, ṣafikun ipa 3D kan lori taabu naa Ọna kika - Awọn ipa Apẹrẹ (Kika - Awọn ipa Apẹrẹ):
Ati ifọwọkan ipari - ṣafikun Makiro fun ere idaraya. Tẹ F11 giga +, ninu window olootu Ipilẹ Visual ti o ṣii, fi module tuntun ti o ṣofo sii nipasẹ akojọ aṣayan Fi sii - Module ati daakọ ọrọ ti Makiro yii nibẹ:
Sub Heart () Fun i = 1 Si 3000 Pẹlu ActiveSheet.Shapes.Range(Array("Сердце 1")) .ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Pari Pẹlu Ohun elo. Duro (Bayi + TimeSerial (0, 0, 0.1)) Next i Ipari Sub Pa Visual Basic Editor, tẹ F8 giga + ati ṣiṣe awọn Makiro wa. Voila! Olufẹ - ni idunnu, iwọ - ni awọn ifẹnukonu, isinmi jẹ aṣeyọri. Ti olufẹ rẹ ko ba ni riri rẹ, lẹhinna o kere kọ ẹkọ awọn aṣẹ VBA fun ṣiṣẹ pẹlu 3D 🙂