በኤክሴል ላይ ባለ አራት ማዕዘን ቀመር ማክሮ - 3 ደረጃዎች

2024 ደራሲ ደራሲ: John Day | [email protected]. ለመጨረሻ ጊዜ የተሻሻለው: 2024-01-30 07:34

ወደ መሣሪያዎች-ማክሮ-ሩጫ ማክሮ በመሄድ በቀላሉ ባለአራትዮሽ እኩልታን በቀላሉ መፍታት ይችላሉ። እኔ አዲስ አባል ነኝ እና እርስዎ ሊሰጡት የሚችሉት ማንኛውንም ዓይነት ግብረመልስ እፈልጋለሁ። እነዚህን እኩልታዎች የሚፈታ ማንኛውንም ወረቀት ባለመጠቀም ይደሰቱ!

ደረጃ 1 - ነገሮችን ማቀናበር

ኤክሰልን በማንኛውም ዓመት መክፈት ደህና ነው (ተመራጭ 03 ይህንን ማክሮ ለመሥራት ያደረግሁት ነው)። ኤክሴል 07 ን እየተጠቀሙ ከሆነ በእይታ ስር ይሆናል እና ማክሮ የሚናገር ትንሽ ሳጥን ይኖራል። አዶውን ጠቅ ያድርጉ እና ማክሮን ለመቅረጽ ይሂዱ መስኮት ብቅ ይላል የማክሮውን ስም እና መግለጫዎች ያዋቅራል። ያንን ካደረጉ በኋላ እንደገና በማክሮ አዶው ላይ ጠቅ ያድርጉ እና ሌላ መስኮት ብቅ ይላል በመስኮቱ ውስጥ የማክሮ ስም እዚያ መሆን አለበት (ነባሪው ስም ማክሮ 1 ይሆናል)

ደረጃ 2 - ማክሮን መሥራት

እሺ አሁን በተነሳው መስኮት ላይ ለማርትዕ ትሄዳለህ በቀኝ በኩል በሦስተኛው ታች መሆን አለበት። የአርትዖት አዝራሩን ሲጫኑ ሙሉ አዲስ መስኮት የእይታ መሰረታዊ አርታኢ ተብሎ ይጠራል። የመሳሪያ አሞሌ እና እንደ ማንኛውም መስኮት ሁሉም ነገር መኖር አለበት ፣ ነገር ግን በመስኮቱ ውስጥ ሞዱል 1 (ኮድ) የሚባል መስኮት ያለው ትልቅ ግራጫ ቦታ መኖር አለበት። በእሱ ላይ ለመተየብ እና ይህንን በመገልበጥ እና በመለጠፍ በሞጁሉ 1 ጠቅታ ውስጥ (ይህንን በሞጁል 1 ሳጥኑ ላይ ከማድረግዎ በፊት ሁሉንም ነገር እንዲሰርዙ ያድርጉ።) እንደ ረጅም MsgBox ጥያቄ = = "መጥረቢያ^{2 + bx + c = 0 "፣ _} ርዕስ ፦ = "የቅጹ ባለአራት ዲሞክራቲክ መፍታት" a = Application. InputBox (ፈጣን ፦ = "የ 'a' Coefficient '' እሴት ያስገቡ ፣ ዓይነት = 1) ለ = ትግበራ። የ 'b' Coefficient 'እሴት ፣ ዓይነት: = 1) c = Application. InputBox (ጥያቄው = "የ' c 'Coefficient' እሴት ያስገቡ ፣ ዓይነት: = 1) ከሆነ a = 0 ከዚያ MsgBox" እኩልታው ኳድራክቲካዊ አይደለም”ሌላ ከሆነ ((ለ * ለ) - (4 * ሀ * ሐ)) = = 0 ከዚያ MsgBox ((-b + (Sqr ((b * b) - (4 * a * c))))) / (2 * ሀ)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) / (2 * ሀ)) ሌላ MsgBox “እውነተኛ መፍትሔ የለም - ምናባዊ” ካለ IfEnd ንዑስ ጨርስ

ደረጃ 3: ማጠናቀቅ

ያ መስኮት የ VIsual Basic አርታዒውን ገልብጠው እንዲለጥፉ የነገርኳችሁ ነገር ሁሉ ሲኖራት። በመጨረሻ ወደ ማክሮ-እይታ ማክሮዎች ይሂዱ እና የመጀመሪያውን በቀኝ በኩል ለማስኬድ ይሂዱ። ብቅ የሚል መስኮት መኖር አለበት እሺ የሚለውን ጠቅ ያድርጉ ከዚያ በቀመር ውስጥ የ A እሴት ከዚያም ሌላ በቀመር ውስጥ የ B እሴት ከዚያም ሌላ የ C. እሴት የሚሆነውን ሌላ ሳጥን ይመጣል። ችግር ካጋጠመዎት እባክዎን ይንገሩኝ እና እባክዎን አንድ ዓይነት ግብረመልስ ይተዉልኝ።