Bagaimana Cara Menggunakan VBA Untuk Memilih Jenis Bagan Di Excel

Excel memiliki banyak pilihan ketika datang untuk membuat grafik dan grafik. Tetapi tidak mudah mengotomatisasi proses VBA untuk memilih jenis grafik karena banyaknya pilihan.

Artikel ini menjelaskan cara membuat prosedur Anda sendiri untuk memberi opsi kepada pengguna saat membuat pilihan.

Daftar Jenis Bagan Dengan VBA

Saat menggunakan VBA untuk membuat pilihan, Anda menggunakan konstanta Excel standar. Kode untuk membuat grafik dan memilih kategori berjalan seperti ini:

Charts.add

Dengan ActiveChart
Sumber .SetSourceData: = Spreadsheet ("contoh"). Range ("A1: B8")
.Lokasi Dimana: = xlLocationAsObject, Nama: = "contoh"

Berakhir dengan

activeChart.ChartType = xl3DArea

Kode di atas membuat grafik dari data dalam rentang yang ditentukan dan memilih grafik area 3-D. Nilai konstan "xl3DArea" adalah integer panjang -4098 yang memberi tahu kode untuk digunakan.

Masalahnya adalah tidak ada cara sederhana menggunakan VBA untuk mencari tahu nama konstan untuk berbagai jenis grafik. Daftar di bawah ini mencakup nama-nama konstan untuk lima yang paling populer.

  • xlBarClustered
  • xl3DLine
  • xlArea
  • xl3DColumn
  • xl3DPie

Salah satu pilihannya adalah mengunduh daftar lengkap dari situs pengembang resmi Microsoft dan membangun daftar ke pustaka kode Anda. Klik disini untuk daftar terdokumentasi.

Pendekatan yang seimbang mungkin untuk mengidentifikasi jenis yang paling populer dan menggunakan konstanta yang relevan.

  • xlBarClustered = 60
  • xl3DLine = -4101
  • xlArea = -4098
  • xl3DColumn = -4100
  • xl3DPie = -4102

Menampilkan Bagan Umum Dengan VBA

Idenya sekarang adalah menampilkan grafik sebagai contoh kepada pengguna sehingga pilihan dapat dibuat.

Pertama, kita dapat memasukkan nilai ke dalam array.


myArray = Array (60, -4101, -4098, -4100, -4102)

Dengan nilai-nilai untuk jenis grafik yang terdaftar, kode akan melewati array dan menampilkan grafik yang relevan, berhenti sejenak untuk memberi pengguna opsi membuat pilihan.

Kotak pesan diatur ke ya atau tidak dan nilai "7" menunjukkan pengguna telah mengklik tombol "ya", keluar dari loop dan meninggalkan jenis grafik saat ini yang dipilih.


Untuk x = 0 Ke UBound (myArray)

ActiveChart.ChartType = myArray (x)

useChart = MsgBox ("Pilih bagan", vbYesNo)

Jika useChart = 7 Maka Keluar Untuk

Berikutnya

Dengan grafik yang dipilih, pengguna kemudian memiliki opsi untuk memodifikasi seleksi secara manual dengan alat Excel standar.

Ringkasan

Pemilihan grafik adalah contoh yang bagus dari kelebihan-kelebihan Excel. Dengan begitu banyak pilihan untuk dipilih, banyak pengguna menjadi frustrasi dengan membuat pilihan yang tepat, membuat masa depan konsistensi gaya masalah. Dengan menerapkan beberapa prosedur VBA standar, Anda dapat membuat hidup lebih mudah bagi Anda dan pengguna aplikasi Excel Anda.

Leave a Reply

Your email address will not be published. Required fields are marked *