ÁÙ­ì»P³Æ¥÷

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú¡@
            ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 12# GBKEE
  GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!¤ï¶Õ°Õ!!¬O§Ú¿ùÅo!!¹ï¤£°_...
             Åý§A¦£ÃaÂP!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 11# myleoyes
¿ï¾Ü½s¸¹3  ªº¿ù»~­×§ï¦p¤U
Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column), After:=.[b1])
­P©ó ¿ï¾Ü½s¸¹1-2 ¿ù»~ ½Ð¬Ý¦p¹Ï §i¶D§Ú SÄæ-WÄæ ¬O1 ÁÙ¬O 2 .  ¬O§A¿ùÁÙ¬O§Ú¿ù. ¤@©w¦³¤H¿ùªº

¤U¸ü (12.38 KB)

2010-6-11 13:58

myleoyes

¦^´_ 10# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!µ²ªG¬O¤@¼Ë­C!
             ¤p§Ì±N°õ¦æªºµ²ªGªþÀÉ®×Leov6-2»¡©ú
                 ¤p§Ì­×§ïµ{¦¡«á°õ¦æªºµ²ªGªþÀÉ®×Leov6-3»¡©ú
                 ½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 9# myleoyes
§Ú°õ¦æ¨S¦³°ÝÃDªº ¿ï¾Ü¨º¤@­Ó½s¸¹ ´N§R±¼¨º¤@­Ó½s¸¹ªº½d³ò¨S¿ù
¬°¨¾¤î¿ù»~­×§ï¦p¤U

1. Sub §R°£()
   
2.     Dim F As Range, i%
   
3.     If ActiveCell.Column <= 2 Then Exit Sub
   
4.     With ActiveSheet
   
5.         Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
   
6.         If F = "" Then Exit Sub
   
7.         i = 1
   
8.         Do
   
9.             If F.Offset(, i) <> F Then
   
10.                 Set F = .Range(F, F.Offset(, i - 1))
    
11.                 Exit Do
    
12.             End If
    
13.             i = i + 1
    
14.         Loop
    
15.     End With
    
16.     F.EntireColumn.Delete
    
17. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 8# GBKEE
  
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!µ{¦¡¦³°ÝÃD
            ¦pªþÀÉ®×»¡©ú½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 7# myleoyes

1. Sub §R°£()
   
2.     Dim F As Range, i%
   
3.     With ActiveSheet
   
4.         Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
   
5.         i = 1
   
6.         Do
   
7.             If F.Offset(, i) <> F Then
   
8.                 Set F = .Range(F, F.Offset(, i - 1))
   
9.                 Exit Do
   
10.             End If
    
11.             i = i + 1
    
12.         Loop
    
13.     End With
    
14.     F.EntireColumn.Delete
    
15. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 6# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!¤£¦n·N«ä½Ð¦AÀ°¦£³o­Ó§R°£¶s
                  ¦pªþÀÉ®×»¡©ú½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 5# myleoyes
½Ð¥[¤W¬õ¦â³¡¤À
Do While E.Offset(, i) <> ""
        If d.Exists(E.Offset(, i).Value) Then E.Offset(, i) = d(E.Offset(, i).Value) + M
        '­×§ï½Æ»s¸ê®Æ«á ²Ä1¦C¬Û¦P¶µ¥Ø·s¼Wªº¼Æ­È
        '->³]©w½Æ»s¸ê®Æ¤º²Ä1¦C¬Û¦P¶µ¥Øªº¼Æ­È + ¤w¦³³Æ¥÷¸ê®Æ¤¤²Ä1¦C¤º¬Û¦P¶µ¥Øªº³Ì¤j¼Æ
        i = i + 1
    Loop

myleoyes

¦^´_ 4# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!µ{¦¡ªº½s¸¹¦³¥X¤J...
              ¦pªþÀÉ®×»¡©ú½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!
              ±ß¦w!!