VBAで遊ぼう Excelはプログラミング環境 第2回【ソフトウェアトーク理工サイド交流祭】

壁檸檬様主催の「ソフトウェアトーク理工サイド交流祭」の動画です。今回からプログラムらしいことをしていきます。ねぎ様、壁檸檬様、みゅう様、長尾詩様、広告ありがとうございます。Rを試しに使ってみようseries/17092ボードゲーム入門者のネクストステップ series/381183分間ボードゲームレビュー　series/194703メカニクス解説　series/17024ボードゲーム関連　 mylist/60211531 車載動画　series/105378クトゥルフ神話TRPGソロプレイミニシナリオ　 mylist/32621990 Sub x_d_y1()   Dim in_y As String 'ダイスの面数入力   Dim in_x As String 'ダイスの数入力   Dim y As Integer   'ダイスの面   Dim x As Integer   'ダイスの数   Dim loop_counter As Integer 'カウンター   Dim sum_v As Integer '出た目の合計   Randomize   in_y = InputBox("ダイスの面数")   y = Val(in_y)   in_x = InputBox("ダイスの数")   x = Val(in_x)   sum_v = 0   For loop_counter = 1 To x       sum_v = sum_v + Int(Rnd() * y) + 1   Next loop_counter   ActiveCell.Value = sum_vEnd Sub

http://www.nicovideo.jp/watch/sm40499422