excel 隨機產生變色變數
錄製巨集方法:從Excel的檢視 ---> 巨集 ---> 錄製巨集編輯程式
Private Sub CommandButton1_Click()
For i = 1 To 9
Cells(1, i) = i
Cells(1, i).Font.ColorIndex = 0
Next
myrnd = (Fix(Rnd() * 9) + 1)
Cells(3, 1) = myrnd
Cells(1, myrnd).Font.ColorIndex = 4
tmp = Cells(1, myrnd)
Cells(1, 9) = tmp
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp
myrnd = (Fix(Rnd() * 8) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp
myrnd = (Fix(Rnd() * 7) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp
myrnd = (Fix(Rnd() * 6) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp
myrnd = (Fix(Rnd() * 5) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp
myrnd = (Fix(Rnd() * 4) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp
myrnd = (Fix(Rnd() * 3) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp
myrnd = (Fix(Rnd() * 2) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp
End Sub
將程式放入 表單---->插入表單 的button選項當控制原 點選產生隨機變數
