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

[µo°Ý] ¦p¦ó¥Hvba¦C¥X¥Ø«eªº¤@¨Ç³]©w,Âରcode?

[µo°Ý] ¦p¦ó¥Hvba¦C¥X¥Ø«eªº¤@¨Ç³]©w,Âରcode?

¬YexcelÀÉ,­ì¥»¦³°µ¤@¨Ç³]©w¦p¤U:
ÁôÂÃÄæ
ÁôÂæC
Åã¥Ü¤ñ¨Ò(¤£¬O100%)
­áµ²µ¡®æ
¤À³Îµøµ¡
-----------
§Ú±N¤§¥þ³¡¨ú®ø,¿é¤Jdata§¹,­n¦^´_­ì¥ý¤§³]©w¦A¦sÀɵ¹§O¤H¡C
°ÝÃD¨Ó¤F,¤£¦ý³Â·Ð,¦Ó¥B¤]¤£°O±o¥ý«e¤§³]©w¡C
½Ð°Ý,¦p¦ó¼gvba,°õ¦æ«á,¥i¥H±N¤W­z¤§³]©w,²£¥Í¦b¤@­Ósheet¤¤,§Ú¥i¥H±N¤§Âà¶K¦bvbaªº¼Ò²Õ¤¤,¦p¦¹¤@¨Ó,·í¿é¤Jdata§¹«á,¥u­n°õ¦æ¸Ó¥¨¶°,§Y¥i¦^´_·íªì¤§³]©w¡C
·PÁÂ!
Symis

³Ì²³æªº¤èªk, ¬O¿ý»s¨â­Ó¥¨¶°,
1­Ó¬O °µ¤@¦¸ ÁôÂÃÄæ/¦C... µ¥µ¥°Ê§@
²Ä2­Ó¬O¤Ï¹L¨Ó°µ
¨º»ò¤U¦¸­n¦A§ï°Êªº¸Ü, ¹B¦æ¤@¤U¥¨¶°´N¥i
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¥i¬OÀɮ׫ܦh­C...
¨C­ÓÀÉÁÙ­nºCºC§ä,¦³­þ¨ÇÁôÂÃ...­nªá«Ü¤[®É¶¡
©Ò¥H¤~·Q¨ì¥Îµ{¦¡À°¦£
·PÁ±zªº¦^µª
Symis

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-3-15 15:35 ½s¿è

¦^´_ 3# symis
  1. Option Explicit
  2. Sub Ex_»s©wÀ˵ø()
  3.      ActiveWorkbook.CustomViews.Add ViewName:="À˵ø1", PrintSettings:=True, RowColSettings:=True
  4. End Sub
  5. Sub Ex_¶}±ÒÀ˵ø()
  6.      Dim E As CustomView
  7.      With ActiveWorkbook
  8.         .CustomViews("À˵ø1").Show
  9.         For Each E In .CustomViews
  10.             E.Delete
  11.         Next
  12.         .Save
  13.     End With
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂGBKEE ,
a. ·s¼WÀ˵øµe­±, ¦WºÙ: À˵ø1
b. °õ¦æ: Ex_»s©wÀ˵ø()
c. °õ¦æ: Ex_¶}±ÒÀ˵ø()
§Ú§â¥N½X¶K¤Wvba«á,°õ¦æªº¶¶§Ç¬°: a,b,c
¦ý¬O³£¨SªF¦è¥X²{?
½Ð°Ý¥¿½T°õ¦æªº¶¶§Ç¬°¦ó?
·P®¦!
Symis

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-3-19 12:55 ½s¿è

¦^´_ 5# symis
  1. ¦Û­qÀ˵ø¼Ò¦¡ªº¥\¯à:
  2. Àx¦s¤u§@ªí(µøµ¡)ªº³]©w,§@¥Î¤¤Àx¦s®æ½d³ò(¤£Àx¦s:Àx¦s®æªº­×§ï).
  3. ¦p¦¹¥i¤£¶·­×§ï¤u§@ªíªº³]©w,©I¥s¤£¦Pªº¤u§@ªí(µøµ¡)³]©w
½Æ»s¥N½X
¤£¥Î¶·¦³a³o¨BÆJ
1#»¡:  ¬YexcelÀÉ,­ì¥»¦³°µ¤@¨Ç³]©w¦p¤U: ÁôÂÃÄæ,ÁôÂæC,Åã¥Ü¤ñ¨Ò(¤£¬O100%),­áµ²µ¡®æ,¤À³Îµøµ¡.....
¶}±Ò³oexcelÀÉ®É: °õ¦æ Ex_»s©wÀ˵ø()  ->Àx¦s³o¨Ç³]©w
****1#»¡:¨Ï¥Î³oexcelÀÉ®É ·|­×§ï³o¨Ç³]©w*****
Ãö³¬³oexcelÀÉ®É. °õ¦æ: Ex_¶}±ÒÀ˵ø() ->«ì´_³o¨Ç³]©w ¦sÀÉ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

­ì¨Ó¦Û­qÀ˵ø¤]¥i¥H¹F¨ì¥Øªº,¤£¥²¥Îcode°O¿ý
·PÁ®v¥S!
Symis

TOP

¦³¥t¤@¦ìºô¤ÍJOHNªºµ{¦¡,´£¨Ñ±z°Ñ¦Ò:
Public filterArray(), hidRowArray(), hidColArray() As Variant
Public condArray(1 To 3)

Sub mcCondLog()
Set lastC = Range("A1", ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
i = 0
Erase hidRowArray
Erase hidColArray
For Each c In lastC.Rows
If c.Hidden Then
ReDim Preserve hidRowArray(1 To i + 1)
hidRowArray(i + 1) = c.Row
i = i + 1
End If
Next c
i = 0
For Each c In lastC.Columns
If c.Hidden Then
ReDim Preserve hidColArray(1 To i + 1)
hidColArray(i + 1) = c.Column
i = i + 1
End If
Next c
With ActiveWindow
condArray(1) = .SplitColumn
condArray(2) = .SplitRow
condArray(3) = .Zoom
End With
End Sub


Sub mcRestorecCond()
With Range("A1", ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
.Rows.Hidden = False
.Columns.Hidden = False
End With
For i = 1 To UBound(hidRowArray())
If Not IsEmpty(hidRowArray(i)) Then Rows(hidRowArray(i)).Hidden = True
Next i
For i = 1 To UBound(hidColArray())
If Not IsEmpty(hidColArray(i)) Then Columns(hidColArray(i)).Hidden = True
Next i
With ActiveWindow
.SplitColumn = condArray(1)
.SplitRow = condArray(2)
.Zoom = condArray(3)
End With
End Sub
°õ¦æmcCondLog¡G °O¿ý¥Ø«eªº ÁôÂÃÄæ/ÁôÂæC/Åã¥Ü¤ñ¨Ò/¤À³Îµøµ¡±ø¥ó
°õ¦æmcRestorecCond¡G«ì´_ ÁôÂÃÄæ/ÁôÂæC/Åã¥Ü¤ñ¨Ò/¤À³Îµøµ¡±ø¥ó
¦Ü©ó¡u­áµ²µ¡®æ¡v¥\¯à¡A¦]¬°VBA§ì¤£¨ì¥Ø«e­áµ²ªº¤À°t¦ì¸m¡A¦]¦¹µLªk§@°O¿ý»P«ì´_¡C
Symis

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD