Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


55255 / 76732 ←次へ | 前へ→

【26255】表出回数を平均化するには
質問  にしもり  - 05/6/29(水) 17:12 -

引用なし
パスワード
   以前アドバイスをいただいて作成した、シフト表をリバイスしています。
ある程度自力でできましたが、できない点があります。
シフト表のF列には人の名が繰り返し出てきます。
その左隣のE列目に、次の規則にのっとって○をつけたいのです。

まず、E3,E11,E16,E21に○をつけます。
人ごとに表出回数をカウントし、F3,F11,F16,F21の人に1ポイント追加します。
次に、E26,E34,E39,E44に○をつけるのですがその際に、
F26に在る人名のカウントがF27に在る人名のカウントより大きかったら、E26でなくE27に○をつけ、
F34に在る人名のカウントがF35に在る人名のカウントより大きかったら、E34でなくE35に○をつけ、
F39に在る人名のカウントがF40に在る人名のカウントより大きかったら、E39でなくE40に○をつけ、
F44に在る人名のカウントがF45に在る人名のカウントより大きかったら、E44でなくE45に○をつけます。

そのように531行まで繰り返し、結果、人ごとのカウントが可能な限り均等になる
ようにしたいのですが、どのようなロジックを追加すればよいかわからず壁にぶつかっています。
どなたかご教示くださいませんでしょうか。

Sub test2()

  Dim v As Variant
  Dim lc As Long
  Dim r As Long
  Dim i As Long
  Dim k As Long
  Const lr As Long = 531
  Dim rag As Range, FRw As Long
  

  With ActiveSheet
    If .Name = "営業日" Then
      MsgBox "シフト表をアクティブにして実行する事。", 64
      Exit Sub
    End If
    Application.ScreenUpdating = False
    r = 3
    i = 1
    k = 1
    m = 6
    Do While r <= lr
      Select Case False
        Case r Mod 23 = 11 Or r Mod 23 = 16
          v = Worksheets("人員").Range("A2:A30").Value
          .Cells(r, 6).Value = v(i, 1)
          i = i + 1
          If i > 29 Then i = 1
          r = r + 1
        Case Else
          v = Worksheets("人員").Range("B2:B5").Value
          .Cells(r, 6).Value = v(k, 1)
          k = k + 1
          If k > 4 Then k = 1
          r = r + 1
     
      End Select
    Loop
    Application.ScreenUpdating = True
  End With
  
End Sub
0 hits

【26255】表出回数を平均化するには にしもり 05/6/29(水) 17:12 質問
【26268】Re:表出回数を平均化するには ponpon 05/6/30(木) 0:11 発言
【26292】Re:表出回数を平均化するには にしもり 05/6/30(木) 17:21 お礼
【26294】Re:表出回数を平均化するには にしもり 05/6/30(木) 17:37 質問
【26301】Re:表出回数を平均化するには ponpon 05/6/30(木) 23:04 発言
【26308】Re:表出回数を平均化するには 小僧 05/7/1(金) 9:56 回答
【26311】Re:表出回数を平均化するには にしもり 05/7/1(金) 10:40 お礼
【26323】Re:○の数を平準化するには にしもり 05/7/1(金) 13:57 質問
【26367】Re:○の数を平準化するには ponpon 05/7/2(土) 22:25 発言
【26405】Re:○の数を平準化するには にしもり 05/7/4(月) 15:56 質問
【26415】Re:○の数を平準化するには ponpon 05/7/4(月) 20:13 発言
【26435】Re:○の数を平準化するには にしもり 05/7/5(火) 15:21 発言
【26461】Re:○の数を平準化するには ponpon 05/7/6(水) 0:23 発言
【26467】Re:○の数を平準化するには にしもり 05/7/6(水) 10:10 お礼
【26475】Re:○の数を平準化するには 小僧 05/7/6(水) 13:52 発言
【26526】Re:○の数を平準化するには にしもり 05/7/7(木) 20:28 お礼

55255 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free