register313

½Ð¦A»¡©ú²M·¡
¦­¥¿ ¦­P ¤¤P HPT        ±ß¥¿ ±ßP HPT  ¦p¦ó°Ï¤À
¦U¾´x¤§¥N½X¬°¦ó

register313

1.VBAªì¾ÇªÌ,½Ð¦U¦ì¤j¤j«ü¥¿
2.11¤ë­û¤u ¤u§@ªíµ²ºc¤Ó¶Ã «Øij§ïÄYÂÔ¤@¨Ç

Public A, D, R, S1, S2, S3, S4

Sub ±Æ¯Z()

  For D = 1 To 31
    Sheets(D + 1).Select
    Range("B7:K27").Select
    Selection.ClearContents
   
    '¦­¯Z
    S1 = 7
    S2 = 9
    S3 = 11
    S4 = 14
    For A = 7 To 15
      R = 2
      Call ±Æ¯Z1
    Next A
   
    '¤¤¯Z
    S1 = 7
    S2 = 9
    S3 = 11
    S4 = 14
    For A = 23 To 28
      R = 3
      Call ±Æ¯Z1
    Next A
   
    '±ß¯Z
    S1 = 7
    S2 = 9
    S3 = 11
    S4 = 14
    For A = 33 To 41
      R = 4
      Call ±Æ¯Z1
    Next A
  Next D
  
End Sub

Sub ±Æ¯Z1()
   
    °õ´x = Sheets(1).Cells(A, D + 5)
    Select Case °õ´x
    Case "4"
          Sheets(D + 1).Cells(S1, R) = Sheets(1).Cells(A, 4)
          S1 = S1 + 1
    Case "7"
          Sheets(D + 1).Cells(S2, R) = Sheets(1).Cells(A, 4)
          S2 = S2 + 1
    Case "1"
          Sheets(D + 1).Cells(S3, R) = Sheets(1).Cells(A, 4)
          S3 = S3 + 1
    Case "2"
          Sheets(D + 1).Cells(S4, R) = Sheets(1).Cells(A, 4)
          S4 = S4 + 1
    Case Else
    End Select
   
End Sub