返回列表 上一主題 發帖

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

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

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

以此類推

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

類似這樣的概念嗎?
  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

TOP

回復 2# owen06


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

TOP

  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

TOP

本帖最後由 av8d 於 2014-4-19 13:11 編輯

回復 4# owen06


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

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

一般判定會是第一個?

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

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

TOP

本帖最後由 owen06 於 2014-4-19 16:07 編輯

回復 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+下

TOP

回復 5# av8d
VBA F1 的說明
  1. End 陳述式
  2. 結束一個程序或區塊。
  3. 語法
  4. End

  5. End Function

  6. End If

  7. End Property

  8. End Select

  9. End Sub

  10. End Type

  11. End With

  12. End 陳述式的語法有以下幾種形式:

  13. 陳述式 描述
  14. End 停止執行,可以放在程序中的任何位置,它可以關閉以 Open 陳述式所開啟的檔案,且可以清除變數。
  15. End Function 結束一個 Function 陳述式
  16. End If 結束一個 If…Then…Else 陳述式
  17. End Property 結束一個 Property Let、Property Get,或 Property Set 程序
  18. End Select 結束一個 Select Case 陳述式
  19. End Sub 結束一個 Sub 陳述式
  20. End Type 結束一個使用者自訂型態定義 (Type 陳述式 )。
  21. End With 結束一個 With 陳述式
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 6# owen06


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

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

TOP

原來End(xlup)也有這樣的表達方式!!第一次見識到,感謝 owen06 大大分享。
初新者~指教囉~

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題