------ [UserForm1] -------
Private Sub Average_Click()
  Dim A As Single
  Dim R As String
  
  With Worksheets("Sheet1")
    A = Application.WorksheetFunction.Average(Range("B1:B10"))
    MsgBox "平均は " & A
      For J = 4 To 5
        .Cells(2, J).Interior.Color = QBColor(13)
      Next J
        R = Space(8): RSet R = "平均"
        .Cells(2, 4).Value = R
        .Cells(2, 5).Value = A
        .Range("A1").Activate
  End With
End Sub

Private Sub Clear_Click()
  With Worksheets("Sheet1")
    .Range("D1:E3").Clear
  End With
End Sub

Private Sub Closed_Click()
  End
End Sub

Private Sub Stdev_Click()
  Dim D As Single
  Dim R As String
  
  With Worksheets("Sheet1")
    D = Application.WorksheetFunction.Stdev(Range("B1:B10"))
    MsgBox "標準偏差は " & D
      For J = 4 To 5
        .Cells(3, J).Interior.Color = QBColor(11)
      Next J
        R = Space(4): RSet R = "標準偏差"
        .Cells(3, 4).Value = R
        .Cells(3, 5).Value = D
        .Range("A1").Activate
  End With
End Sub

Private Sub Sum_Click()
  Dim S As Integer
  Dim R As String
  
  With Worksheets("Sheet1")
    S = Application.WorksheetFunction.Sum(Range("B1:B10"))
    MsgBox "合計は " & S
      For J = 4 To 5
        .Cells(1, J).Interior.Color = QBColor(14)
      Next J
        R = Space(8): RSet R = "合計"
        .Cells(1, 4).Value = R
        .Cells(1, 5).Value = S
        .Range("A1").Activate
  End With
End Sub


------ [Module1] -------
Sub Graph()
  Dim G As ChartObject
  
  Set G = Sheets("Sheet1") _
    .ChartObjects.Add(200, 100, 300, 300)
  
  G.Chart.ChartWizard _
    Source:=Worksheets("Sheet1").Range("A1:B10"), _
    Gallery:=xlColumn, Format:=6, PlotBy:=xlColumns, _
    CategoryLabels:=1, SeriesLabels:=0, HasLegend:=True, _
    Title:="タイトル"
  Worksheets("Sheet1").Range("A1").Activate
End Sub


--- ChartWizard メソッドの補足 ---
　Source  .......... グラフ化するデータのセル範囲
　Gallery .......... グラフの種類
　Format  .......... グラフの種類のオプション番号
　Plotby  .......... データ系列の方向
　CategoryLabels ... 項目ラベルの行列
　SeriesLabels   ... データ系列ラベルの行列
　HasLegend ........ 凡例あり(True)、なし(False)
　Title ............ グラフタイトルの文字列
　CategoryTitle .... 項目軸タイトルの文字列
　ValueTitle ....... 数値軸タイトルの文字列

                                                                   back top