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.
Sebagai contoh, 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 tinggal dengan satu mata pelajaran sahaja, skor jangkaan anda dari lima subjek yang diselesaikan adalah 89, 88, 91, 87, 89, dan 90. Sekarang anda ingin tahu berapa banyak yang anda perlukan untuk mendapat markah peperiksaan akhir untuk mencapai sasaran peratusan purata keseluruhan sebanyak 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 dapat mengakses pilihan GOAL SEEK.
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 Matlamat VBA Excel
Berikut adalah contoh tujuan pencarian dalam Excel VBA.
Anda boleh memuat turun Templat VBA Goal Seek Excel ini di sini - Templat VBA Goal Seek ExcelPencarian Matlamat VBA - Contoh # 1
Mari kita ambil contoh skor purata peperiksaan sahaja. Berikut adalah jangkaan skor 5 mata pelajaran dari peperiksaan yang telah selesai.
Mula-mula, kita perlu memperoleh skor purata dari 5 mata pelajaran yang telah siap. Terapkan fungsi AVERAGE dalam sel B8.
Dalam contoh ini Matlamat kami adalah 90, 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 hasil dalam sel B8, jadi berikan rujukan julat ini dengan menggunakan objek RANGE.
Kod:
Sub Matlamat_Seek_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 sampai di RANGE B8. Dalam contoh ini, kita berusaha mencapai sasaran 90.
Kod:
Sub Matlamat_Seek_Contoh1 () Julat ("B8"). Matlamat GoalSeek: = 90 Akhir 
Argumen seterusnya adalah "Mengubah Sel" untuk ini kita perlu menyediakan sel mana kita memerlukan 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 memperoleh skor peperiksaan akhir untuk lebih daripada satu pelajar.
Berikut adalah jangkaan markah 5 subjek selepas peperiksaan.
Oleh kerana kami mencari matlamat untuk lebih daripada satu pelajar, kami perlu menggunakan gelung, di bawah ini 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 markah 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 peratus keseluruhan dan Pelajar D perlu mendapat markah 93.
Tetapi lihatlah 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 nombor 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 hasil harus selalu mengandungi formula.
- Kita perlu memasukkan nilai matlamat dan mengubah rujukan sel ke alat pencari tujuan.
