2025 Pengarang: John Day | [email protected]. Terakhir diubah: 2025-01-13 06:57
Anda dapat dengan mudah menyelesaikan persamaan kuadrat dengan hanya membuka makro yang dijalankan oleh alat-makro. Saya adalah anggota baru dan sangat membutuhkan umpan balik apa pun yang dapat Anda berikan. Nikmati tidak menggunakan kertas apa pun untuk menyelesaikan persamaan ini!
Langkah 1: Menyiapkan Segalanya
buka excel setiap tahun tidak apa-apa (lebih disukai 03 itulah yang saya gunakan untuk membuat makro ini). Jika Anda menggunakan excel 07 itu akan berada di bawah tampilan dan akan ada kotak kecil yang mengatakan makro. Klik ikon dan pergi untuk merekam makro, sebuah jendela akan muncul, itu akan mengatur nama dan deskripsi makro. Setelah Anda melakukannya klik pada ikon makro lagi dan jendela lain akan muncul harus ada di jendela nama makro di sana (nama default adalah Macro1)
Langkah 2: Membuat Makro
Oke sekarang Anda pergi untuk mengedit pada jendela yang telah muncul itu harus di sisi kanan ketiga bawah. Ketika Anda menekan tombol edit, jendela baru akan muncul yang disebut editor visual basic. Seharusnya ada bilah alat dan semuanya seperti jendela apa pun, tetapi di jendela itu harus ada area abu-abu besar dengan jendela bernama Module1(Code). Di dalam Module1 klik saat Anda akan mengetiknya dan salin dan tempel ini di atasnya (pastikan Anda menghapus semuanya sebelum Anda melakukan ini pada kotak Module1.)Sub QuadraticFormula() Dim a Selama Dim b Selama Dim c Sebagai Prompt MsgBox Panjang:="ax2 + bx + c = 0", _ Title:="Memecahkan Polinomial Kuadrat dari Bentuk:" a = Application. InputBox(prompt:="Masukkan nilai koefisien 'a'", Ketik:=1) b = Application. InputBox(prompt:="Enter nilai koefisien 'b'", Ketik:=1) c = Application. InputBox(prompt:="Masukkan nilai koefisien 'c'", Ketik:=1) If a = 0 Kemudian MsgBox "Persamaan bukan kuadrat" 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)) Lain MsgBox "Tidak Ada Solusi Nyata - Imajiner" End If End IfEnd Sub
Langkah 3: Menyelesaikan
Ketika jendela itu memiliki semua yang saya katakan untuk Anda salin dan tempel, tutup Editor VIsual Basic. Terakhir, buka makro tampilan makro lalu jalankan di sisi kanan yang pertama. Seharusnya ada jendela yang muncul klik OK maka kotak lain akan muncul yang akan menjadi nilai A dalam persamaan kemudian yang lain yang akan menjadi nilai B dalam persamaan dan kemudian yang lain yang akan menjadi nilai C. Selesai jika Anda memiliki masalah tolong beritahu saya dan tolong tinggalkan saya semacam umpan balik.