ExcelマクロVBA処理2

☆PDF資料はこちら

演習１ 次のような体内時計を計測できるプログラムを完成させよう

Sub ボタン1_Click()
Sheets(“sheet1”).Cells(1, 1).Font.Color = vbWhite
t1 = Time()
Worksheets(“sheet1”).Cells(1, 1) = t1
End Sub

Sub ボタン2_Click()
i = Time() – Worksheets(“sheet1”).Cells(1, 1)
MsgBox i
End Sub

例題７ 色々なコントロールを利用できるようにしよう

Ⅰ、コントロールの活用
１、[開発]―[Visual Basic]―[挿入]―[ユーザー フォーム]を選択

２、[表示]―[ツールボックス]を選択

◎ツールボックス説明

３、次のように配置し CommandButtonをゆっくりダブルクリックし名前を変える。

４、[表示]―[コード]を選択してプログラムする。

Private Sub CommandButton1_Click()
Worksheets(“sheet1”).Cells(1, 1).Value = ComboBox1
End Sub

Private Sub CommandButton2_Click()
Hide
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 10
ComboBox1.AddItem i
Next
End Sub

５、実行してみる

Ⅱ、コントロールの活用2

ワークシートSheet1のA列に1から10まで適当に文字を入力する。

プログラムを1部変更し実行する。

Private Sub CommandButton1_Click()
Worksheets(“sheet1”).Cells(1, “B”).Value = ComboBox1
End Sub

Private Sub CommandButton2_Click()
Hide
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 10
k = Worksheets(“sheet1”).Cells(i, “A”)
ComboBox1.AddItem k
Next
End Sub

Ⅲ、オプションボタンの活用

Private Sub CommandButton1_Click()
Dim varTypeA As Variant
Dim varTypeB As Variant
Dim varTypeO As Variant
Dim varTypeAB As Variant
varTypeA = UserForm1.OptionButton1.Value
varTypeB = UserForm1.OptionButton2.Value
varTypeO = UserForm1.OptionButton3.Value
varTypeAB = UserForm1.OptionButton4.Value
If varTypeA = True Then
MsgBox “A型を選択しています。”
ElseIf varTypeB = True Then
MsgBox “B型を選択しています。”
ElseIf varTypeO = True Then
MsgBox “O型を選択しています。”
ElseIf varTypeAB = True Then
MsgBox “AB型を選択しています。”
Else
MsgBox “血液型を選択してください。”
End If
End Sub

Private Sub CommandButton2_Click()
Hide
End Sub

※Variant型変数にはあらゆる方のデータが格納できます。しかし、Variant型変数は非常に大きなメモリ領域を消費するので極力使わないほうが良い