电脑上扫雷游戏记录怎么删除(单位不许装游戏)
单位不容许电脑安装游戏,但是不能不让装OFFICE吧,想了想,用VBA编程编一段代码,玩玩小游戏,打发一下快下班的时间吧!
最后实现了,代码仅需 50行,可移植。
快来演示一下吧:
看看代码:
代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, n, m As Integer
Dim vd, Hd As Integer
Dim sum As Integer
Dim arr(1 To 5, 1 To 5)
Dim bc, br As Integer
‘》》》》》》》》
bc = ActiveCell.Column
br = ActiveCell.Row
If bc < 6 And br < 6 Then
If Cells(br, bc) <> "*" Then
ActiveCell.Interior.Color = 255
sum = sum 1
Cells(br 20, bc) = 1
If Cells(26, 6) > 18 Then
For i = 1 To 5
For j = 1 To 5
Cells(i, j).Interior.Color = 255
Next
Next
MsgBox "恭喜你!你赢了!"
End If
Else
For i = 1 To 5
For j = 1 To 5
Cells(i, j).Interior.Color = 255
Next
Next
MsgBox "你输了!"
End If
End If
End Sub
有需要的关注我----私信
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com