¦p¦óÅýExcel¦bŪ¨úÂà¿ý§Y®É³ø»ù®É¡AÁÙ¯à¦Û°Ê½¶¡I
- ©«¤l
- 10
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-4-3
- ³Ì«áµn¿ý
- 2015-9-11
|
¦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 |
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
§Ú¬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¸¹. |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-4-3
- ³Ì«áµn¿ý
- 2015-9-11
|
§Ú¸Õ¤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 |
|
|
|
|
|
|