Hsieh

¦^´_ 10# av8d

¤U¸ü (63.83 KB)

2014-3-16 23:02

1. Private Sub CommandButton1_Click() '¤Ï¿ï
   
2. Application.EnableEvents = False
   
3. Dim Rng As Range
   
4. For Each a In Range("C:C").SpecialCells(xlCellTypeBlanks)
   
5. If Rng Is Nothing Then
   
6.   Set Rng = Union(Cells(a.Row, "B"), Cells(a.Row, "D"))
   
7.   Else
   
8.   Set Rng = Union(Rng, Union(Cells(a.Row, "B"), Cells(a.Row, "D")))
   
9. End If
   
10. Next
    
11. Rng.Copy [J1]
    
12. Rng.Copy Sheets(3).[B2]
    
13. Application.EnableEvents = True
    
14. End Sub
    
15. 
    
16. Private Sub CommandButton2_Click() '¿ï¨ú
    
17. Application.EnableEvents = False
    
18. Dim Rng As Range
    
19. Set Rng = Union([B1], [D1])
    
20. For Each a In Range("C:C").SpecialCells(xlCellTypeConstants)
    
21.   Set Rng = Union(Rng, Union(Cells(a.Row, "B"), Cells(a.Row, "D")))
    
22. Next
    
23. Range("J1").CurrentRegion.Clear
    
24. Rng.Copy [J1]
    
25. Sheets(3).[B2].CurrentRegion.Clear
    
26. Rng.Copy Sheets(3).[B2]
    
27. Application.EnableEvents = True
    
28. 
    
29. End Sub
    
30. 
    
31. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '¥´¤Ä
    
32. If Cells(Target.Row, 1) <> "" Then Cells(Target.Row, 3) = IIf(Cells(Target.Row, 3) = "", "v", "")
    
33. End Sub

½Æ»s¥N½X

¤Ï¿ï.zip (21.77 KB)

¤U¸ü¦¸¼Æ: 7

2014-3-16 23:04

Hsieh

¦^´_ 15# av8d
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '¥´¤Ä
If Cells(Target.Row, 1) <> "" And Target.Column = 3 Or Target.Column = 4 Then Cells(Target.Row, 3) = IIf(Cells(Target.Row, 3) = "", "v", "")
End Sub

Hsieh

¦^´_ 20# av8d
¥þ¿ï¬Æ»ò¦ì¸m?
¨Ò¦pCÄæ¥þ¿ï
[C:C].Select
¦]¬°§A¦³¤u§@ªí¨Æ¥óµ{§ÇSelection_Change
©Ò¥HÁקKIJµoµ{§Ç
Application.EnableEvents = False
[C:C].Select
Application.EnableEvents = True