Donate SIGN UP

Microsoft Excel: is this possible

Avatar Image
theren_911 | 17:33 Wed 02nd Nov 2005 | Technology
5 Answers

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

Gravatar

Answers

1 to 5 of 5rss feed

Best Answer

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.

The way I'd do it is to use Macros or VBA. I'll try and have a go for you if I get a moment at work.

How are the rows arranged? Is it 10 x 10, 5 X 20 ? By 30 print-outs, would 30 separate worksheets do and then just print them all ??
Question Author

Its arranged in 3 columns with ~105 rows. It's not exactly a bingo card, just bingo in the sense that it's going to be played in a similar way, I'll need to be blanking out 30 rows on each sheet.



thanks for taking an interest ;)

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


Option Explicit


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



1 to 5 of 5rss feed

Do you know the answer?

Microsoft Excel: is this possible

Answer Question >>