Mas ann air Latha Valentine mu dheireadh a thug thu còta bian cheetah do bhoireannach gaoil mu thràth, agus a ’bhliadhna roimhe - iPhone 7, agus gu bheil thu a’ faighneachd dè eile a bu chòir dhut smaoineachadh, is urrainn dhomh roghainn a thabhann:
Bheir e 2 mhionaid airson seo a dhèanamh.
Fosgail Excel, rachaibh chun taba Cuir a-steach - cumaidhean (Cuir a-steach - cumaidhean) agus tagh cridhe :
Bidh sinn ga tharraing air duilleag, cuir a-steach teacsa tarraingeach a-staigh, ga chruth gu h-iomchaidh:
Airson barrachd nàdarrachd, cuir buaidh 3D air an taba Cruth - Buaidhean Cruth (Cruth - Buaidhean Cumadh):
Agus an suathadh mu dheireadh - cuir macro airson beòthalachd. Cliog Alt + F11, ann an uinneag deasachaidh Visual Basic a dh'fhosglas, cuir a-steach modal falamh ùr tron chlàr-taice Cuir a-steach - modal agus dèan lethbhreac de theacsa a’ mhacro seo an sin:
Fo-chridhe() Airson i = 1 Gu 3000 Le ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Crìochnaich le Iarrtas.Fuirich (A-nis + TimeSerial (0, 0, 0.1)) An ath rud agus crìoch fo Dùin an Deasaiche Visual Basic, cliog Alt + F8 agus ruith ar macro. Voila! A ghràidh - ann an ecstasy, thusa - ann am pògan, bha na saor-làithean soirbheachail. Mura h-eil meas aig do ghràdh air, an uairsin co-dhiù ionnsaich na h-òrdughan VBA airson a bhith ag obair le 3D 🙂