[發問] 我想寫每個機種裏選出 所屬料號中最小實際進料的數字

帖子: 16
主題: 2
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-3-8
最後登錄: 2015-3-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-6-21 23:39 | 顯示全部帖子

[發問] 我想寫每個機種裏選出所屬料號中最小實際進料的數字

請問大大們，如檔案，我想寫每個機種裏選出所屬料號中(期初庫存+實際進料)最小的數字，該如何寫VBA程式碼??，謝謝
請大大回覆時貼程式碼

file.rar (101.87 KB)

帖子: 16
主題: 2
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-3-8
最後登錄: 2015-3-29

2^#

發表於 2014-6-22 11:36 | 顯示全部帖子

回復 2# GBKEE
謝謝版主的熱心回答，非常感謝~:)

帖子: 16
主題: 2
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-3-8
最後登錄: 2015-3-29

3^#

發表於 2014-6-22 21:49 | 顯示全部帖子

回復 2# GBKEE
請問版主大大
For Each E In Rng(2).Areas
next
Rng(2).Areas 是什麼意思呀?
E.range("b1")又是什麼意思呀?
不好意思，初學者

帖子: 16
主題: 2
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-3-8
最後登錄: 2015-3-29

4^#

發表於 2014-6-23 07:41 | 顯示全部帖子

回復 5# GBKEE
非常感謝版主的回覆，那請問
For Each E In Rng(2).Areas
next
其中
E.range("b1")是什麼意思

謝謝版大

帖子: 16
主題: 2
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-3-8
最後登錄: 2015-3-29

5^#

發表於 2014-6-23 23:29 | 顯示全部帖子

回復 7# GBKEE
謝謝版大，我完全了解了，最後我想問的是其中一段程式碼
With Sheets("Sheet1")
Set Rng(1) = .Range("A6", .Range("A" & .Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants) '讀取機總的範圍有文字的儲存閣
End With
其中.Range("A" & .Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants) 此specialcells(xlcellTypeConstants) 參數是代表什麼意思