Excel VBA質問箱 IV

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

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


55037 / 76732 ←次へ | 前へ→

【26475】Re:○の数を平準化するには
発言  小僧  - 05/7/6(水) 13:52 -

引用なし
パスワード
   ▼にしもり さん、ponpon さん:
こんにちは。

>これ以上お聞きすると「おんぶにだっこ」になってしまいますので
>以後は自力でやってみます。

とのスレッドに書き込むのをお許し下さい。
参考程度にでも使ってやって下さい。

F列に既に名前が入っている事と、2行目に表題がついている事が前提です。

Sub 平準化()
Dim I As Long 
Dim J As Long 
Dim K As Long   
Dim MyRange As Range
  
  ActiveSheet.Range("Z2").Value = "回数"
  ActiveSheet.Range("Z3:Z531").Value = 0
  
  For I = 3 To 531
    Select Case I Mod 23
      Case 3
        J = I + 7
      Case 11, 16, 21
        J = I + 4
    End Select

  Set MyRange = ActiveSheet.Range("Z" & I & ":Z" & J)
    For K = 1 To MyRange.Count
      If MyRange(K) = WorksheetFunction.Min(MyRange.Value) Then
        MyRange(K).Offset(0, -21).Value = "○"
        Call カウントアップ(MyRange(K))
        Exit For
      End If
    Next
    I = J
  Next
  Set MyRange = Nothing
End Sub


Sub カウントアップ(MyRange As Range)
Dim R As Range
  ActiveSheet.Range("F2:F531").AutoFilter _
  Field:=1, Criteria1:=MyRange.Offset(0, -20).Value
  
  Set R = Range("Z2", "Z" & Range("Z65535").End(xlUp).Row)
    R.Value = R(2).Value + 1
  Set R = Nothing  
  ActiveSheet.AutoFilterMode = False
End Sub

Z列を作業列としてカウント数を表示してありますが、
動作が確認できましたら消して下さい。

お邪魔しました。
1 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 お礼

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