|
??? |
|
Option Explicit : Dim a(6) As Integer
Sub Macro1() Cells(1, 1).Value = 0 Call saiki(1) End Sub Sub saiki(ByVal n As Integer) Dim aa As String, j As Integer a(n) = 1 While a(n) <= 3 If n < 6 Then Call saiki(n + 1) Else aa = "" : For j = 1 To 6 : aa = aa + card(a(j)) : Next j If Mid(aa, 6, 1) = "ア" Then Cells(1, 1).Value = Cells(1, 1).Value + 1 Cells(Cells(1, 1).Value, 2).Value = aa End If End If a(n) = a(n) + 1 Wend End Sub Private Function card(ByVal n As Integer) As String Select Case n Case 1 : card = "ア" Case 2 : card = "イイ" Case Else : card = "ウウウ" End Select End Function |
|
3月5日（木） 8:22:28
42998 |