VBA एक्सेल: नमुना कार्यक्रम. एक्सेल मध्ये मॅक्रो

y = X1 + X1 ^ 2 + 3 * X1 ^ 3 - कोस (X1)

पेशी (मी, 1) (समन्वय (मी स्मृती लिहिले X1 मूल्य, 1)) .Value = X1

पेशी (मी, 2) .Value = y (y मूल्य सेल मध्ये समन्वय (सह लिहिले आहे मी, 2))

मी = मी 1 (वैध संख्या) +;

X1 = X1 + संभोग (युक्तिवाद पाऊल आकार बदलली आहे);

वळण

समाप्त उप.

y करण्यासाठी - हे धाव मॅक्रो परिणाम म्हणून "एक्सेल" दोन स्तंभ, x साठी मूल्ये रेकॉर्ड असलेल्या पहिल्या आणि दुसऱ्या प्राप्त.

मग "एक्सेल" साठी, त्यांना तयार करण्यासाठी मानक सक्षम शेड्यूल.

उदाहरणार्थ 3

, तसेच VBA एक्सेल 2010 मध्ये सायकल अंमलबजावणी करण्यासाठी, इतर आवृत्ती रचना वापरले तर आधीच कमी दो सोबत.

एक स्तंभ निर्माण की एक कार्यक्रम विचार करा. प्रत्येक सेल ती रेखा परस्पर क्रमांक चौरस रेकॉर्ड केले जाईल. रचना वापर एक काउंटर वापर न करता, अतिशय थोडक्यात तो रेकॉर्ड करण्याची परवानगी देईल.

प्रथम तो मॅक्रो तयार करण्यासाठी वर वर्णन आवश्यक आहे. पुढे, कोड स्वतः लिहा. आम्ही 10 पेशी मूल्ये रस आहे, असे मत. खालीलप्रमाणे कोड आहे.

मी 10 पुढील 1 = साठी

आज्ञा, "मानवी" भाषा हस्तांतरित आहे "एक वाढ 1 पासून पुनरावृत्ती 10."

कार्य चौरस स्तंभ प्राप्त करण्यासाठी, उदाहरणार्थ, 1 आणि 11 दरम्यान सर्व विषम संख्या, आम्ही लिहा:

मी = 1 10 1 चरण पुढील आहे.

येथे, चरण - चरण. या प्रकरणात, तो दोन समान आहे. पूर्वनिर्धारीतपणे, लूप शब्द नसेल तर एकच पाऊल याचा अर्थ असा की.

परिणाम सेल नंबर (मी, 1) मध्ये संग्रहित करणे आवश्यक आहे. मी आपोआप वाढतात आणि ओळ क्रमांक होईल चरण मग प्रत्येक वेळी आपण मूल्य वाढ सायकल सुरू. त्यामुळे कोड ऑप्टिमायझेशन होईल.

साधारणतया, कोड दिसेल:

उप कार्यक्रम ()

मी = 1 10 पाऊल 1 (फक्त मी लिहीले जाऊ शकते = 1 10)

पेशी (मी, 1) .Value = मी ^ 2 (म्हणजे चौरस मूल्य सेल मध्ये लिहिले आहे (मी, 1) मी)

पुढील (एका अर्थाने काउंटर अर्थ आणि आणखी एक सायकल प्रारंभ भूमिका)

समाप्त उप.

योग्यरित्या पूर्ण तर रेकॉर्डिंग आणि चालू मॅक्रो (पहा. वरील सूचना) समावेश, नंतर तो प्रत्येक वेळी दिलेल्या आकाराच्या (10 पेशी होणारी या प्रकरणात) स्तंभ प्राप्त केले जाईल असे म्हटले जाते.

उदाहरणार्थ 4

दैनंदिन जीवनात, खूप वेळा काही परिस्थिती अवलंबून हे किंवा ते निर्णय घेणे आवश्यक आहे. VBA एक्सेल मध्ये त्यांना न करू शकत नाही. अल्गोरिदम पुढील अर्थातच ऐवजी निवडले आहे जेथे कार्यक्रम उदाहरणे प्रारंभी, पूर्वनिश्चित तर सर्वात सामान्यतः वापरले डिझाइन ... मग (कठीण परिस्थितीत साठी) तर ... मग ... शेवट तर.

विशिष्ट उदाहरण घ्या. समजा तुम्ही संबंधित सेल (1,1) नोंद करण्यात आली आहे "एक्सेल" एक मॅक्रो तयार करू इच्छित:

1 वितर्क सकारात्मक आहे;

