返回列表下一主題上一主題發帖

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

qqchange

小學生 Rank: 1

帖子: 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

大學生 Rank: 4

帖子: 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

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

複製代碼

TOP

qqchange

小學生 Rank: 1

帖子: 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

大學生 Rank: 4

帖子: 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

小學生 Rank: 1

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

論壇贊助勳章

5^#

發表於 2013-1-24 11:52 | 只看該作者

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

TOP

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

返回列表下一主題上一主題