1150897238

2022/5/17 16:42

22回答

エクセルのVBAについて質問です やりたいこと 1週間（５日間）で１０人のうち５人は洗濯当番、残りの５人から掃除当番をランダムで決めたいです

エクセルのVBAについて質問です やりたいこと 1週間（５日間）で１０人のうち５人は洗濯当番、残りの５人から掃除当番をランダムで決めたいです 下記のコードでは10人のうちランダムで5人に掃除は割り振れるのですが、これに加えて残りの5人に洗濯を割り振るコードを教えていただけないでしょうか Sub 当番表() Dim 人数 As String 人数 = Range("A1").Value 'A1には10の数字が入っています Dim 日数 As Long 日数 = Range("A2").Value 'A2には5の数字が入っています Const 一日人数 = 1 ReDim 回数(1 To 人数) Randomize ' 最大回数を計算 --- (*1) 最大回数 = WorksheetFunction.RoundUp(日数 * 一日人数 / 人数, 0) ' 回数を初期化 For i = 1 To 人数 回数(i) = 0 Next Call 休み以外クリア ' --- (*2) ' 二週間分の予定を作る --- (*3) For i = 1 To 日数 For j = 1 To 一日人数 Result = False For k = 1 To 100 ' ランダムに一人を選ぶ --- (*4) r = Int(Rnd * 人数) + 1 ' すでに選択済みか休みなら選び直し --- (*5) v = Sheet1.Cells(2 + i, 1 + r) If v <> "" Then GoTo Continue ' 最大回数を超えていたら選び直し If 最大回数 < (回数(r) + 1) Then GoTo Continue ' 表に当番であることを書き込む Sheet1.Cells(2 + i, 1 + r) = "掃除" 回数(r) = 回数(r) + 1 Result = True Exit For Continue: Next If Result = False Then MsgBox "作表失敗しました。やり直してください" Exit Sub End If Next Next End Sub

Visual Basic | プログラミング・45閲覧

ベストアンサー

0
qgl********

カテゴリマスター

2022/5/18 9:19

これでどうですか。 Sub sample() Dim i As Long, n As Long, su As Long Dim ary(10) Range("B3:K7").ClearContents su = Range("A1") For i = 1 To su ary(i) = i '人数(名前でもOK) Next i Call Shuffle(ary) n = 2 For i = 1 To su / 2 n = n + 1 Cells(n, Val(ary(i) + 1)) = "洗濯" Next i n = 2 For i = su / 2 + 1 To su n = n + 1 Cells(n, Val(ary(i) + 1)) = "掃除" Next i End Sub Private Function Shuffle(ByRef ary As Variant) Dim i As Long, rn As Double, tmp As String For i = 1 To UBound(ary) Randomize rn = Int(UBound(ary) * Rnd) If rn <> 0 Then tmp = ary(i) ary(i) = ary(rn) ary(rn) = tmp End If Next Shuffle = ary End Function

1150897238

質問者2022/5/19 9:48

ありがとうございます もしよろしければそれぞれのコードの解説していただけますでしょうか 上手くは動くのですが、素人なのでそれぞれ書いていただいたコードの意味が理解できておらず・・・

その他の回答（1件）

0
ささいさいさい

カテゴリマスター

2022/5/18 2:09

最大回数が何を指しているのかよくわかんないです。 最大回数ってあるけど1がはいるのだけど？1が最大？ またランダム回数も100となかなか多いです。 重複者を外すためかと思いますが、 それでも運が悪いとずっと重複しつづけますので、100超えたらあかんし、 何より効率が悪いかと。 それよりも 参加者のリストを作って、選ばれたらその人をリストから引いていくってすると、今回10人なので 10→9→8→7→6→5→4→3→2→1→0 と何度もランダムで繰り返さなくなるので、 シンプルだし一応処理も早くなります。 概要は以下の手順 ①Collectionで、メンバーリスト作って Dim membersList As Collection add でメンバーを追加します。 ②メンバーリストをコピーします。(削除していくのでメンバーリストのマスターは残すため) Dim membersList As Collection Set copyMemberList = CopyList(member) ③ランダムで、メンバーリストの人数分の乱数を生成して Dim rndMember As Integer rndMember = Int(Rnd * copyMemberList .Count + 1) ④一人選びます membersList (rndMember) ⑤お仕事(お掃除か洗濯)に割り振って お仕事=copyMemberList (rndMember) ⑥その人をメンバーリストから削除します。 copyMemberList .Remove rndMember ③～⑥を繰り返す 繰り返すのはmembersList.Count でメンバー数だします。