ChatterBank1 min ago
Microsoft Excel: is this possible
Hello all!
I'm doing a little project at work which requires a sort of Bingo Card.
I have an Excel spreadsheet with a list of around 100 numbers, I need to randomly blank out 30 of these on 30 different printouts for the "bingo effect"
Does anyone know if this is possible on Excel and if it is a brief description of how to do it would be most appreciated!
Ren
Answers
No best answer has yet been selected by theren_911. Once a best answer has been selected, it will be shown here.
For more on marking an answer as the "Best Answer", please visit our FAQ.Hi
Done a bit of work on your problem. Let me know if this is what you want so far. First bit is instruction, second bit is the code.
Instructions
Click on Tools -> Macros -> Visual Basic Editor
A new window will open
Click on Insert -> Module
Copy and Paste this following code into the Module
SAVE
Click Run -> Run Sub/UserForm or Press F5
View the workseet
Sub FormatSheet()
Dim iRowCount As Integer
Dim iColumn As Integer
Dim iLoop As Integer
Columns("A:C").Select
Selection.ColumnWidth = 18.14
With Selection.Font
.Name = "Arial"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
For iColumn = 1 To 3
For iLoop = 1 To 105
Cells(iLoop, iColumn) = iLoop
Next
Next
Cells(1, 1).Select
End Sub