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

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

Popular posts from this blog

C# - Simple Class Library and how to use it in another project

AWS CLI - INSTALLATION AND CONFIGURATION

Upload a file to a Web server in ASP.NET by using Visual C# .NET