Cara menggunakan makro untuk menambahkan label titik data dalam bagan xy menyebarkan atau gelembung bagan di Excel

Ringkasan

Di Microsoft Excel, ada perintah tidak terpasang yang secara otomatis menempel teks label titik data xy (menyebarkan) atau gelembung bagan. Namun, Anda dapat membuat Microsoft Visual Basic untuk aplikasi makro yang dilakukan. Artikel ini berisi contoh makro yang dapat melakukan tugas ini di bagan XY menyebarkan. Namun, kode yang sama dapat digunakan untuk bagan balon.

Informasi lebih lanjut

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Namun, mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Kode contoh dalam artikel ini mengasumsikan bahwa data dan terkait label diatur dalam lembar kerja yang sesuai dengan format berikut ini:

• Kolom pertama berisi data label.

• Kolom kedua berisi nilai x bagan xy (menyebarkan).

• Kolom ketiga dan berikutnya berisi nilai y bagan xy (menyebarkan).

Catatan: meskipun contoh yang disediakan berisi hanya satu kolom data untuk nilai y, Anda dapat menggunakan lebih dari satu seri data.

Untuk menggunakan makro dalam artikel ini, membuat bagan menggunakan data sebagai berikut: A1: Labels B1: X Values C1: Y Values A2: DataPoint1 B2: 12 C2: 5 A3: DataPoint2 B3: 9 C3: 7 A4: DataPoint3 B4: 5 C4: 3 A5: DataPoint4 B5: 4 C5: 8 A6: DataPoint5 B6: 1 C6: 4 Catatan: tabel tidak boleh mengandung kolom kosong, dan kolom yang memuat label data tidak dapat dipisahkan dari kolom yang berisi nilai x. Label dan nilai harus diletakkan di persis dengan format yang dijelaskan di artikel ini. (Sel sudut kiri tidak harus sel A1.)

Untuk memasang label teks ke titik data dalam bagan xy (menyebarkan), ikuti langkah-langkah berikut:

1. Pada lembar kerja yang berisi data sampel, memilih kisaran sel B1:C6.

2. Di Microsoft Office Excel 2003 dan versi Excel sebelumnya, ikuti langkah-langkah berikut:

   1. Klik bagan pada menu sisipkan .

   2. Di kotak dialog Penuntun bagan - langkah 1 dari 4 - jenis bagan , klik tab Jenis standar . Di bawah jenis bagan, klik XY (menyebarkan), dan kemudian klik berikutnya.

   3. Di kotak dialog Penuntun bagan - langkah 2 dari 4 - bagan sumber Data , klik tab Kisaran Data . Di bawah seri, klik kolom, dan kemudian klik berikutnya.

   4. Di kotak dialog Penuntun bagan - langkah 3 dari 4 - bagan opsi , klik berikutnya.

   5. Di kotak dialog Penuntun bagan - langkah 4 dari 4 - bagan lokasi , klik opsi sebagai lembar baru , dan kemudian klik selesai.

   Di Microsoft Office Excel 2007, ikuti langkah-langkah berikut:

   1. Klik tab sisipkan , klik menyebarkan dalam grup bagan , dan kemudian memilih jenis.

   2. Pada tab desain , klik Pindahkan bagan di Lokasi grup, klik lembar baru , dan kemudian klik OK.

3. Tekan ALT + F11 untuk memulai Editor Visual Basic.

4. Pada menu Sisipkan, klik Modul.

5. Ketik kode contoh berikut ini dalam lembar modul:

   Sub AttachLabelsToPoints()
   
      'Dimension variables.
      Dim Counter As Integer, ChartName As String, xVals As String
   
      ' Disable screen updating while the subroutine is run.
      Application.ScreenUpdating = False
   
      'Store the formula for the first series in "xVals".
      xVals = ActiveChart.SeriesCollection(1).Formula
   
      'Extract the range for the data from xVals.
      xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
         Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
      xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
      Do While Left(xVals, 1) = ","
         xVals = Mid(xVals, 2)
      Loop
   
      'Attach a label to each data point in the chart.
      For Counter = 1 To Range(xVals).Cells.Count
        ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
            True
         ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
            Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
      Next Counter
   
   End Sub

6. Tekan ALT + Q untuk kembali ke Excel.

7. Beralih ke lembar bagan.

8. Pada Excel 2003 dan versi Excel sebelumnya, arahkan ke makro pada menu alat , dan kemudian klik makro. Klik AttachLabelsToPoints, dan kemudian klik Jalankan untuk menjalankan makro.
   
   Di Excel 2007, klik tab pengembang , klik makro dalam grup kode , pilih AttachLabelsToPoints, dan kemudian klik Jalankan.

Makro menempel label di sel A2:A6 ke titik data pada tabel.