健亨網路行銷-seo上首頁 下拉關鍵字 部落格行銷

製造市面流行,賓果遊戲表

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