ashan0418

¦^´_ 1# hpmatri

¦¨ÁZ¬O¨ú«e3¦W¡AÁÙ¬O¨ÌSheet1ªº±Æ¦Cªº«e¤T­Ó§Y¥i??

ashan0418

¦^´_ 1# hpmatri

¨ú«e¤T¦W¥Î

ashan0418

1. Dim i As Integer, last_row As Integer
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     With Target
   
4.         last_row = Selection.SpecialCells(xlCellTypeLastCell).Row
   
5.         
   
6.         If Selection.Column = 3 And Cells(last_row, 3).Value >= 60 Then
   
7.                 i = i + 1
   
8. 
   
9.                 Sheets("sheet2").Select
   
10.                 If i Mod 3 = 1 Then
    
11.                     Sheets("sheet2").Cells.Delete Shift:=xlUp
    
12.                     Sheets("sheet2").Range("B5").Activate
    
13.                 End If
    
14.                 Sheets("sheet1").Select
    
15.                 Range(Cells(last_row, 1), Cells(last_row, 3)).Copy
    
16.                
    
17.                 Sheets("sheet2").Select
    
18.                 ActiveCell.PasteSpecial
    
19.                 ActiveCell.Offset(1).Select
    
20.                
    
21.                 Sheets("sheet1").Select
    
22.         End If
    
23.     End With
    
24. End Sub

½Æ»s¥N½X

¦^´_ 4# hpmatri

ashan0418

¦^´_ 6# hpmatri


©êºp¡A§Ñ¤F»¡©ú¡A¬O­n¶K¦bSheet1ªº¤À­¶¤¤!!
¦p¹Ï¡A½Ð¦A¸Õ¸Õ!!

¤U¸ü (18.98 KB)

2014-12-16 09:20

ashan0418

¦^´_ 8# Hsieh

Hsiehª©¥D :

    ½Ð°Ý¡yIntersect(Target, Columns("C:C"))¡z³o¤@¬qªº¥\¯à¬O¤°»ò??