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

¸ó¤u§@ªí¦Û°ÊÁôÂêťզC°ÝÃD

¸ó¤u§@ªí¦Û°ÊÁôÂêťզC°ÝÃD

¤£¦n·N«ä¡A·Q½Ð±Ð¤@¤U¤j®v­Ì2­Óµ{¦¡½Xªº°ÝÃD~~~

°ÝÃD¤@
¥H¤U¬O°w¹ï³æ¤@¬¡­¶¡A¦Û°ÊÁôÂæC5:¦C25ªÅ¥Õ¦Cªºµ{¦¡½X
·Q½Ð°Ý¦pªG·Q¦b¬¡­¶1:31¤@¦¸¦P®É°õ¦æªº¸Ü¡A¸Ó¦p¦ó­×§ï©O¡H
¥t¥~·Q¦A½Ð±Ð¬O§_¦³¤@¦¸ÁôÂêťզCªº¼gªk¡A¦Ó«D¤@¦C¤@¦CÁôÂéO¡H

Sub Macro1()
For i = 5 To 25
If Cells(i, 3) = "" Then
    Rows(i).EntireRow.Hidden = True
Else
    Rows(i).EntireRow.Hidden = False
End If
Next
End Sub

°ÝÃD¤G
¥H¤U¬O©T©w±Æ§Ç1:31¬¡­¶¡A"C6:AI14"¸ê®Æªºµ{¦¡½X¡]·PÁ stillfish00 ¤j®vÀ°¦£¡^
½Ð°Ý¸Ó¦p¦ó±N³o¨â­Óµ{¦¡½Xµ²¦X¼g¦b¤@°_©O¡H
§Æ±æ°õ¦æ±ø¥ó¬°¡G±Æ§Ç«áÁôÂêťզC

Sub Test()
    Dim i As Integer
    For i = 1 To 31
        With Sheets(CStr(i))
            .Sort.SortFields.Clear
            .Sort.SortFields.Add key:=.Range("D6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With .Sort
                .SetRange Range("C6:AI14")
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End With
    Next
End Sub

¥H¤WÁٽЦU¦ì¤j®v­Ì¤£§[«ü±Ð~~~~~~«D±`·PÁ­ò~~~~~~

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-4-3 00:31 ½s¿è
¤£¦n·N«ä¡A·Q½Ð±Ð¤@¤U¤j®v­Ì2­Óµ{¦¡½Xªº°ÝÃD~~~

°ÝÃD¤@
¥H¤U¬O°w¹ï³æ¤@¬¡­¶¡A¦Û°ÊÁôÂæC5:¦C25ªÅ¥Õ¦Cªº ...
msmplay µoªí©ó 2016-4-2 22:33

For i = 1 To 31
  Sheets(i).Rows("5:25").EntireRow.Hidden =true
Next

°ÝÃD¤G

§â©³¤U³o¦æ´¡¦b³Ì«á¤@­Ó End With «e :

Sheets(i).Rows("5:25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =true

TOP

¥»©«³Ì«á¥Ñ msmplay ©ó 2016-4-3 11:56 ½s¿è

¦^´_ 2# luhpro

l¤j~~~~«D±`·PÁ±zªº¼ö¤ßÀ°¦£¡A¦ý¤p©f¹J¨ì´X­Ó°ÝÃD¡A¬O§Ú¨S»¡©ú²M·¡¯uªº«D±`©êºp~~~~~~~
´N¬O°ÝÃD¤@ªº1:31¬¡­¶¡B¦C5:¦C25¡AÁÙ¥²¶·¬O²Ä3Ä欰ªÅ¥Õ®æ¤~»ÝÁôÂáC¦]¬°´ú¸Õ¤F¤@¤U¡Aµo²{¦C5:¦C25©~µM¥þÁôÂäF
For i = 5 To 25
If Cells(i, 3) = "" Then

µM«á°ÝÃD¤G¡A§Ú§âl¤jªºµ{¦¡½X´¡¤J«á³Ì«á¤@­Ó End With «e¡]¦p¤U¡^¡A¦ý¥¦«o³s§Oªº¬¡­¶¤]¸òµÛ³Q¼vÅT¤F¡C
³Ì¤U¹Ï¬OÀɮתº¬¡­¶¡A­ì¥u»Ý±Æ§Ç¸òÁôÂÃ1:31¬¡­¶¡A¦ý­×§ï«á³s¤ëÁ`ªí¡B¶g®Éªí¤]¸òµÛ³QÁôÂäF¡A½Ð°Ý¬O§_¥i¦AÀ°À°¤p©f©O!!«D±`·PÁÂ~~~~~~~~
Sub Test()
    Dim i As Integer
    For i = 1 To 31
        With Sheets(CStr(i))
            .Sort.SortFields.Clear
            .Sort.SortFields.Add key:=.Range("D6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With .Sort
                .SetRange Range("C6:AI14")
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
Sheets(i).Rows("5:25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =true
        End With
    Next
End Sub

Â^¨ú.PNG
2016-4-3 11:47

TOP

¤p©f¤w¸É¤W´ú¸ÕÀÉ¡A¨Ã©óÀɮפº¦A¦¸»¡©ú­ì©lªº°ÝÃD¡A¤£ª¾¹D~~~~~~¬O§_¥i¦A³Â·Ð¤j®v­Ì¨ó§UÀ°¦£¬Ý¬Ý©O!!

´ú¸ÕÀÉ.rar (52.25 KB)

TOP

¦^´_ 3# msmplay


Sheets(i).Rows("5:25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =true

i ¥¼Âର[¤å¦r]«¬ºA, ¬O¥H INDEX ³B²z¤u§@ªí, ¦Ó¤£¬O¤u§@ªí[¦WºÙ],
³Ì²³æ¤èªk:
Sheets(i & "").Rows("5:25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =true

¥Î­ì¨Óªº CSTR( i)  ¤]¥i!!!

TOP

¦^´_ 5# ­ã´£³¡ªL

­ã¤j~~~§A¬O»¡§ï¦¨¥H¤UÂæ¶Ü¡H¤@©w¤£¬O¹ï¤£¹ï!!¦]¬°¤p©f¸Õ§¹Åܦ¨¥H¤UÂæ~~¥i¥H¦A±Ï±Ï¤p©f§Ú¶Ü~~~~

Sub Test()
    Dim i As Integer
    For i = 1 To 31
        With Sheets(CStr(i))
            .Sort.SortFields.Clear
            .Sort.SortFields.Add key:=.Range("D6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With .Sort
                .SetRange Range("C6:AI14")
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
Sheets(i & "").Rows("5:25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =true
        End With
    Next
End Sub

(¤Ï¶À¬O­nÁôÂ꺦C)
1.PNG
2016-4-5 00:15
2.PNG
2016-4-5 00:16

TOP

¦^´_ 5# ­ã´£³¡ªL

©êºp¡A¦A¸É¥R¤@¤U¡A¦]¬°¨C­Ó¬¡­¶ªºCÄæ©m¦W¡AªÅ¥Õªº¦C¦ì¦³¥i¯à³£¤£¤@¼Ë¡A©Ò¥H¤£¬O­n©T©wÁôÂíþ´X¦Cªº·N«ä³á!!©È¤S³y¦¨¤j®a»~·|¤F~~~~

TOP

  1. Sub ±Æ§Ç¯Z§O()
  2. Dim i As Integer
  3. For i = 1 To 31
  4.     With Sheets(i & "")
  5.         '±Æ§Ç
  6.         .[C5:AI16].Sort Key1:=.[D5], Order1:=xlAscending, Header:=xlNo, _
  7.                   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  8.                   
  9.         'ÁôÂÃ
  10.         On Error Resume Next '²¤¹L¨S¦³ªÅ¥Õ®æªº¿ù»~
  11.         .[C5:C16].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
  12.         On Error GoTo 0
  13.     End With
  14. Next i
  15. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ msmplay ©ó 2016-4-5 13:23 ½s¿è

¦^´_ 8# ­ã´£³¡ªL

­ã¤j~~~~¶W¯Å·PÁ±z¼ö¤ßÀ°¦££x
¤£¹L¤p©f¦n¹³¤S¹J¨ì¥t¤@­Ó°ÝÃD¡A´N¬O¤½¥qÀɮפºªºC5 : D16ªÅ¥ÕÀx¦s®æ¡A¨ä¹ê¬O¥HIF¤½¦¡§PÂ_¬O§_¬°ªÅ®æ©Î±a­È¡A¦ýµo²{¦n¹³Âæ´N¨S¿ìªk±Æ§Ç¸òÁôÂäF¡C

¥i¥H¦A½Ð±Ð¤@¤U­ã¤j¸Ó¦p¦ó­×§ï¶Ü¡H¯uªº¬O³Â·Ð±z¤F~~~~

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2016-4-5 16:40 ½s¿è

¦^´_ 9# msmplay

¢ÑÄ榳¤½¦¡¡A¤£°Ê¥¦¡A§Q¥Î¢Ï¢ØÄ欰»²§U¡]ª`·N¡G¢Ï¢ØÄ椣¥i¬°¤å¦r®æ¦¡¡A¶·¬°¡e³q¥Î®æ¦¡¡f¡^¡@

Sub ±Æ§Ç¯Z§O()
Dim i As Integer
Application.Calculation = xlCalculationManual 'Ãö³¬¦Û°Ê­«ºâ, ¥[§Ö³t«×
For i = 1 To 31
¡@¡@With Sheets(i & "")
¡@¡@¡@¡@¡@.[AJ5:AJ16] = .[D5:D16].Value '±NDÄ椽¦¡­È¼È¶K¦ÜAJÄæ
¡@¡@
¡@¡@¡@¡@¡@'±Æ§Ç(§ï¥HAJÄ欰¥D)
¡@¡@¡@¡@¡@.[C5:AJ16].Sort Key1:=.[AJ5], Order1:=xlAscending, _
¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@Header:=xlNo, OrderCustom:=1, _
¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@MatchCase:=False, Orientation:=xlTopToBottom
¡@¡@
¡@¡@¡@¡@¡@.[AJ5:AJ16] = .[C5:C16].Value '±NCÄ椽¦¡­È¼È¶K¦ÜAJÄæ
¡@¡@¡@¡@¡@On Error Resume Next '²¤¹L¨S¦³ªÅ¥Õ®æªº¿ù»~
¡@¡@¡@¡@¡@.[AJ5:AJ16].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True 'ÁôÂÃ
¡@¡@¡@¡@¡@On Error GoTo 0
¡@¡@
¡@¡@¡@¡@¡@.[AJ5:AJ16].ClearContents '²M°£AJÄæ
    End With
Next i
Application.Calculation = xlCalculationAutomatic '«ì´_¦Û°Ê­«ºâ
End Sub

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD