【excel vba】乱数表を作る
Public Sub gWriteRand()
On Error GoTo ERR_SEC
Const C_PROC_NAME As String = "[gWriteRand]"
Dim lbRet As Boolean
Dim lsMsg As String
Dim lobjSheet As Worksheet
Dim i As Long, j As Long
'--- 初期値セット ---
lbRet = False
'--- 乱数ジェネレータを初期化する ---
Randomize
Set lobjSheet = ThisWorkbook.Worksheets("Sheet1")
'--- 16*16の乱数表を作成 ---
k = 0
With lobjSheet
For i = 1 To 16
For j = 1 To 16
.Cells(i, j).Value = Int((Rnd * 10))
Next j
Next i
End With
'--- 正常終了 ---
lbRet = True
EXIT_SEC:
On Error Resume Next
Set lobjSheet = Nothing
If lbRet Then
MsgBox "正常終了"
Else
MsgBox lsMsg
End If
Exit Sub
ERR_SEC:
lsMsg = "予期せぬエラーが発生しました。" & vbCrLf & _
"プロシージャ名: " & C_PROC_NAME & vbCrLf & _
"エラー番号:" & Err.Number & vbCrLf & _
"エラー内容:" & Err.Description
GoTo EXIT_SEC
End Sub