[發問] 如何撰寫此程式?

av8d

if [A2]="" then [E2]="ˇ"
if [A3]="" then [E3]="ˇ"

以此類推

如果A4="" 則跳離這程式
以上是比喻~因為資料為不定值

owen06

類似這樣的概念嗎？

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

複製代碼

回復 1# av8d

av8d

回復 2# owen06


請問大大~如果不要讓他只判斷到A4~
判斷看A欄有多少資料就到多少~該如何改呢~謝謝

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

複製代碼

回復 3# av8d

av8d

回復 4# owen06


     謝謝大大的幫助~非常好用~

想詢問關於
第一個和第二個哪個比較節省效能？

一般判定會是第一個?

因為第二個如果資料就算只有2筆~但是他依然會跑65536次？對嗎？

--------------------------------------------------------------------------
最後偷偷詢問一下End(3)和End的差異？

owen06

回復 5# av8d


     當然是第二個方法最好呀，
     [a65536].end(3)=[a65536].end(xlup)
     等於是你在a65536時按著ctrl加方向鍵上，
     你自己去按看看，就知道結果了。
     他會自動判斷出出資料實際的範圍到哪，
     就不用在那邊改來改去設定值了。
   
      .end(1)=.end(xltoleft)=鍵盤ctrl+左
      .end(2)=.end(xltoright)=鍵盤ctrl+右
      .end(3)=.end(xlup)=鍵盤ctrl+上
      .end(4)=.end(xldown)=鍵盤ctrl+下

GBKEE

回復 5# av8d
VBA F1 的說明

1. End 陳述式
   
2. 結束一個程序或區塊。
   
3. 語法
   
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 陳述式的語法有以下幾種形式：
    
21. 
    
22. 陳述式 描述
    
23. End 停止執行，可以放在程序中的任何位置，它可以關閉以 Open 陳述式所開啟的檔案，且可以清除變數。
    
24. End Function 結束一個 Function 陳述式
    
25. End If 結束一個 If…Then…Else 陳述式
    
26. End Property 結束一個 Property Let、Property Get，或 Property Set 程序
    
27. End Select 結束一個 Select Case 陳述式
    
28. End Sub 結束一個 Sub 陳述式
    
29. End Type 結束一個使用者自訂型態定義 (Type 陳述式 )。
    
30. End With 結束一個 With 陳述式

複製代碼

av8d

回復 6# owen06


    非常感謝兩位大大的用心~

GBK版主的比較深奧~我會努力學習的~

wl02353427

原來End(xlup)也有這樣的表達方式!!第一次見識到，感謝 owen06 大大分享。