¸ó¤u§@ªí¦Û°ÊÁôÂêťզC°ÝÃD
- ©«¤l
- 218
- ¥DÃD
- 73
- ºëµØ
- 0
- ¿n¤À
- 290
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-5-19
- ³Ì«áµn¿ý
- 2022-11-29
|
¸ó¤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ÁÂò~~~~~~ |
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ 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
§â©³¤U³o¦æ´¡¦b³Ì«á¤@Ó End With «e :
Sheets(i).Rows("5:25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =true |
|
|
|
|
|
|
- ©«¤l
- 218
- ¥DÃD
- 73
- ºëµØ
- 0
- ¿n¤À
- 290
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-5-19
- ³Ì«áµn¿ý
- 2022-11-29
|
¥»©«³Ì«á¥Ñ 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
|
|
|
|
|
|
|
- ©«¤l
- 218
- ¥DÃD
- 73
- ºëµØ
- 0
- ¿n¤À
- 290
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-5-19
- ³Ì«áµn¿ý
- 2022-11-29
|
¤p©f¤w¸É¤W´ú¸ÕÀÉ¡A¨Ã©óÀɮפº¦A¦¸»¡©úì©lªº°ÝÃD¡A¤£ª¾¹D~~~~~~¬O§_¥i¦A³Â·Ð¤j®v̨ó§UÀ°¦£¬Ý¬Ý©O!!
´ú¸ÕÀÉ.rar (52.25 KB)
|
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-25
|
¦^´_ 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!!! |
|
|
|
|
|
|
- ©«¤l
- 218
- ¥DÃD
- 73
- ºëµØ
- 0
- ¿n¤À
- 290
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-5-19
- ³Ì«áµn¿ý
- 2022-11-29
|
|
|
|
|
|
|
- ©«¤l
- 218
- ¥DÃD
- 73
- ºëµØ
- 0
- ¿n¤À
- 290
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-5-19
- ³Ì«áµn¿ý
- 2022-11-29
|
¦^´_ 5# ã´£³¡ªL
©êºp¡A¦A¸É¥R¤@¤U¡A¦]¬°¨CÓ¬¡¶ªºCÄæ©m¦W¡AªÅ¥Õªº¦C¦ì¦³¥i¯à³£¤£¤@¼Ë¡A©Ò¥H¤£¬On©T©wÁôÂÃþ´X¦Cªº·N«ä³á!!©È¤S³y¦¨¤j®a»~·|¤F~~~~ |
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-25
|
- Sub ±Æ§Ç¯Z§O()
- Dim i As Integer
- For i = 1 To 31
- With Sheets(i & "")
- '±Æ§Ç
- .[C5:AI16].Sort Key1:=.[D5], Order1:=xlAscending, Header:=xlNo, _
- OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
-
- 'ÁôÂÃ
- On Error Resume Next '²¤¹L¨S¦³ªÅ¥Õ®æªº¿ù»~
- .[C5:C16].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
- On Error GoTo 0
- End With
- Next i
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 218
- ¥DÃD
- 73
- ºëµØ
- 0
- ¿n¤À
- 290
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-5-19
- ³Ì«áµn¿ý
- 2022-11-29
|
¥»©«³Ì«á¥Ñ 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~~~~ |
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-25
|
¥»©«³Ì«á¥Ñ ã´£³¡ª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 |
|
|
|
|
|
|