VBA Randomize a 3x3 Filter for Convoluted Neural Network
EXCEL FOR FINANCE
How to Randomize a 3x3 Filter for a Convoluted
Neural Network in VBA
How to Randomize a 3x3 Filter for a Convoluted
Neural Network in VBA
Option Explicit
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Dim i, j As Integer
Dim randomNumber As Double
For i = 1 To 3
Randomize
For j = 1 To 3
randomNumber = rnd()
'Application.ActiveWorkbook.ActiveSheet.Cells(i + 20, j + 29).Select
Application.ActiveWorkbook.ActiveSheet.Cells(i + 20, j + 29).Value = randomNumber
Next j
Next i
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
End Sub
The effect:
Comments
Post a Comment