返回列表 上一主題 發帖

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

qqchange

帖子
11 
主題
3 
精華
0 
積分
20 
點名
0  
作業系統
windows7 
軟體版本
office2003 
閱讀權限
10 
性別
女 
註冊時間
2013-1-10 
最後登錄
2013-1-24 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-19 10:58 | 只看該作者

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

儲存格, 補零
請教大師們~
當NAME欄位是有資料，則R,L欄位補零
當NAME欄位是空值，則no欄位刪除資料
目前小女子只寫的出單一判斷式 ...請求大師們指教
補零.rar (7.81 KB)
收藏 分享

stillfish00

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

qqchange

帖子
11 
主題
3 
精華
0 
積分
20 
點名
0  
作業系統
windows7 
軟體版本
office2003 
閱讀權限
10 
性別
女 
註冊時間
2013-1-10 
最後登錄
2013-1-24 

論壇贊助勳章
3#
發表於 2013-1-22 10:47 | 只看該作者
謝謝stillfish00 大大,但Offset(13 * (p - 1))不是很懂
諒小女子愚鈍可以解釋清楚一點嗎??

TOP

stillfish00

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

qqchange

帖子
11 
主題
3 
精華
0 
積分
20 
點名
0  
作業系統
windows7 
軟體版本
office2003 
閱讀權限
10 
性別
女 
註冊時間
2013-1-10 
最後登錄
2013-1-24 

論壇贊助勳章
5#
發表於 2013-1-24 11:52 | 只看該作者
感謝stillfish00大大這麼詳細的解說，小女子感激不盡

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題