返回列表 上一主題 發帖

If Not c Is Nothing Then語法

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 »
發表於 2012-7-17 10:39 | 顯示全部帖子
本帖最後由 hugh0620 於 2012-7-17 11:09 編輯

回復 1# m09903020

RR = Sheets("SAMRD").Cells(1, 3) <==    這一句帶出來的是[無]
                                                                                  這樣的寫法RR=Sheets("SAMRD").Cells(1, 3) 的內容
                                                                                  Sheets("SAMRD").Cells(1, 3)的內容就必須要是儲存格的寫法
                                                                                  才能套用到下一句
b = Sheets("QS").Range(RR)            <=== run到這一句就是錯誤的

修改成以下的方式~ 可避免錯誤
If Sheets("SAMRD").Cells(1, 3) = "" Then Exit Sub    '當Sheets("SAMRD").Cells(1, 3) = "" 跳出執行
RR = Sheets("SAMRD").Cells(1, 3)
b = Sheets("QS").Range(RR)


If Not c Is Nothing Then Drr = c.Address    <====若這一句都沒執行到 Drr = c.Address

Sheets("order_pool").Range(Drr).Delete      <====當Drr上面那一句是空的時候,這一句就會有錯誤產生
  1. Sub Call_order_pool_Add_batch_pool_del_order_pool2()

  3. Dim RR, Drr As String

  5. Dim i, j, num_of_item, opA, OC As Integer

  7. Dim r, c, b As Variant

  9. RR = Sheets("SAMRD").Cells(1, 3) '(1,3)要幹嘛?Sheets("order_pool").[C1].Resize(s, 1) = Arr2

  11. b = Sheets("QS").Range(RR)


  14. Sheets("batch_order_pool").Cells(seed_counter, a_batch_followering_order_counter + 1) = Sheets("總訂單").Cells(b + 1, 1)

  16. OC = 100 - RC

  18. If (Sheets("總訂單").Cells(b + 1, 1) > 0) And (Sheets("總訂單").Cells(b + 1, 1) < 3001) Then
  19.   
  20.   num_of_item = 5
  21.   
  22. ElseIf (Sheets("總訂單").Cells(b + 1, 1) >= 3001) And (Sheets("總訂單").Cells(b + 1, 1) < 6001) Then
  23.   
  24.   num_of_item = 10

  26. ElseIf (Sheets("總訂單").Cells(b + 1, 1) >= 6001) And (Sheets("總訂單").Cells(b + 1, 1) < 9001) Then '50 items
  27.   
  28.   num_of_item = 50
  29.   
  30. Else

  32.     MsgBox "error這麼九很奇怪ㄟ你"

  34. End If

  36.   Call cal_RC(num_of_item)
  37.   
  38.   If RC >= 0 Then
  39.   
  40.   For j = 1 To num_of_item
  41.    
  42.      Sheets("batch_pool").Cells(seed_counter, OC + j) = Worksheets("總訂單").Cells(b + 1, j + 6)
  43.   
  44.   Next

  46.     For Each r In Worksheets("order_pool").Range("A1", Sheets("order_pool").Range("A1").End(xlDown))
  47.          Set c = r.Find(b, , , xlWhole)   '設定內容為b的儲存格物件為c
  48.          
  49.              If Not c Is Nothing Then Drr = c.Address
  50.             '每找到C則將C的相對位址放進DRR
  51.     Next
  52.         
  53.         Sheets("order_pool").Range(Drr).Delete '刪除從order pool取出之資料
  54.       
  55.   End If
  56.   
  57. End Sub
複製代碼
學習才能提升自己

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題