Mục lục:

Macro phương trình bậc hai trên Excel: 3 bước
Macro phương trình bậc hai trên Excel: 3 bước

Video: Macro phương trình bậc hai trên Excel: 3 bước

Video: Macro phương trình bậc hai trên Excel: 3 bước
Video: Lập trình VBA Excel căn bản| Cách sử dụng Macro trong Excel 2024, Tháng sáu
Anonim
Macro phương trình bậc hai trên Excel
Macro phương trình bậc hai trên Excel

bạn có thể dễ dàng giải một phương trình bậc hai chỉ bằng cách truy cập vào các công cụ-macro-run macro. Tôi là một thành viên mới và thực sự cần bất kỳ loại phản hồi nào bạn có thể đưa ra.

Bước 1: Thiết lập mọi thứ

Thiết lập mọi thứ
Thiết lập mọi thứ

mở excel năm nào cũng được (ưu tiên 03 cái mà mình dùng để làm macro này). Nếu bạn đang sử dụng excel 07, nó sẽ được hiển thị và sẽ có một hộp nhỏ cho biết macro. Nhấp vào biểu tượng và đi đến ghi macro, một cửa sổ sẽ xuất hiện, nó sẽ thiết lập tên và mô tả của macro. Sau khi bạn làm điều đó, hãy nhấp vào biểu tượng macro một lần nữa và một cửa sổ khác sẽ xuất hiện, trong cửa sổ đó sẽ có tên của macro ở đó (tên mặc định sẽ là Macro1)

Bước 2: Tạo Macro

Tạo Macro
Tạo Macro

Được rồi, bây giờ bạn vào chỉnh sửa trên cửa sổ đã xuất hiện, nó sẽ nằm ở phía bên tay phải thứ ba trở xuống. Khi bạn nhấn nút chỉnh sửa, một cửa sổ hoàn toàn mới sẽ xuất hiện được gọi là trình chỉnh sửa cơ bản trực quan. Cần có một thanh công cụ và mọi thứ giống như bất kỳ cửa sổ nào, nhưng trong cửa sổ phải có một vùng màu xám lớn với một cửa sổ được gọi là Module1 (Mã). Bên trong Module1, hãy nhấp vào khi bạn định nhập vào nó và sao chép và dán nó lên đó (hãy kiện bạn xóa mọi thứ trước khi thực hiện việc này trên hộp Module1.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c As Long MsgBox prompt: = "ax2 + bx + c = 0 ", _ Title: = "Giải đa thức bậc hai có dạng:" a = Application. InputBox (prompt: = "Nhập giá trị của hệ số 'a'", Nhập: = 1) b = Application. InputBox (nhắc: = "Enter giá trị của hệ số 'b' ", Loại: = 1) c = Application. InputBox (dấu nhắc: =" Nhập giá trị của hệ số 'c' ", Loại: = 1) Nếu a = 0 Thì MsgBox" Phương trình không phải là bậc hai "Khác Nếu ((b * b) - (4 * a * c))> = 0 Thì MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Khác MsgBox "Không có giải pháp thực - tưởng tượng" Kết thúc nếu Kết thúc IfEnd Sub

Bước 3: Hoàn thiện

Kết thúc
Kết thúc

Khi cửa sổ đó có mọi thứ, tôi đã yêu cầu bạn sao chép và dán, hãy đóng VIsual Basic Editor. Cuối cùng, chuyển đến macro-view macro, sau đó chạy ở phía bên phải cái đầu tiên. Sẽ có một cửa sổ bật lên nhấp vào OK sau đó một hộp khác sẽ xuất hiện sẽ là giá trị của A trong phương trình, sau đó một hộp khác sẽ là giá trị của B trong phương trình và sau đó là một hộp khác sẽ là giá trị của C. Bạn đã hoàn thành. nếu bạn có một vấn đề xin vui lòng cho tôi biết và xin vui lòng để lại cho tôi một số loại phản hồi.

Đề xuất: