-
Notifications
You must be signed in to change notification settings - Fork 0
/
Module1.vb
25 lines (22 loc) · 848 Bytes
/
Module1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Imports ExcelDna.Integration
Imports ExcelDna.ComInterop.ComServer
Imports Microsoft.Office.Interop.Excel
Public Module Module1
<ExcelFunction(Category:="Colorize", IsMacroType:=True)>
<ExcelCommand(ShortCut:="^D", MenuText:="Colorize", Name:="Colorize")>
Public Sub Colorize(Num As Integer)
Try
Debug.WriteLine("Start")
Dim Xl As Application = ExcelDnaUtil.Application
Dim Range1 As Range = Xl.Range($"A1:Z{Num}")
Dim i As Integer = 0
Dim RND As New Random(255)
For Each One As Range In Range1
Debug.WriteLine(One.Value)
One.Interior.Color = RGB(RND.Next Mod 255, RND.Next Mod 255, RND.Next Mod 255)
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Module