返回列表 上一主題 發帖

[發問] [發問]判斷A儲存格後,B儲存格補零

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 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
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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]

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題