[µo°Ý] ¦p¦ó§Ö³t½Æ»s³Ñ¤U¨S³Q¿ï¦±ªº?

av8d

A1 B1 C1 D1  ¤À§O¬°  ½s¸¹  ³æ¦ì  ©m¦W  Â¾ºÙ
¸ê®Æµ§¼Æ¤£©w
¤@¯ë®Ö¹ï¸ê®Æ®É³£¬O§â§Ú¾Ö¦³ªº¿ï¨ú~
§ä¥X³Ñ¤U¨S³Q¿ï¨úªº~

§Ú¸Ó¦p¦ó§Ö³t½Æ»s³o¨Ç³Ñ¤U¨S³Q¿ï¦±ªº©O?
¦]¬°¸g±`¨Ï¥Î~¨C¦¸³£¥²¶·¿é¼gµù°O¦b¿ï¨ú³o¨Ç¨S³Q¿ï¨úªº~
«D±`³Â·Ð~½Ð±Ð¦U¦ì¤j¤j¤F

av8d

¦^´_ 21# Hsieh


   §Ú«ö¥þ³¡§R°£~µM«áÂI½Æ»s¨S¤Ä¿ïªº~´NOK¤F~
§Ú­è´ú¸Õ¤F¤@¤UH¦Ñ®vªº~¦ü¥G¨S¤ÏÀ³~
¼È®É¥Î½Æ»s¨S¤Ä¿ïªº~ÁÂÁ¦Ѯv

Hsieh

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

av8d

¦^´_ 17# Hsieh


    ½Ð±ÐH¦Ñ®v~
§Ú±N±zªºµy·L§ï¤F¤@¤U

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '¥´¤Ä
   
2. If Cells(Target.Row, 1) <> "" And Target.Column = 3 Or Target.Column = 5 Then Cells(Target.Row, 5) = IIf(Cells(Target.Row, 5) = "", "v", "")
   
3. End Sub

½Æ»s¥N½X

½Ð°Ý§Ú»s§@¤F¤@­Ó«ö¶s~·QÅý¥L«ö¤U¥h«á~¥þ¿ï©Î¥þ§R
¬O§_¦³¿ìªk?¦A¦¸·PÁÂ

-------------------------------------------------------------------
¥þ§R§Ú¤j·§·Q¨ì¤F~´N¬Oª½±µ«ü©w§R°£¤@¾ã¦æ~
¥þ¿ï¤j·§·Q¨ìªº¤èªk´N¬O­t¨î¨S¥´¤Äªº
¦A¦¸·PÁÂH¦Ñ®v

yen956

¦^´_ 17# Hsieh
ÁÙ¦n¦³¤j¤jªºÀ°¦£, ¤£µM¯u·|³Q¦Ò­Ë, ¦¬¤U°Õ, ÁÂÁÂ!!

av8d

¦^´_ 17# Hsieh


    «D±`·PÁÂHsieh¤j¤j©Myen956¤j¤jªº¤j¤OÀ°§U
¨ü¯q¨}¦h~Åý§Úªº°ÝÃD³£ªï¤b¦Ó¸Ñ~¦A¦¸·PÁ¡I

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

av8d

¦^´_ 13# yen956


    ½Ð°Ý¯à§_¥u«ö¤U¤@­Ó«ö¶s¥i¥H¦P®É§¹¦¨?¦p¤U
³æ«ö¶s.rar (21.41 KB)

¤U¸ü¦¸¼Æ: 2

2014-3-17 19:52

¦]¬°¤u§@ªí2ªº¤j¤ò©M¤T¤ò³Q¥´¤Ä
«ö¤U«ö¶s«á~²£¥Í¤FJ1:M3
¦P®É¤]²£¥Í¤F¤u§@ªí1ªºB2:D3

¥i¯à¦³ÂIÃø«×~¤£¹LÁÙ¬O«Ü·PÁ¤j¤jªºÀ°¦£

av8d

¦^´_ 14# Hsieh

§Ú¹Á¸Õ­×§ï¤F¤@¤Uµ{¦¡~¥i¯à¬O§ÚÁÙ¨S²z¸Ñ~
©Ò¥HÁÙµLªk§ï¥X§Ú§Æ±æªºµª®×~¯à§_¦³³Ò¤j¤j¥N¬°­×§ï¤F
    §Æ±æµª®×¬O³o¼Ë~¦p¤U
¥¿¤Ï.rar (20.51 KB)

¤U¸ü¦¸¼Æ: 2

2014-3-17 19:38

IJµo¥´¤Äªº¥u­nC,DÄæ´N¦n~¨ä¾lªºÄæ¦ì§Æ±æ¥i¥H¤£­nIJµo~ÁÂÁÂ

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