Mündəricat:

Excel -də Kvadrat Tənlik Makrosu: 3 addım
Excel -də Kvadrat Tənlik Makrosu: 3 addım

Video: Excel -də Kvadrat Tənlik Makrosu: 3 addım

Video: Excel -də Kvadrat Tənlik Makrosu: 3 addım
Video: How to Graph Quadratic Equation in Excel? 💥 🔥☀️#shorts 2024, Iyun
Anonim
Excel -də Kvadrat Tənlik Makrosu
Excel -də Kvadrat Tənlik Makrosu

yalnız alətlər-makroda işləyən makroya gedərək bir kvadratik tənliyi asanlıqla həll edə bilərsiniz. Mən yeni üzvəm və verə biləcəyiniz hər cür rəyə ehtiyacım var. Bu tənlikləri həll edən heç bir kağızdan istifadə etmədən zövq alın!

Addım 1: İşlərin qurulması

İşlərin Ayarlanması
İşlərin Ayarlanması

excel açmaq hər il tamamdır (bu makronu hazırlamaq üçün istifadə etdiyim 03 budur). Excel 07 -dən istifadə edirsinizsə, görünəcək və makro yazan kiçik bir qutu olacaq. İşarəni vurun və makro yazmağa gedin, makronun adını və təsvirini quracaq bir pəncərə görünəcək. Bunu etdikdən sonra yenidən makro simgesini vurun və başqa bir pəncərə görünəcək, orada makronun adı olmalıdır (standart ad Macro1 olacaq)

Addım 2: Makronun hazırlanması

Makronun hazırlanması
Makronun hazırlanması

Tamam, indi sağ tərəfdə, aşağıya doğru üçüncü tərəfdə olmalı olan pəncərəni düzəltməyə gedin. Redaktə düyməsini basdığınız zaman vizual əsas redaktor adlanan yeni bir pəncərə görünəcək. Bir alət çubuğu və hər hansı bir pəncərə kimi hər şey olmalıdır, ancaq pəncərədə Module1 (Kod) adlı bir pəncərəsi olan böyük boz bir sahə olmalıdır. Yazmaq istədiyiniz zaman Module1 -in içərisinə vurun və üzərinə kopyalayın və yapışdırın (Module1 qutusunda bunu etməzdən əvvəl hər şeyi silməyinizi iddia edin.) Sub QuadraticFormula () Dim a As Long Dim b Uzun Uzun c Uzun MsgBox istədiyi kimi: = "ax2 + bx + c = 0 ", _ Başlıq: = "Formanın Kvadrat Polinomunu Çözmək:" a = Application. InputBox (istək: = "'a' əmsalının dəyərini daxil edin, Yazın: = 1) b = Application. InputBox (istək: =" Daxil edin) 'b' əmsalının 'dəyəri, Növ: = 1) c = Application. InputBox (sorğu: = "' c 'əmsalının dəyərini daxil edin", Yazın: = 1) a = 0 Sonra MsgBox "tənliyi kvadratik deyil "Əks halda ((b * b) - (4 * a * c))> = 0 Sonra MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) ((2 * a)) Başqa MsgBox "Həqiqi Həlli yoxdur - Xəyali" Bitərsə IfEnd Sub alt

Addım 3: Bitirmə

Bitirmə
Bitirmə

O pəncərədə kopyalayıb yapışdırmağınız lazım olan hər şey olanda VIsual Basic Redaktorunu bağlayın. Nəhayət, makro görünüşlü makrolara gedin, sonra sağ tərəfdə birincisinə keçin. Açılan bir pəncərə olmalıdır, OK düyməsini basın, sonra tənlikdə A, sonra tənlikdə B, sonra C hərfi olacaq başqa bir qutu görünəcək. Bir probleminiz varsa mənə deyin və mənə bir növ rəy yazın.

Tövsiyə: