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

¦p¦óÅýExcel¦bŪ¨úÂà¿ý§Y®É³ø»ù®É¡AÁÙ¯à¦Û°Ê½­¶¡I

¦p¦óÅýExcel¦bŪ¨úÂà¿ý§Y®É³ø»ù®É¡AÁÙ¯à¦Û°Ê½­¶¡I

§Ú¬O­ÓExcel VBAªºµæ³¾¡A³o­ÓVBA½s½X¬O§Ú¥Î¨Ó´ú¸Õ´Á«üªº§Y®ÉŪ¨ú¥Îªº¡A­ì¥»´Á±æ³ø»ùÂà¿ý¨ìµe­±¤Wªº³Ì«á¤@¦C®É¡A¨t²Î¯à¦Û°Ê©¹¤U½­¶©Î¯à©¹¤U·s¼W«O«ù¦³5¦C¥ª¥kªºªÅ¥Õ¦C¡C½Ð¦U¦ì«e½ú½ç±Ð¡C
½s½X¦p¤U¡G

Sub Ū¨ú¨ÃÂà¿ý´Á«ü()
    Dim I As Long
    Dim ¤W¤@¦¸ªºÁ`¶q As Long, §Y®ÉÁ`¶q As Long
    Range("A2:C1000").Select
    Selection.ClearContents
    I = 1
    ¤W¤@¦¸Á`¶q = 0
    With Sheets("§Y®É³ø»ù")
     Do
     §Y®ÉÁ`¶q = .Cells(4, 7)
     If §Y®ÉÁ`¶q <> ¤W¤@¦¸ªºÁ`¶q Then
     I = I + 1
     Sheets("Âà¿ý").Cells(I, 1) = .Cells(4, 4)
     Sheets("Âà¿ý").Cells(I, 2) = .Cells(4, 6)
     Sheets("Âà¿ý").Cells(I, 3) = .Cells(4, 7)
     End If
     ¤W¤@¦¸ªºÁ`¶q = §Y®ÉÁ`¶q
     DoEvents
     Loop Until I = 100
     MsgBox "Âà¿ý§¹¦¨"
    End With
End Sub

§Ú¬O­ÓExcel VBAªºµæ³¾¡A³o­ÓVBA½s½X¬O§Ú¥Î¨Ó´ú¸Õ´Á«üªº§Y®ÉŪ¨ú¥Îªº¡A­ì¥»´Á±æ³ø»ùÂà¿ý¨ìµe­±¤Wªº³Ì«á¤@¦C ...
oklin µoªí©ó 2015-4-22 16:24

³Ì²³æªº¤è¦¡¬O¦b
Sheets("Âà¿ý").Cells(I, 3) = .Cells(4, 7)
©³¤U¥[¤W¤@¦æ :
Sheets("Âà¿ý").Cells(I+5, 1).select
¤£¹L·|©ìºC¾ãÅé³t«×.

©ÎªÌ­Y§A¥i¥H½T©w±²°Ê³W«ß,(Âà¿ý´X¦æ«á­n¸õ¨ì­þ¤@¦C)
¨º¥i¥H¥Î ActiveWindow.ScrollRow=¼Ðªº¦C¸¹
ªº«ü¥Oª½±µ±²°Êµøµ¡¨ì«ü©w¦C¸¹.

TOP

§Ú¸Õ¤F±z«ü¾Éªº¨âºØ¤è¦¡
µ²ªG²Ä¤GºØ¥i¥H¹F¦¨§Úªº´Á±æ
¸g¹L´X¦¸´ú¸Õ«á¡A§Úµo²{¦b
Sheets("Âà¿ý").Cells(I, 3) = .Cells(4, 7)
©³¤U¥[¤W¥H¤U¤T¦æ
If I > 20 Then
             ActiveWindow.ScrollRow = I - 20
End If
­è¦n¥i¥H¦b§Úªº¿Ã¹õ¤U¤è¤@ª½«O«ù¤­¦æªºªÅ¥Õ¦C¡A·sªº¸ê®Æ«h¤@ª½³Q©¹¤W±À¡C
«D±`·PÁ¤j¤j¡C

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD