ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excel±Æ¯Zªí°ÝÃD

[µo°Ý] Excel±Æ¯Zªí°ÝÃD

¦U¦ì¥ý¶i¦­:
              ¦³¤@¨Ç°ÝÃD·Q½Ð±Ð¤@¤U
                       ¥»ªí¤p§Ì¥D­nªº·§©À¬°¦b½ü­Èªí¤WKEY¤W§Ú©Ò³]ªº¥N¸¹
                       ¤H­û§Y·|¹ïÀ³¨ì¯Zªí¤W,§Ú¥D­n¬O¥HIF¨ç¼Æ¥h§¹¦¨¡C
                      °ÝÃD¤@:¬O§_¦³¨ä¥L¤èªk¥i¥H´À¥N,©È¤H­û¤@¦hIF¨ç¼ÆµLªk­t²ü
                      °ÝÃD¤G:Á`¦@­n°µ31¤Ñ,¤p§Ì²Ä¤@¤Ñ¤½¦¡³]¦n«á,½Æ»s¨ì«á­±ªº¬¡­¶¤W
                                    ¤~µo²{¸ó¬¡­¶¤½¦¡¶K¤W,§ì¨ìªº¸ò«e­±ªº¤@¼Ë,¤p§Ì¥Ø«e¥u·|¥Î¤â°Ê­×§ï
                                    ¤£ª¾¬O§_¦³§ó²©öªº¤è¦¡¡E
                      ¥H¤W¨âÂIÀµ½Ð·s¶iÀ°­Ó¦£!!«D±`·PÁÂ!!

±Æ¯Zªí.zip (48.18 KB)

¬Û¤¬¥æ¬y¨D¶i¨B

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

TOP

¯u©êºp¸ê®Æ¨S»¡²M·¡
1.¥N½X: 1=Âd¥x  2=¼Ó¼h  7=¼p©Ð  4=»â¥x
2.½ü­Èªí²Ä¤@³¡¤À¬°¦­¯Z ²Ä¤G³¡¤À¤¤¯Z ²Ä¤T³¡¤À±ß¯Z  ¤£¥Î¤À¥¿­Ý¾
   ¥u»Ý¤À¯Z¬q§e²{§Y¥i¡C
¦A³Â·Ð¥ý¶i¤F!!«D±`·PÁÂ!!
¬Û¤¬¥æ¬y¨D¶i¨B

TOP

³o¼Ëªº¸ê®Æ¦ü¥G¤£°÷§¹¾ã
±Æ¯Zªº¨Ì¾Ú¦n¹³­n»¡²M·¡§a
jeason

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2011-11-21 22:50 ½s¿è

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

±Æ¯Zªí.rar (30.16 KB)

TOP

«Ü·PÁ·s¶iªº¦^µª,ÁöµM¤p§Ì¬Ý¤£À´VBA
§Ú·|¦A§V¤Oªº,ÁÂÁÂ!!
¬Û¤¬¥æ¬y¨D¶i¨B

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD