World Cafe: Excelの散布図でデータ要素にラベルを付加する（Excel　Mac版）

仕事でExcelを使って散布図を描くことが必要になりました。今までも簡単に回帰分析なんかができるのでちょくちょく使っていましたが…

EXCELビジネス統計分析 [ビジテク] 第2版 2013/2010/2007/2003対応

posted with ヨメレバ

末吉正成,末吉美喜翔泳社 2014-01-25

確かにデータ要素にラベルを付ける機能が無い…※最新のExcelのバージョンでは簡単にできるようですね。

Microsoft Office Excel 2013 [オンラインコード] [ダウンロード] (PC2台/1ライセンス)

posted with カエレバ

マイクロソフト 2013-02-07

エクセル2013(Excel2013)基本講座：散布図（XYグラフ）を作成する

検索してみた

検索すると、MSのサポートにそのやり方が…

Excel 2007 で VBA マクロを使用して散布図またはバブルチャートのデータ要素にラベルを付加する方法

Macでもできるかな？

ExcelのMac版でも出来るのかな〜とやってみたら、簡単にできました。
１）まずはデータから。平成1年〜3年にかけて、AとBがこのように変化しているという感じのデータ。

２）これを選択しておいて「挿入」−「グラフ」「散布図」。

３）「開発」−「エディタ」で、VBAエディタを開いてから、「挿入」−「標準モジュール」で立ち上がった画面に下記のプログラムをコピペ。

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