VBA基本

Option Explicit

Sub createStub()

'num変数の定義
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer

 

Dim myMsg As String

'On Error GoTo HandleErr

'指定したセルの値を変数に代入する。
num = Worksheets("Sheet1").Cells(2, 4).Value

'ボタン押下すると変数の内容をメッセージボックスに表示させる
MsgBox ("こんばんは世界")




HandleErr:
myMsg = "エラー番号 : " & Err.Number & vbCrLf & _
"エラー内容 : " & Err.Description
'MsgBox myMsg

End Sub

広告を非表示にする