У нас вы можете посмотреть бесплатно Excelでブラックジャックを作る или скачать в максимальном доступном качестве, которое было загружено на ютуб. Для скачивания выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса savevideohd.ru
#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 --------------------------------------------