Let’s do a Goal Seek now – set F6 t

Let’s do a Goal Seek now – set F6 to 0 by changing D6. If you record this into a macro, say Macro1, you can quickly repeat it by using an assigned shortcut key stroke, or hook it up with a command button for an easy UI. A lot of people do exactly this as an enhancement to the otherwise awkward model, but it’s not good enough. Let’s automate it.

Press Ctrl+F11 to bring up the Visual Basic Editor to see the embedding code to Macro1, and you’ll see this line of code:

Range(“F6″).GoalSeek Goal:=0, ChangingCell:=Range(“D6″)

Fair enough. It’s almost in plain English, and shouldn’t take an VBA expert to understand. The next step is to copy and paste this line out of Macro1, to somewhere more automatically executable.

Browse to “Sheet1” under “Microsoft Excel Objects“. Either type or use the drop-down box to create the following VBA event:

Private Sub Worksheet_Calculate()

End Sub

This subroutine will be called every time the “calculate” event is triggered on this worksheet. Depending on whether you set the calculation to Automatic or Manual in Tools->Options, this happens when any formula-based cell changes value to a new input value. The idea is to paste the Goal Seek code here so it will be called whenever F6 may change; however, let’s keep it in a separate function for the sake of good programming practice:

Private Sub Worksheet_Calculate()
CheckGoalSeek
End Sub

Private Sub CheckGoalSeek()
Range(“F6″).GoalSeek Goal:=0, ChangingCell:=Range(“D6″)
End Sub

In the Visual Basic editor, it should look like this:

Kết quả (Việt) 1:

Chúng ta hãy làm một tìm kiếm mục tiêu bây giờ-đặt F6 0 bằng cách thay đổi tuyến đường D6. Nếu bạn ghi lại điều này vào một vĩ mô, nói Macro1, bạn có thể nhanh chóng lặp lại nó bằng cách sử dụng một nét chính được gán các phím tắt, hoặc treo nó lên với một nút lệnh cho một giao diện người dùng dễ dàng. Rất nhiều người dân làm chính xác điều này như là một nâng cao để các mô hình khác khó khăn, nhưng nó là không đủ tốt. Hãy tự động hoá nó.Bấm Ctrl + F11 để mang lại cho ra các Visual Basic Editor để xem mã nhúng để Macro1, và bạn sẽ thấy dòng này của mã:Range("F6″). Mục tiêu GoalSeek: = 0, ChangingCell:=Range("D6″)Hội chợ đủ. Nó là hầu như ở đồng bằng tiếng Anh, và không nên dùng một VBA chuyên gia để hiểu. Bước tiếp theo là để sao chép và dán dòng này ra khỏi Macro1, đến một nơi nào đó hơn tự động thực thi.Duyệt đến "Sheet1" dưới "Microsoft Excel đối tượng". Nhập hoặc sử dụng hộp thả xuống để tạo sự kiện VBA sau đây: Riêng phụ Worksheet_Calculate() Cuối tiểuChương trình con này sẽ được gọi là mỗi khi sự kiện này "tính toán" được kích hoạt trên bảng này. Tùy thuộc vào việc bạn thiết lập tính toán để tự động hoặc hướng dẫn sử dụng trong các công cụ -> lựa chọn, điều này xảy ra khi bất kỳ tế bào dựa trên công thức thay đổi giá trị thành một giá trị đầu vào mới. Mục đích là để dán mã mục tiêu tìm kiếm ở đây, do đó, nó sẽ được gọi là bất cứ khi nào F6 có thể thay đổi; Tuy nhiên, hãy giữ nó trong một chức năng riêng biệt vì lợi ích của thực hành lập trình tốt:Riêng phụ Worksheet_Calculate() CheckGoalSeekCuối tiểuRiêng phụ CheckGoalSeek() Range("F6″). Mục tiêu GoalSeek: = 0, ChangingCell:=Range("D6″)Cuối tiểuTrong Visual Basic editor, nó sẽ giống như thế này:

Kết quả (Việt) 2:

Hãy làm một Goal Seek nghiệp - thiết F6 0 bằng cách thay đổi D6. Nếu bạn ghi lại này thành một vĩ mô, nói Macro1, bạn có thể nhanh chóng lặp lại nó bằng cách sử dụng một đột quỵ phím tắt được giao, hoặc móc nó lên với một nút lệnh cho một giao diện người dùng dễ dàng. Rất nhiều người làm chính xác điều này như một bản nâng cao của mô hình khác lạ nhưng nó không đủ tốt. Hãy tự động hoá nó. Nhấn Ctrl + F11 để mở Visual Basic Editor để xem mã nhúng để Macro1, và bạn sẽ thấy dòng mã này: . Range ("F6") GoalSeek Goal: = 0, ChangingCell: = Phạm vi ("D6") Hội chợ đủ. Nó gần như bằng tiếng Anh, và không nên dùng một chuyên gia VBA hiểu. Bước tiếp theo là copy và paste dòng này ra khỏi Macro1, đến một nơi nào đó tự động thực thi hơn. Duyệt đến "Sheet1" dưới "Microsoft Excel Objects". Một trong hai loại hoặc sử dụng hộp thả xuống để tạo ra các sự kiện VBA sau: Private Sub Worksheet_Calculate () End Sub chương trình con này sẽ được gọi mỗi khi "tính toán" sự kiện được kích hoạt trên bảng tính này. Tùy thuộc vào việc bạn thiết lập các tính toán để tự động hoặc bằng tay trong Tools-> Options, điều này xảy ra khi bất kỳ tế bào dựa trên công thức thay đổi giá trị cho một giá trị đầu vào mới. Ý tưởng là để dán mã Goal Seek ở đây vì vậy nó sẽ được gọi là bất cứ khi nào F6 có thể thay đổi; Tuy nhiên, hãy giữ nó trong một chức năng riêng biệt, vì lợi ích của thực hành lập trình tốt: Private Sub Worksheet_Calculate () CheckGoalSeek End Sub Private Sub CheckGoalSeek () . Range ("F6") GoalSeek Goal: = 0, ChangingCell: = Range ("D6 ") End Sub Trong soạn thảo Visual Basic, nó sẽ giống như thế này: