VBA別館・Python別館

64329

賞金一人占めアプリ (完) - 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位まで掛金を分配するとかして段々面白くして行って下さい。

掛金一人占めの稿を終わります。

名前
件名
メッセージ
画像
メールアドレス
URL
文字色
編集/削除キー (半角英数字のみで4~8文字)
プレビューする (投稿前に、内容をプレビューして確認できます)

Copyright © 1999- FC2, inc All Rights Reserved.