你能幫我用宏嗎?我有一個3代碼,只顯示我的味精盒 - 特定的值。但不爲我工作。 :/我不知道爲什麼。一些錯誤,我想使所有的範圍和後顯示我msgbox值時履行。有人知道嗎?宏程範圍/特定細胞信息框
現在我有,但告訴我錯誤見圖片
Public Sub found(worksheets)
Dim found As Boolean
Dim c As Range
found = False
For Each c In worksheets("data").Range("D155,D456,D757,D1058,D1359,D1660,D1961:D1964,D36811,D36813,D38015,D38617,D39219,D39821,D40423,D41025,D52576,D53178,D54984,D55586,D56790,D57392,D58897")
If c.Value = 8 Then
found = True
c.Value = -1
End If
Next
If found Then MsgBox (" ZAHLASTE BALENÍ !!!") & vbCrLf & ("BALÍCÍ MNOŽSTVÍ JE 15 KS")
found = False
For Each c In worksheets("data").Range("D29,D31,D33,D35,D37,D39,D41,D43,D45,D47,D49,D51:D57,D59,D61,D63,D65,D67:D83,D85,D87,D89,D91:D95,D97:D101,D103,D105,D107,D109,D110:D111,D41944,D42246:D42250,D45263,D45265,D45267,D45269,D45271,D45273,D45275,D45277,D45279,D45280,D45581,D45882,D46183,D46484,D46785,D47086,D47387")
If c.Value = 5 Then
found = True
c.Value = -1
End If
Next
If found Then MsgBox (" ZAHLASTE BALENÍ") & vbCrLf & ("BALÍCÍ MNOŽSTVÍ JE 6 KS")
found = False
For Each c In worksheets("data").Range("D3165,D3466,D3767,D4068,D4369,D4670,D4971,D5272,D5573,D5874,D6175:D10088,D10389,D10690,D41643,D41945,D42251,D42552,D42853,D43154,D43455,D43755,D44057,D44357,D44658,D44959,D48892,D49193,D49494,D49795,D50097,D50397,D50698,D50999,D51308:D51339")
If c.Value = 8 Then
found = True
c.Value = -1
End If
Next
If found Then MsgBox (" ZAHLASTE BALENÍ") & vbCrLf & ("BALÍCÍ MNOŽSTVÍ JE 9 KS")
End Sub
在下一張紙我叫Call Module1.check(worksheets)
修改'.Range( 「D155:D155」, 「D456:D456」, 「D757:D757」, 「D1058:D758」 ,....)''到''.Range(「D155,D456,D757,D1058」....)'。你需要確保你的'範圍'是有效的。該'「'都在開始時和括號結束'()' –
如果你的'worksheets'的說法是真實的''Worksheets'收集Workbook'對象,那麼你最好通過你的函數'workbook'對象(即:'公用Sub檢查(WB作爲練習冊)'),然後使用'關於C在wb.Worksheets(「數據」)',只是不要亂用內置的對象名稱 – user3598756
好吧,我試圖改變,第一部分代碼是好的,但第二部分顯示我在這部分的錯誤:對於每個c在工作表(「數據」)範圍(「D29,D31,D33,D35,D37,D39,D41,D43,D45,D47,D49, D51:D57,D59, –