麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 如何撰寫此程式? [打印本頁]

作者: av8d 時間: 2014-4-18 14:14 標題: 如何撰寫此程式?

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

以此類推

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

作者: owen06 時間: 2014-4-18 15:37

類似這樣的概念嗎？

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

複製代碼

回復 1# av8d

作者: av8d 時間: 2014-4-18 16:46

回復 2# owen06

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

作者: owen06 時間: 2014-4-18 17:00

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

複製代碼

回復 3# av8d

作者: av8d 時間: 2014-4-19 12:59

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

回復 4# owen06

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

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

一般判定會是第一個?

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

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

作者: owen06 時間: 2014-4-19 16:03

本帖最後由 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+下

作者: GBKEE 時間: 2014-4-19 16:30

回復 5# av8d
VBA F1 的說明

End 陳述式
結束一個程序或區塊。
語法
End
End Function
End If
End Property
End Select
End Sub
End Type
End With
End 陳述式的語法有以下幾種形式：
陳述式描述
End 停止執行，可以放在程序中的任何位置，它可以關閉以 Open 陳述式所開啟的檔案，且可以清除變數。
End Function 結束一個 Function 陳述式
End If 結束一個 If…Then…Else 陳述式
End Property 結束一個 Property Let、Property Get，或 Property Set 程序
End Select 結束一個 Select Case 陳述式
End Sub 結束一個 Sub 陳述式
End Type 結束一個使用者自訂型態定義 (Type 陳述式 )。
End With 結束一個 With 陳述式

複製代碼

作者: av8d 時間: 2014-4-20 22:15

回復 6# owen06

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

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

作者: wl02353427 時間: 2014-4-21 09:11

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)