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

樓主熱帖

100 字節以內
不支持自定義 Discuz! 代碼

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2015-2-11 08:31 | 只看該作者

DEAR SIR
加入如下試試

X = Application.WorksheetFunction.CountIf(Range("M1:M65536"), "WORK")
If X - 1 >= 0 Then

End If

羅

TOP

b9208

中學生 Rank: 2

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

3^#

發表於 2015-2-11 11:22 | 只看該作者

回復 2# rouber590324

您好
應插入於程式碼那位置？
謝謝您的協助

100 字節以內
不支持自定義 Discuz! 代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2015-2-11 12:03 | 只看該作者

本帖最後由 lpk187 於 2015-2-11 12:05 編輯

Private Sub Worksheet_Change(ByVal Target As Range)
n = Target.Row
If Target = Cells(n, "M") Or Cells(n, "M") = "work" Then
Cells(n, "N") = Application.Sum(Range("I" & n & ":K" & n))
Else
End
End If
End Sub
試試類似這方式看看是不是你想要的
這Sub，是只要改變儲存格就會去執行想要的動作

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

5^#

發表於 2015-2-11 14:01 | 只看該作者

With Sheets("工料")
If .[D6].End(xlDown).Row = .Rows.Count Then MsgBox "無資料": Exit Sub

X = Application.WorksheetFunction.CountIf(Range("M1:M65536"), "WORK")
If X - 1 >= 0 Then

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

ENDIF
End With

羅

TOP