Cara menggunakan Goal Seek dalam Visual Basic

Untungnya, Goal Seek sepenuhnya terintegrasi ke dalam VBA, jadi menulis makro untuk menggunakannya itu mudah.

Langkah 1

Buka dokumen Excel di mana Anda ingin menjalankan makro Goal Seek Anda.

Langkah 2

Temukan dua sel di mana Anda ingin menggunakan Goal Seek. Yang pertama harus sel di mana Anda memiliki tujuan tetap. Yang kedua harus di mana Anda mengizinkan Excel untuk berubah untuk memenuhi tujuan. Nilai sel pertama harus berupa rumus berdasarkan rumus kedua (jika tidak, perubahan yang dibuat oleh Excel di sel kedua tidak menjadi masalah, karena perubahan tersebut tidak akan muncul pada yang pertama).

Langkah 3

Buka jendela Macro. Di Excel 2007 atau lebih baru, Anda dapat melakukannya dengan mengklik tab "Tampilan" dari daftar dan kemudian mengklik "Makro". Di versi Excel sebelumnya, klik pada menu "Tools", pilih "Macro" dan kemudian "Macro".

Langkah 4

Masukkan nama makro Goal Seek Anda di jendela Macro dan kemudian klik "Create". Ini akan memulai program Visual Basic untuk aplikasi editor dan akan menunjukkan teks Makro baru, yang akan muncul sebagai subrutin kosong seperti ini:

Sub MyMacroName () Akhir Sub

Langkah 5

Buat rentang objek yang mewakili sel yang Anda ketahui tujuannya (sel pertama dari Langkah 2). Misalnya, jika Anda menginginkan Goal Seek untuk sel A1, tulis:

Dim goalCell As Range goalCell = ThisWorkbook.Worksheet (1) .Range ("A1")

Langkah 6

Buat rentang objek yang mewakili sel yang Anda inginkan agar Excel berubah untuk membuat sel pertama mencapai target baru. Misalnya, jika Anda ingin Excel memanipulasi sel A2, tulis:

Dim variableCell As Range variableCell = ThisWorkbook.Worksheet (1) .Range ("A2")

Langkah 7

Temukan metode GoalSeek di kisaran sel target. Sebagai argumen pertama, ia menawarkan nilai yang Anda inginkan untuk menerapkan Goal Seek; sebagai argumen, ia menawarkan rentang sel variabel. Misalnya, jika Anda ingin menerapkan Goal Seek ke 0, tulis:

goalCell.GoalSeek (0, variableCell)