標題: [發問] [發問]判斷A儲存格後,B儲存格補零 [打印本頁]

---

作者: qqchange    時間: 2013-1-19 10:58     標題: [發問]判斷A儲存格後,B儲存格補零

請教大師們~
當NAME欄位是有資料，則R,L欄位補零
當NAME欄位是空值，則no欄位刪除資料
目前小女子只寫的出單一判斷式 ...請求大師們指教
[attach]13988[/attach]

---

作者: stillfish00    時間: 2013-1-19 11:53

回復 1# qqchange

1. Sub 空白補0()
   
2. Dim p, r
   
3. For p = 1 To 3  'page
   
4.     For r = 2 To 11 'row
   
5.         '每13行為一個區塊
   
6.         With Sheets("RL").[a1:E13].Offset(13 * (p - 1)).Rows(r)
   
7.             If .Cells(, 4).Value = "" Then .Cells(, 4).Value = 0  'R
   
8.             If .Cells(, 5).Value = "" Then .Cells(, 5).Value = 0  'L
   
9.             If .Cells(, 2).Value = "" Then .ClearContents   '無Name則該行清除
   
10.         End With
    
11.     Next
    
12. Next
    
13. End Sub

複製代碼

---

作者: qqchange    時間: 2013-1-22 10:47

謝謝stillfish00 大大,但Offset(13 * (p - 1))不是很懂
諒小女子愚鈍可以解釋清楚一點嗎??

---

作者: stillfish00    時間: 2013-1-22 11:35

回復 3# qqchange
每13行 視為一頁
p=1時第1頁 : [A1:E13].offset(13*0)  >> 等於[A1:E13]
p=2時第2頁 : [A1:E13].offset(13*1)  >> 等於[A14:E26]
p=3時第3頁 : [A1:E13].offset(13*2)  >> 等於[A27:E39]

---

作者: qqchange    時間: 2013-1-24 11:52

感謝stillfish00大大這麼詳細的解說，小女子感激不盡

---

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