0 युक्तिवाद शून्य आहे;

1, युक्तिवाद नकारात्मक असेल तर.

"एक्सेल" अशा मॅक्रो निर्माण "गरम" कळा Alt आणि F11 चा वापर करुन, एक मानक मार्ग सुरू होते. पुढील खालील कोड लिहिले:

उप कार्यक्रम ()

x = सेल्स (1, 1) .Value (हा आदेश सेल सामग्री नाम समन्वय मूल्य (1 वाटप करते, 1))

नाम> 0 नंतर पेशी (1, 1) .Value = 1 तर

x = 0 नंतर पेशी (1, 1) .Value = 0 असेल तर

तर नाम <0 नंतर पेशी (1, 1) .Value = -1

समाप्त उप.

तो वाद एक मॅक्रो इच्छित मूल्य चालवा आणि "एक्सेल" मिळविण्यासाठी राहते.

VBA कार्ये

आपण लक्षात असावे म्हणून, सर्वात प्रसिद्ध कार्यक्रम मायक्रोसॉफ्ट स्प्रेडशीट अनुप्रयोग मध्ये खूप अवघड नाही आहे. विशेषतः तर आपण VBA कार्ये कसे वापरावे ते जाणून घ्या. एकूण, या प्रोग्रामिंग भाषा "एक्सेल" आणि शब्द, सुमारे 160 कार्ये अनुप्रयोग लिहिण्यासाठी विशेषतः निर्माण केला. ते अनेक मोठ्या गट विभागले जाऊ शकते. ते आहेत:

• गणित कार्ये. , कोसाइन मूल्य युक्तिवाद त्यांना अर्ज नैसर्गिक लॉगॅरिथम, आणि त्यामुळे संपूर्ण भाग प्राप्त आहे.
• आर्थिक कार्ये. मुळे Excel मध्ये उपलब्धता आणि वापर प्रोग्रामिंग, आपण लेखा व आर्थिक तोडगे प्रभावी साधने मिळवू शकता.
• अरे प्रक्रिया कार्ये. या अॅरे IsArray समावेश आहे; LBound; UBound.
• VBA एक्सेल ओळ कार्य. हे एक बऱ्यापैकी मोठ्या गट आहे. हे उदाहरणार्थ, ANSI कोड पूर्णांक वितर्क किंवा ASC बदल्या प्रतीक समान अंतर संख्या एक स्ट्रिंग तयार करण्यासाठी जागा कार्य, यांचा समावेश आहे. त्यांना सर्व मोठ्या प्रमाणावर वापरले आहेत आणि आपण टेबल्स काम खूपच सोपे अनुप्रयोग तयार करण्यासाठी "एक्सेल" मधील स्ट्रिंग कार्य करण्यास परवानगी देते.
• डेटा प्रकार रूपांतरण कार्ये. उदाहरणार्थ, CVar चल डेटा प्रकार रुपांतरीत अभिव्यक्ती वितर्क मिळवते.
• तारीख कार्ये. ते मोठ्या मानाने "एक्सेल" मानक वैशिष्ट्ये विस्तृत. त्यामुळे, WeekdayName फंक्शन नाव त्याच्या संख्या आठवड्यात दिवस (पूर्ण किंवा आंशिक) परत. अधिक उपयुक्त टाइमर आहे. तो दिवस एक विशिष्ट क्षण करण्यासाठी मध्यरात्रीपासून कालावधी पश्चात आहेत सेकंदात देते.
• विविध संख्या प्रणाली मध्ये एक संख्यात्मक वाद रूपांतरित कार्य. उदाहरणार्थ, ऑक्टोबर संख्या अष्टक प्रतिनिधीत्व दर्शवितात.
• स्वरूपण कार्ये. या सर्वात महत्वाचे स्वरूप आहे. हे स्वरूप वर्णन दिले सूचना त्यानुसार स्वरूपित एक अभिव्यक्ती एक चल परत.
• आणि त्यामुळे पुढे.

या कार्ये आणि त्यांचा अर्ज गुणधर्म अभ्यास लक्षणीय "एक्सेल" हा स्कोप विस्तृत होईल.

उदाहरण 5

अधिक जटिल समस्या सोडवण्यासाठी प्रयत्न करू. उदाहरणार्थ:

दान कागद दस्तऐवज उपक्रम अहवाल खर्च प्रत्यक्ष पातळी. आवश्यक आहे:

