演習12 のユーザーフォーム コード
------ [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