Pencari Matlamat dalam Excel VBA
Goal Seek adalah alat yang terdapat di excel VBA, yang membantu kita mencari nombor yang diperlukan untuk dicapai untuk mencapai sasaran yang ditetapkan.
Contohnya, anda adalah pelajar, dan anda telah mensasarkan skor purata 90% daripada enam mata pelajaran yang ada. Setakat ini, anda telah menyelesaikan 5 peperiksaan, dan anda hanya tinggal satu mata pelajaran. Markah yang anda jangkakan dari lima mata pelajaran yang diselesaikan adalah 89, 88, 91, 87, 89, dan 90. Sekarang anda ingin tahu berapa banyak yang anda perlukan untuk menjaringkan gol dalam peperiksaan akhir untuk mencapai sasaran peratusan purata 90%.
Ini dapat dilakukan dengan menggunakan GOAL SEEK dalam lembaran kerja excel dan juga pengekodan VBA. Mari lihat bagaimana ia berfungsi dengan VBA.
Sintaks Pencarian Matlamat VBA
Dalam VBA Goal Seek, kita perlu menentukan nilai yang kita ubah dan sampai pada hasil akhir yang disasarkan, jadi berikan rujukan sel dengan menggunakan objek VBA RANGE. Nanti kita boleh mengakses pilihan MATLAMAT.
Berikut adalah sintaks pencarian matlamat dalam VBA.
- Julat (): Dalam hal ini, kita perlu memberikan rujukan sel di mana kita perlu mencapai nilai yang disasarkan.
- Matlamat: Dalam hujah ini, kita perlu memasukkan apa tujuan yang ingin kita capai.
- Mengubah Sel: Dalam hujah ini, kita perlu memberikan dengan mengubah nilai sel yang kita perlukan untuk mencapai tujuan.
Contoh Pencarian Objektif VBA Excel
Berikut adalah contoh tujuan pencarian dalam Excel VBA.
Pencarian Matlamat VBA - Contoh # 1
Mari kita ambil contoh skor peperiksaan purata sahaja. Berikut adalah jangkaan skor 5 mata pelajaran dari peperiksaan yang telah selesai.
Pertama, kita perlu mencapai skor purata dari 5 mata pelajaran yang telah selesai. Terapkan fungsi RATA-RATA dalam sel B8.
Dalam contoh ini, Matlamat kami adalah 90, dan Mengubah Sel akan menjadi B7 . Oleh itu, Goal Seek akan membantu kita mencari skor yang disasarkan dari subjek akhir untuk mencapai purata keseluruhan 90.
Mulakan subproses dalam modul kelas VBA.
Kod:
Sub Matlamat_Seek_Contoh1 () Akhir Sub
Sekarang kita memerlukan hasilnya di sel B8, jadi berikan rujukan julat ini dengan menggunakan objek RANGE.
Kod:
Sub Matlamat_Cari_Contoh1 () Julat ("B8") Sub Akhir
Sekarang letakkan titik dan masukkan pilihan "Goal Seek".
Hujah pertama adalah "Matlamat" untuk ini. Kita perlu memasukkan tujuan akhir kita untuk tiba di RANGE B8. Dalam contoh ini, kita berusaha mencapai sasaran 90.
Kod:
Sub Matlamat_Seek_Contoh1 () Julat ("B8"). Matlamat GoalSeek: = 90 Sub Akhir
Argumen seterusnya adalah "Mengubah Sel" untuk ini, kita perlu membekalkan sel mana yang kita perlukan nilai baru untuk mencapai Matlamat.
Kod:
Sub Matlamat_Seek_Contoh1 () Julat ("B8"). Matlamat GoalSeek: = 90, ChangingCell: = Julat ("B7") Sub Akhir
Dalam contoh ini, sel berubah kita adalah sel Sub 6 iaitu sel B7.
Ok, mari kita jalankan kod untuk melihat apa yang perlu dilakukan pada subjek akhir untuk mencapai peratusan purata keseluruhan 90.
Jadi, dalam subjek akhir, 95 harus dijaringkan untuk mendapatkan purata keseluruhan 90.
Pencarian Matlamat VBA - Contoh # 2
Kami telah belajar bagaimana menerapkan GOAL SEEK untuk mencari nombor yang diperlukan untuk mencapai matlamat. Sekarang kita akan melihat beberapa contoh lanjutan untuk mencari skor peperiksaan akhir untuk lebih daripada satu pelajar.
Berikut adalah jangkaan skor 5 subjek selepas peperiksaan.
Oleh kerana kita mencari matlamat untuk lebih daripada satu pelajar, kita perlu menggunakan gelung. Berikut adalah kod untuk anda.
Kod:
Sub Goal_Seek_Contoh2 () Dim k Selagi Dim DimultCell As Range Dim ChangingCell As Range Dim TargetScore Sebagai Integer TargetScore = 90 For k = 2 to 5 Set ResultCell = Cells (8, k) Set ChangingCell = Cells (7, k) ResultCell.GoalSeek TargetScore, ChangingCell Next k End Sub
Kod ini akan merangkumi semua skor pelajar dan mencapai skor peperiksaan akhir yang diperlukan untuk mencapai purata keseluruhan 90.
Oleh itu, kita mendapat hasil akhirnya sekarang,
Pelajar A perlu mendapat markah hanya 83 untuk memperoleh 90 peratusan keseluruhan, dan Pelajar D perlu mendapat skor 93.
Tetapi lihat Pelajar B & C. Mereka perlu mendapat skor masing-masing 104 dalam peperiksaan akhir, yang tidak mungkin sama sekali.
Seperti ini dengan menggunakan analisis GOAL SEEK, kita dapat mencari nombor yang diperlukan untuk mencapai angka yang disasarkan pada pertengahan projek atau proses.
Perkara yang Perlu Diingat
- Goal Seek tersedia dengan kedua-dua alat lembaran kerja dan juga alat VBA.
- Sel yang dihasilkan harus selalu mengandungi formula.
- Kita perlu memasukkan nilai matlamat dan menukar rujukan sel ke alat pencari tujuan.
