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

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 213750 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

RINGKASAN

Di Microsoft Excel, ada tidak ada built-in perintah yang secara otomatis melekat label teks titik data dalam xy (bubar) atau gelembung bagan. Namun, Anda dapat membuat Microsoft Visual Basic untuk aplikasi makro yang melakukan hal ini. Artikel ini berisi contoh makro yang melakukan tugas ini pada bagan XY bubar. Namun, kode yang sama dapat digunakan untuk gelembung Bagan.

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Insinyur dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Namun, mereka tidak akan memodifikasi contoh ini untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan spesifik Anda. Kode contoh dalam artikel ini mengasumsikan bahwa data dan terkait label diatur dalam lembar kerja menurut format berikut:
  • Kolom pertama berisi data label.
  • Kolom berisi nilai-nilai x untuk xy bagan (bubar).
  • Ketiga dan berikutnya kolom berisi nilai y Tabel xy (bubar).
CATATAN: Walaupun contoh disediakan berisi hanya satu kolom data untuk nilai-nilai y, Anda dapat menggunakan lebih dari satu seri data.

Untuk menggunakan makro di 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 berisi kolom kosong, dan kolom yang berisi data label tidak dapat dipisahkan dari kolom yang berisi nilai-nilai x. Label dan nilai-nilai harus diletakkan persis format yang dijelaskan dalam artikel ini. (Kiri sel melakukan» tidak harus menjadi sel A1.)

Untuk melampirkan label teks ke titik data dalam xy (bubar) bagan, ikuti langkah berikut:
  1. Pada lembar kerja yang berisi data sampel, pilih kisaran sel B1:C6.
  2. Dalam Microsoft Office Excel 2003 dan di versi Excel sebelumnya, ikuti langkah berikut:
    1. Klik Bagan pada Masukkan menu.
    2. Dalam Bagan Wizard - langkah 1 dari 4 - Chart Jenis kotak dialog, klik Standar jenis tab. di bawah Jenis bagan, klik XY (bubar), lalu klik Berikutnya.
    3. Dalam Bagan Wizard - langkah 2 dari 4 - Chart Sumber Data kotak dialog, klik Kisaran data tab. di bawah Seri di, klik Kolom, lalu klik Berikutnya.
    4. Dalam Bagan Wizard - langkah 3 dari 4 - Chart Opsi kotak dialog, klik Berikutnya.
    5. Dalam Bagan Wizard - langkah 4 dari 4 - Chart Lokasi kotak dialog, klik Sebagai lembar baru pilihan, kemudian klik Menyelesaikan.
    Di Microsoft Office Excel 2007, ikuti langkah berikut:
    1. Klik Masukkan tab, klik Menebari dalam Bagan grup dan pilih sejenis.
    2. Pada Desain tab, klik Bergerak Bagan dalam Lokasi grup, klik Lembar baru , lalu klik Oke.
  3. Tekan ALT+F11 untuk memulai Editor Visual Basic.
  4. Pada Masukkan menu, klik Modul.
  5. Jenis 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 bagan lembar.
  8. Dalam Excel 2003 dan di versi Excel sebelumnya, arahkan ke Makro pada The Alat menu, dan kemudian klik Makro. Klik AttachLabelsToPoints, lalu klik Menjalankan untuk menjalankan makro.

    Dalam Excel 2007, klik Pengembang tab, klikMakro dalam Kode grup, pilihAttachLabelsToPoints, lalu klik Menjalankan.
Makro melekat label dalam sel A2:A6 titik data pada bagan.

Properti

ID Artikel: 213750 - Kajian Terakhir: 20 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 for Mac
  • Microsoft Excel 98 for Macintosh
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
Kata kunci: 
kbchart kbdtacode kbhowto kbinfo kbprogramming kbmt KB213750 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:213750

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com