Makro Persamaan Kuadratik di Excel: 3 Langkah

2025 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2025-01-23 15:01

anda boleh menyelesaikan persamaan kuadratik dengan mudah dengan pergi ke makro yang dikendalikan oleh makro. Saya ahli baru dan sangat memerlukan apa-apa maklum balas yang boleh anda berikan. Jangan gunakan kertas penyelesaian persamaan ini!

Langkah 1: Menetapkan Perkara

buka excel setiap tahun tidak apa-apa (lebih disukai 03 itulah yang saya gunakan untuk membuat makro ini). Sekiranya anda menggunakan excel 07, ia akan dilihat dan akan ada kotak kecil yang bertuliskan makro. Klik ikon dan pergi untuk merakam makro tetingkap akan muncul ia akan mengatur nama dan keterangan makro. Setelah anda melakukannya, klik pada ikon makro sekali lagi dan tetingkap lain akan muncul semestinya di tetingkap itu nama makro di sana (nama lalai adalah Makro1)

Langkah 2: Membuat Makro

Baiklah sekarang anda pergi mengedit pada tetingkap yang muncul semestinya di sebelah kanan ketiga ke bawah. Apabila anda menekan butang edit, tetingkap baru akan muncul yang disebut editor asas visual. Harus ada bar alat dan semuanya seperti tetingkap mana pun, tetapi di tingkap harus ada kawasan kelabu besar dengan tetingkap yang disebut Module1 (Code). Di dalam Module1 klik semasa anda akan mengetik padanya dan salin dan tampal di atasnya (buatlah tuntutan anda memadamkan semuanya sebelum anda melakukan ini pada kotak Module1.) Sub QuadraticFormula () Dim a Long Dim b b As Long Dim c Sebagai permintaan Long MsgBox: = "ax^{2 + bx + c = 0 ", _} Tajuk: = "Menyelesaikan Polinomial Kuadrat Bentuk:" a = Application. InputBox (prompt: = "Masukkan nilai pekali 'a', Jenis: = 1) b = Application. InputBox (prompt: =" Enter nilai pekali 'b', Jenis: = 1) c = Application. InputBox (prompt: = "Masukkan nilai pekali 'c'", Jenis: = 1) Jika a = 0 Kemudian MsgBox "Persamaan tidak kuadratik "Lain Jika ((b * b) - (4 * a * c))> = 0 Kemudian MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Els MsgBox "Tiada Penyelesaian Sebenar - Khayalan" Tamat Jika Tamat Sub IfEnd

Langkah 3: Selesaikan

Apabila tetingkap itu mempunyai semua yang saya katakan kepada anda untuk menyalin dan menampal menutup Editor Dasar VIsual. Akhirnya pergi ke makro pandangan makro kemudian jalankan di sebelah kanan yang pertama. Harus ada tetingkap yang muncul klik OK maka kotak lain akan muncul yang akan menjadi nilai A dalam persamaan kemudian satu lagi yang akan menjadi nilai B dalam persamaan dan kemudian satu lagi yang akan menjadi nilai C. Anda selesai jika anda mempunyai masalah sila beritahu saya dan tinggalkan saya sedikit maklum balas.