excel 賓果:

1..在 a1儲存格輸入公式 =rand()

2..在 b1儲存格輸入公式 =rand(a1,a$1:a$75)

3..copy
a1..b1 to a2..b75



4..在 d2儲存格輸入公式 =b1

5..在
e2儲存格輸入公式 =b6

6..在 f2儲存格輸入公式 =b11

7..在 g2儲存格輸入公式 =b16

8..
在 h2儲存格輸入公式 =b21

9.. Copy d2..h2 to d3..h6



將下列巨集複
製到 VB編譯器

Sub Macro1()

NUMA = InputBox("請輸入列印次數 1- 300")


Cells(1, 8) = NUMA

i = 0: bb = 1

cc =
Range("h1")

If cc > 300 Or cc < 1 Then End


For i = 1 To cc

Cells(1, 8).Value = i


Range("d1:i6").Select

Selection.Copy '

qq = i * 7


ActiveCell.Offset(i * 7, 0).Select '=往下7格


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

:=False, Transpose:=False


Range("D1").Select

Application.CutCopyMode = False


Selection.ClearContents

Next i

End Sub



*
市面流行,賓果遊戲表號碼為 1-75,照題目 1-25 修改如下

2..在 b1儲存格輸入公式
=rand(a1,a$1:a$25)

3..copy a1..b1 to a2..b25