用VBA制作随机生成5张扑克牌的工具

xiaoposhao

直接Alt+F8运行宏
颜色自己配
新建个模块 放进去

'====生成不重复的5张牌====
Option Explicit
Public Sub 生成()
  Dim i As Integer
  Dim pai(0 To 51) As Integer
  Dim tmp As Integer, tmp2 As Integer
  For i = 0 To 51
    pai(i) = i
  Next
  Randomize
  For i = 0 To 51
    tmp2 = Rnd() * 51

    tmp = pai(i)
    pai(i) = pai(tmp2)
    pai(tmp2) = tmp
  Next

  For i = 0 To 4
    Cells(2, 3 + i) = NumToJQK(pai(i) Mod 13 + 1)
    Cells(2, 3 + i).Interior.Color = GetColor(pai(i) \ 13)
  Next
End Sub

Function NumToJQK(n As Integer) As String
  Select Case n
  Case 1
    NumToJQK = "A"
  Case 11
    NumToJQK = "J"
  Case 12
    NumToJQK = "Q"
  Case 13
    NumToJQK = "K"
  Case Else
    NumToJQK = n
  End Select
End Function

Function GetColor(index As Integer) As Long
  Select Case index
  Case 0
    GetColor = &HFF
  Case 1
    GetColor = &HFF00
  Case 2
    GetColor = &HF00FFF
  Case 3
    GetColor = &HFF0000
  End Select
End Function

先知招狼入室

先知招狼入室 发表于 2016-7-26 20:33
不胜感激，这个图片是存储在哪里的啊，居然能调用出来

我知道了，被你隐藏了

lsc900707

yaozong 发表于 2016-7-26 20:36
自定义开始与停止，模拟动态效果，参考附件。

这个模拟效果好！

先知招狼入室

xiaoposhao 发表于 2016-7-26 20:38
直接Alt+F8运行宏
颜色自己配
新建个模块 放进去

谢谢、、、、帮助

kof98h

真心被大神们秀了一脸