电脑怎么样才能玩扫雷(单位不许装游戏，牛人教你EXCEL中玩扫雷游戏，需要拿走)

单位不容许电脑装游戏，牛人教你EXCEL中玩扫雷游戏，

单位不容许电脑安装游戏，但是不能不让装OFFICE吧，想了想，用VBA编程编一段代码，玩玩小游戏，打发一下快下班的时间吧！

最后实现了，代码仅需50行，可移植。

快来演示一下吧：

看看代码：

代码：

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

Dimi,j,n,mAsInteger

Dimvd,HdAsInteger

DimsumAsInteger

Dimarr(1To5,1To5)

Dimbc,brAsInteger

‘》》》》》》》》

bc=ActiveCell.Column

br=ActiveCell.Row

Ifbc< 6 And br < 6 Then

IfCells(br,bc)<> "*" Then

ActiveCell.Interior.Color=255

sum=sum+1

Cells(br+20,bc)=1

IfCells(26,6)>18Then

Fori=1To5

Forj=1To5

Cells(i,j).Interior.Color=255

Next

Next

MsgBox"恭喜你！你赢了！"

EndIf

Else

Fori=1To5

Forj=1To5

Cells(i,j).Interior.Color=255

Next

Next

MsgBox"你输了！"

EndIf

EndIf

EndSub

有需要的关注我----私信