EXCEL游戏‘麻将’

gjj136138139 · 发表于 2009-11-9 11:31

好贴何时顶都不会过时。真是佩服！顶

我是黄马甲 · 发表于 2009-11-13 19:43

强人啊

ritagu · 发表于 2009-12-29 13:29

好喜欢excel德游戏哦

ningyong58 · 发表于 2010-2-8 00:53

玩不了

[ 本帖最后由 ningyong58 于 2010-2-8 00:54 编辑 ]

hhzjxss · 发表于 2010-11-8 03:04

用不了呀！

gyj2005 · 发表于 2010-11-21 17:03

楼主厉害，小弟佩服

HHAAMM · 发表于 2010-11-21 17:14

原帖由 hhzjxss 于 2010-11-8 03:04 发表
用不了呀！

看一楼说明
“（运行出错的话，请手工引用下麻将.dll）”

z6605389 · 发表于 2012-11-17 00:02

'要产生和麻将的一样的牌张数,牌种类数
Sub xipai()
'牌的张数由于打法的不同而有所不同,本例为136张、34种,即筒条万,中发白,东西南北、各4张
Dim a(1 To 136)
'随机生成不重复的136个数
For i = 1 To 136
Randomize
a(i) = Int(Rnd * 136 + 1)
For j = 1 To i - 1
If a(i) = a(j) Then i = i - 1: Exit For
Next j
Next i
'生成每种4张，34种牌
For i = 1 To 136
a(i) = Int((a(i) - 0.01) / 4+1)'每种牌有4张,共有34种
Cells(i, 1)=a(i)'可以对单元格排序,可以发现每种牌有4张,共有34种,1-9为筒,10-18为条,以些类推
Next i
End Sub

mh3044622 · 发表于 2014-12-21 15:55

多谢楼主分享

		自动登录	找回密码
密码			免费注册