Create Sample Ludo in seconds! Create a Macro Enabled Workbook in Excel. Open VB Editor (Developer tab-Visual Basic button). Open Code Editor of any Sheet. Copy & Paste given Code there. Return to Excel and Run the Macro CL. [For Data Safety please use this code in new file.] Sub CL() Dim I As Integer Dim RNG As Range Dim S As String S = Me.Name If Application.ActiveSheet.Name S Then MsgBox "Since Macro is linked with " & S & ". So Activating " & S Worksheets(S).Activate End If I = MsgBox("SHEET DATA will be deleted and ...
Read More
Create Sample Ludo in seconds! Create a Macro Enabled Workbook in Excel. Open VB Editor (Developer tab-Visual Basic button). Open Code Editor of any Sheet. Copy & Paste given Code there. Return to Excel and Run the Macro CL. [For Data Safety please use this code in new file.] Sub CL() Dim I As Integer Dim RNG As Range Dim S As String S = Me.Name If Application.ActiveSheet.Name S Then MsgBox "Since Macro is linked with " & S & ". So Activating " & S Worksheets(S).Activate End If I = MsgBox("SHEET DATA will be deleted and modified!!! Continue?", vbYesNo, "WARNING!!!") If I = 7 Then Exit Sub Set RNG = Range("A1: P18") RNG.EntireRow.Delete Set RNG = Range("A1: P23") RNG.ClearContents Set RNG = Range("A1: Q77") With RNG.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.149998474074526 .PatternTintAndShade = 0 End With Set RNG = Range("B2: B7, C2: F2, C7: F7, G2: G7, D4: E5, C8, C9: G9") With RNG.Interior .Color = 5287936 .TintAndShade = 0 End With Set RNG = Range("B11: B16, C11: F11, C16: F16, G11: G16, D13: E14, H15, I11: I15") With RNG.Interior .Color = 255 .TintAndShade = 0 End With Set RNG = Range("K11: K16, L11: O11, L16: O16, P11: P16, M13: N14, O10, K9: O9") With RNG.Interior .ThemeColor = xlThemeColorLight2 .TintAndShade = 0.399975585192419 End With Set RNG = Range("K2: K7, L2: O2, L7: O7, P2: P7, M4: N5, J3, I3: I7") With RNG.Interior .Color = 65535 .TintAndShade = 0 End With Set RNG = Range("H9, I8, J9, I10") With RNG.Interior .Color = 8224125 .TintAndShade = 0 End With Set RNG = Range("B2: P16") RNG.Borders(xlDiagonalDown).LineStyle = xlNone RNG.Borders(xlDiagonalUp).LineStyle = xlNone Set RNG = Range("D4: E5, B8: G10, D13: E14, M13: N14, H2: J16, K8: P10, M4: N5") With RNG.Borders .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Set RNG = Range("H8, J8, I9, H10, J10") With RNG.Interior .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With Set RNG = Range("H4, D10, J14, N8") With RNG.Borders(xlDiagonalDown) .LineStyle = xlContinuous End With With RNG.Borders(xlDiagonalUp) .LineStyle = xlContinuous End With Set RNG = Range("B2: P16") RNG.RowHeight = 21 RNG.ColumnWidth = 11 RNG.BorderAround LineStyle: =xlContinuous Set RNG = Range("A1: Q77") With RNG.Font .Name = "Calibri" .Size = 14 End With RNG.Font.Bold = True RNG.Font.Underline = xlUnderlineStyleSingle With RNG .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Set RNG = Range("B1: P1, C2: F2, C3: F3, C6: F6, C7: F7, L2: O2, L3: O3, L6: O6, L7: O7, C11: F11, C12: F12, C15: F15, C16: F16, L11: O11, L12: O12, L15: O15, L16: O16, H17: J17, K17: P17, D17: E17, F17: G17, D18: E18, F18: G18") RNG.Merge Set RNG = Range("A1, A17: A77, Q17") RNG.RowHeight = 18 RNG.ColumnWidth = 8.43 Range("A17").Value = "[R ] Enter]" Range("A18").Value = "RESET" Range("B17").Value = "[7 ] Enter]" Range("B18").Value = "PLAY" Range("C17").Value = "[8 ] Enter]" Range("C18").Value = "RESTART" Range("D17").Value = "[9 ] Enter]" Range("D18").Value = "MAN. DIE" Range("F17").Value = "[0 ] Enter]" Range("F18").Value = "AUTO. DIE" Range("H17").Value = "Val 1-Val 2-Val 3 [Number ] Enter]" Range("K17").Value = "Select Values & Move Piece [1 2 3 4 ] Enter] -- Dot [.] + Enter to Deselect" Range("A17, B17: F17").Font.Bold = False Range("A17, B17: F17").Font.Size = 10 Range("H17").Characters(19, 16).Font.Size = 10 Range("H17").Characters(19, 16).Font.Bold = False Range("K17").Characters(27, 49).Font.Size =
Read Less
Add this copy of Ready-To-Use Code and Instructions to Create Ludo in to cart. $6.67, new condition, Sold by Ingram Customer Returns Center rated 5.0 out of 5 stars, ships from NV, USA, published 2025 by Independently Published.
