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

[發問] 加入條件修訂程式碼

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-2-10 16:57 | 顯示全部帖子

[發問] 加入條件修訂程式碼

各位先進您好
如下程式碼，今加入一條件，當M欄儲存格值 = WORK時才計算統計。
敬請先進們指導，如何修改程式碼。
非常感謝

With Sheets("工料")
If .[D6].End(xlDown).Row = .Rows.Count Then MsgBox "無資料": Exit Sub
For Each A In .Range(.[D6], .[D65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
Ar = Split(A, "+")
For Each C In Ar
MyStr = C & "," & Left(A.Offset(, 3), 8) & "," & A.Offset(, 8)
dic1(MyStr) = Split(MyStr, ",")
Next
Next
End With