[µo°Ý] ¦p¦ó¼¶¼g¦¹µ{¦¡?

av8d

if [A2]="" then [E2]="£¾"
if [A3]="" then [E3]="£¾"

¥H¦¹Ãþ±À

¦pªGA4="" «h¸õÂ÷³oµ{¦¡
¥H¤W¬O¤ñ³ë~¦]¬°¸ê®Æ¬°¤£©w­È

owen06

Ãþ¦ü³o¼Ëªº·§©À¶Ü¡H

1. Sub test()
   
2. For i = 2 To 10
   
3. If Sheet1.[a4] = "" Then Exit Sub
   
4.      If Sheet1.Cells(i, 1) = "" Then
   
5.      Sheet1.Cells(i, 5) = "V"
   
6.      Else: Sheet1.Cells(i, 5) = ""
   
7.      End If
   
8. Next
   
9. End Sub

½Æ»s¥N½X

¦^´_ 1# av8d

av8d

¦^´_ 2# owen06


½Ð°Ý¤j¤j~¦pªG¤£­nÅý¥L¥u§PÂ_¨ìA4~
§PÂ_¬ÝAÄ榳¦h¤Ö¸ê®Æ´N¨ì¦h¤Ö~¸Ó¦p¦ó§ï©O~ÁÂÁÂ

owen06

1. Sub test()
   
2. Dim LR As Long
   
3. LR = Sheet1.[a65536].End(3).Row
   
4. For i = 2 To LR
   
5.      If Sheet1.Cells(i, 1) = "" Then
   
6.      Sheet1.Cells(i, 5) = "V"
   
7.      Else: Sheet1.Cells(i, 5) = ""
   
8.      End If
   
9. Next
   
10. End Sub

½Æ»s¥N½X

¦^´_ 3# av8d

av8d

¦^´_ 4# owen06


     ÁÂÁ¤j¤jªºÀ°§U~«D±`¦n¥Î~

·Q¸ß°ÝÃö©ó
²Ä¤@­Ó©M²Ä¤G­Ó­þ­Ó¤ñ¸û¸`¬Ù®Ä¯à¡H

¤@¯ë§P©w·|¬O²Ä¤@­Ó?

¦]¬°²Ä¤G­Ó¦pªG¸ê®Æ´Nºâ¥u¦³2µ§~¦ý¬O¥L¨ÌµM·|¶]65536¦¸¡H¹ï¶Ü¡H

--------------------------------------------------------------------------
³Ì«á°½°½¸ß°Ý¤@¤UEnd(3)©MEndªº®t²§¡H

owen06

¦^´_ 5# av8d


     ·íµM¬O²Ä¤G­Ó¤èªk³Ì¦n§r¡A
     [a65536].end(3)=[a65536].end(xlup)
     µ¥©ó¬O§A¦ba65536®É«öµÛctrl¥[¤è¦VÁä¤W¡A
     §A¦Û¤v¥h«ö¬Ý¬Ý¡A´Nª¾¹Dµ²ªG¤F¡C
     ¥L·|¦Û°Ê§PÂ_¥X¥X¸ê®Æ¹ê»Úªº½d³ò¨ì­þ¡A
     ´N¤£¥Î¦b¨ºÃä§ï¨Ó§ï¥h³]©w­È¤F¡C
   
      .end(1)=.end(xltoleft)=Áä½Lctrl+¥ª
      .end(2)=.end(xltoright)=Áä½Lctrl+¥k
      .end(3)=.end(xlup)=Áä½Lctrl+¤W
      .end(4)=.end(xldown)=Áä½Lctrl+¤U

GBKEE

¦^´_ 5# av8d
VBA F1 ªº»¡©ú

1. End ³¯­z¦¡
   
2. µ²§ô¤@­Óµ{§Ç©Î°Ï¶ô¡C
   
3. »yªk
   
4. End
   
5. 
   
6. End Function
   
7. 
   
8. End If
   
9. 
   
10. End Property
    
11. 
    
12. End Select
    
13. 
    
14. End Sub
    
15. 
    
16. End Type
    
17. 
    
18. End With
    
19. 
    
20. End ³¯­z¦¡ªº»yªk¦³¥H¤U´XºØ§Î¦¡¡G
    
21. 
    
22. ³¯­z¦¡ ´y­z
    
23. End °±¤î°õ¦æ¡A¥i¥H©ñ¦bµ{§Ç¤¤ªº¥ô¦ó¦ì¸m¡A¥¦¥i¥HÃö³¬¥H Open ³¯­z¦¡©Ò¶}±ÒªºÀɮסA¥B¥i¥H²M°£ÅܼơC
    
24. End Function µ²§ô¤@­Ó Function ³¯­z¦¡
    
25. End If µ²§ô¤@­Ó If¡KThen¡KElse ³¯­z¦¡
    
26. End Property µ²§ô¤@­Ó Property Let¡BProperty Get¡A©Î Property Set µ{§Ç
    
27. End Select µ²§ô¤@­Ó Select Case ³¯­z¦¡
    
28. End Sub µ²§ô¤@­Ó Sub ³¯­z¦¡
    
29. End Type µ²§ô¤@­Ó¨Ï¥ÎªÌ¦Û­q«¬ºA©w¸q (Type ³¯­z¦¡ )¡C
    
30. End With µ²§ô¤@­Ó With ³¯­z¦¡

½Æ»s¥N½X

av8d

¦^´_ 6# owen06


    «D±`·PÁ¨â¦ì¤j¤jªº¥Î¤ß~

GBKª©¥Dªº¤ñ¸û²`¶ø~§Ú·|§V¤O¾Ç²ßªº~

wl02353427

­ì¨ÓEnd(xlup)¤]¦³³o¼Ëªºªí¹F¤è¦¡!!²Ä¤@¦¸¨£ÃѨì¡A·PÁ owen06 ¤j¤j¤À¨É¡C