Excelでブラックジャックを作る

Описание к видео Excelでブラックジャックを作る

#Excel #トランプ #BLACKJACK #ブラックジャック
Excelでトランプゲームのブラックジャックを作ってみました。

VBAは、極力使わない方針で作成しています。
(使わざるを得ない部分のみVBAを使用しています)

動画内で使用しているVBAコード
--------------------------------------------
Sub NEWGAME()

Application.ScreenUpdating = False

Range("E90:N90").ClearContents
Range("C92").ClearContents

With Range("B3:B54")
.Formula = "=RAND()"
.Copy
.PasteSpecial Paste:=xlPasteValues
End With

Application.CutCopyMode = False

Range("A1").Select

Application.ScreenUpdating = True

End Sub
--------------------------------------------
Sub HIT()

If Range("C93") = "STAND" Then
MsgBox "NEW GAMEをクリックしてください"
Else
Range("C90").End(xlToRight).Offset(0, 1) = "●"
End If

End Sub
--------------------------------------------
Sub STAND()

Range("C92") = "STAND"

End Sub
--------------------------------------------

Комментарии

Информация по комментариям в разработке