VBA別館・Python別館
賞金一人占めアプリ (完) - Tak
2018/09/07 (Fri) 14:36:29
いままでの乱数を使って、メンバーの投資金を独り占めするソフトを作りましょう。
① 結果はこんなです(図参照)
全員から¥15,000集めました。 乱数の一番大きな数字に該当する大友さんが一人占めしました。
乱数発生、順位に並べるところは、非表示にしてあります。 次回でそのcodeを説明いたします。
Re: 賞金一人占めアプリ - Tak
2018/09/08 (Sat) 08:30:04
② コマンドボタンの中身
先にお話ししたように、codeは特に書いてありません。 単にMacro1と関連付けしましたので、このボタンをクリックするとマクロ1(ctrl+a)が動作するわけです。 図参照。
そしてMacro1の中身は;
-------------------------------------
Option Explicit
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
Range("C2:C11").Select
Selection.Copy ’乱数をD列にコピーする
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select ’コピーした乱数を大きな順にソートする(並べ替える)
ActiveWorkbook.Worksheets("乱数3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("乱数3").Sort.SortFields.Add2 Key:=Range("D2:D11") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("乱数3").Sort
.SetRange Range("D2:E11")
.Header = xlGuess ’なくても良い
.MatchCase = False ’なくても良い
.Orientation = xlTopToBottom ’なくても良い
.SortMethod = xlPinYin 'なくても良い
.Apply
End With
Application.CutCopyMode = False
End Sub
-------------------------------
今回は水谷さんが、掛金を独り占めしたわけです。
この後の発展としては、親元が10%キープするとか、1-3位まで掛金を分配するとかして段々面白くして行って下さい。
掛金一人占めの稿を終わります。