• करून स्प्रेडशीट "एक्सेल" त्याच्या नमुना भाग विकसित;
• एक VBA कार्यक्रम कच्चा डेटा आवश्यक गणिते बाहेर घेऊन आणि संबंधित सेल साचा भरण्यासाठी, तो भरण्यासाठी विचारू करा.

खालील उपाय एक विचार करा.

एक टेम्पलेट तयार करीत आहे

सर्व क्रिया Excel मध्ये एक मानक पत्रक सादर आहेत. मोफत पेशी वर डेटा प्रविष्ट करण्यासाठी राखीव महिन्यात, वर्ष, शीर्षक-ग्राहक कंपन्या, खर्चाची रक्कम, उलाढाल स्तर. आदर जे अहवाल रेकॉर्ड केलेला नाही कंपन्या (कंपनी), संख्या, पेशी मूल्ये आणि व्यावसायिक नाव आधारावर आगाऊ राखीव नाही आहे करा. वर्कशीट एक नवीन नाव नियुक्त केले. उदाहरणार्थ, "Օ अहवाल".

चल

कार्यक्रम साचा भरा लिहिण्यासाठी, नोटेशन निवडा. ते चल साठी वापरला जाईल:

• टेबल वर्तमान पंक्तीच्या NN- संख्या;
• TP आणि TF - नियोजन आणि प्रत्यक्ष उलाढाल;
• एस एफ आणि एसपी - एकूण प्रत्यक्ष आणि शिस्तबद्ध खर्च;
• IP आणि जर - नियोजन आणि प्रत्यक्ष खर्च पातळी.

आम्ही पत्राद्वारे सुचवणे, पण एक "उपसर्ग» की स्तंभ Itog जमा एकूण. उदाहरणार्थ, ItogTP - स्तंभ संबंधित म्हणून, हक्क "नियोजित उलाढाल."

VBA प्रोग्रामिंग वापरून समस्या उपाय

या नोटेशन वापरणे, आम्ही फरक साठी सूत्र प्राप्त. (एफ - P) तुम्हाला% गणना अमलात आणणे इच्छित असल्यास आम्ही / पी * 100, आणि रक्कम - (एफ - P).

या गणिते परिणाम उत्कृष्ट फक्त योग्य सेल मध्ये "एक्सेल" स्प्रेडशीट बनवू होऊ शकते.

सूत्राद्वारे ItogP = ItogP + P आणि ItogF = ItogF + एफ प्राप्त खरं परिणाम आणि रोगनिदान साठी

बदल वापरा = (ItogF - ItogP) / ItogP * 100 गणना टक्केवारी म्हणून चालते तर, आणि एकूण मूल्य तर - (ItogF - ItogP).

परत एकदा योग्य पेशी नोंद, त्यामुळे चल त्यांना लागू करण्याची आवश्यकता नाही आहे.

एक कार्यक्रम तयार सुरू करण्यापूर्वी आपण, कार्यपुस्तिका जतन करण्यासाठी उदाहरणार्थ नाव "Otchet1.xls" अंतर्गत इच्छा आहे.

प्रेस "एक अहवाल टेबल तयार करा," आपण हेडर माहिती दिल्यानंतर फक्त 1 वेळ दाबा करणे आवश्यक आहे. तुम्हाला माहीत आहे आणि इतर नियम आवश्यक आहे. विशिष्ट बटणावर 'एक रेषा जोडा "प्रत्येक क्रियाकलाप मूल्ये टेबल मध्ये दाखल केल्यानंतर प्रत्येक वेळी दाबली करणे आवश्यक आहे. बटण "समाप्त" दाबा, आणि नंतर विंडो मध्ये "एक्सेल" स्विच आवश्यक सर्व डेटा प्रविष्ट केल्यानंतर.

आता आपण कसे मॅक्रो सह एक्सेल समस्येचे निराकरण करण्यासाठी माहीत आहे की,. VBA वापरण्याची क्षमता (नमुना कार्यक्रम पाहा. वरील) एक्सेल आणि आपण सर्वाधिक लोकप्रिय पर्यावरण क्षण, टेक्स्ट एडिटर येथे काम करणे आवश्यक असू शकते "शब्द." विशेषतः, या लेखाच्या सुरुवातीला मध्ये दाखवल्याप्रमाणे, रेकॉर्ड, किंवा कोड लिहून मेनू बटण मजकूर ऑपरेशन अनेक कर्तव्य किंवा "पहा" चिन्ह आणि "मॅक्रो" टॅब माध्यमातून कळा दाबून केले जाऊ शकते माध्यमातून तयार करण्यासाठी आहे.