კვადრატული განტოლების მაკრო Excel- ზე: 3 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:21

თქვენ მარტივად შეგიძლიათ გადაჭრათ კვადრატული განტოლება მხოლოდ ინსტრუმენტებზე-მაკრო გაშვების მაკროზე. მე ახალი წევრი ვარ და ნამდვილად მჭირდება რაიმე სახის გამოხმაურება, რომელიც შეგიძლიათ მოგცეთ. ისიამოვნეთ ამ განტოლების ამოხსნით ნებისმიერი ქაღალდის გამოყენებით!

ნაბიჯი 1: ნივთების მოწესრიგება

Excel– ის გახსნა ყოველწლიურად კარგია (სასურველია ეს არის ის, რასაც მე ვიყენებდი ამ მაკროში). თუ თქვენ იყენებთ Excel 07 -ს, ის ხილული იქნება და იქნება პატარა ყუთი, სადაც ნათქვამია მაკრო. დააწკაპუნეთ ხატულაზე და გადადით მაკროზე ჩასაწერად, გამოჩნდება ფანჯარა, სადაც მითითებული იქნება მაკროს სახელი და აღწერილობა. ამის გაკეთების შემდეგ კვლავ დააწკაპუნეთ მაკრო ხატულაზე და გამოჩნდება სხვა ფანჯარა, სადაც ფანჯარაში უნდა იყოს მაკროს სახელი (ნაგულისხმევი სახელი იქნება მაკრო 1)

ნაბიჯი 2: მაკრო

კარგი ახლა თქვენ წადით ფანჯარაში, რომელიც გამოჩნდა, რომელიც უნდა გამოჩნდეს, ის უნდა იყოს მარჯვნივ, მესამე ქვევით. როდესაც თქვენ დააჭირეთ ღილაკს რედაქტირება, გამოჩნდება ახალი ფანჯარა, რომელსაც ეწოდება ვიზუალური ძირითადი რედაქტორი. უნდა არსებობდეს ინსტრუმენტთა პანელი და ყველაფერი, როგორც ნებისმიერი ფანჯარა, მაგრამ ფანჯარაში უნდა იყოს დიდი ნაცრისფერი არე ფანჯარა სახელწოდებით Module1 (კოდი). შიგნით Module1 დააწკაპუნეთ, როგორც აპირებდით მის აკრეფას და დააკოპირეთ და ჩასვით ეს (უჩივლეთ თქვენ წაშალეთ ყველაფერი სანამ ამას გააკეთებთ Module1 ყუთში.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c დიდხანს MsgBox მოთხოვნა: = "ax^{2 + bx + c = 0 ", _} სათაური: = "ფორმის კვადრატული მრავალწევრის ამოხსნა:" a = Application. InputBox (მოთხოვნა: = "შეიყვანეთ" a "კოეფიციენტის მნიშვნელობა", ტიპი: = 1) b = Application. InputBox (მოთხოვნა: = "შეიყვანეთ "ბ" კოეფიციენტის მნიშვნელობა ", ტიპი: = 1) c = Application. InputBox (მოთხოვნა: =" შეიყვანეთ "c" კოეფიციენტის მნიშვნელობა ", ტიპი: = 1) თუ a = 0 მაშინ MsgBox" განტოლება არ არის კვადრატული "სხვა თუ ((b * b) - (4 * a * c))> = 0 მაშინ MsgBox ((-b + (Sqr ((b * b) - (4 * a * c))))) / (2 * ა)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) ((2 * a)) სხვა MsgBox "რეალური გადაწყვეტა არ არის - წარმოსახვითი" დასრულდება თუ დაასრულეთ IfEnd Sub

ნაბიჯი 3: დასრულება

როდესაც ამ ფანჯარას აქვს ყველაფერი, მე გითხარით დააკოპირეთ და ჩასვით დახურეთ VIsual Basic Editor. დაბოლოს, გადადით მაკრო-ხედის მაკროებზე, შემდეგ გადადით მარჯვენა მხარეს პირველი. უნდა არსებობდეს ფანჯარა, რომელიც იხსნება დააწკაპუნეთ OK შემდეგ გამოჩნდება სხვა ყუთი, რომელიც იქნება A მნიშვნელობის განტოლებაში, მეორე იქნება B მნიშვნელობა ტოლობაში და შემდეგ მეორე იქნება C. ღირებულება თუ თქვენ გაქვთ პრობლემა გთხოვთ მითხრათ და გთხოვთ დამიტოვოთ რაიმე სახის გამოხმაურება.