Board logo

標題: [發問] 我想寫每個機種裏選出 所屬料號中最小實際進料的數字 [打印本頁]
作者: scjiao    時間: 2014-6-21 23:39     標題: 我想寫每個機種裏選出 所屬料號中最小實際進料的數字

請問大大們，如檔案，我想寫每個機種裏選出 所屬料號中(期初庫存+實際進料)最小的數字，該如何寫VBA程式碼??，謝謝
請大大回覆時貼程式碼
[attach]18526[/attach]
作者: GBKEE    時間: 2014-6-22 09:55

回復 1# scjiao
試試看
  1. Option Explicit
  2. Sub EX()
  3.     Dim Rng(1 To 2) As Range, E As Range
  4.     Dim AR(), i As Integer
  5.     With Sheets("Sheet1")
  6.         Set Rng(1) = .Range("A6", .Range("A" & .Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
  7.         '讀取機總的範圍有文字的儲存閣
  8.     End With
  9.     ReDim AR(0 To Rng(1).Areas.Count, 1 To 4)
  10.     AR(0, 1) = "機總"
  11.     AR(0, 2) = "料號"
  12.     AR(0, 3) = "期初庫存"
  13.     AR(0, 4) = "實際進料"
  14.     For i = 1 To Rng(1).Areas.Count
  15.         AR(i, 1) = Rng(1).Areas(i).Cells(1)
  16.         Set Rng(2) = Rng(1).Areas(i).Resize(, 2).Columns(2).SpecialCells(xlCellTypeConstants)
  17.             '機總的範圍 [第2欄] 有文字的儲存閣
  18.             For Each E In Rng(2).Areas
  19.             If E.Range("b1") + E.Range("E5") < AR(i, 3) + AR(i, 4) Then
  20.             '"期初庫存"+"實際進料"
  21.                 AR(i, 2) = E.Cells(1)
  22.                 AR(i, 3) = E.Range("b1")   '以E.Cells(1)
  23.                 AR(i, 4) = E.Range("E5")
  24.             ElseIf AR(i, 2) = "" Then  '料號: 陣列元素=""
  25.                 AR(i, 1) = Rng(1).Areas(i).Cells(1)
  26.                 AR(i, 2) = E.Cells(1)
  27.                 AR(i, 3) = E.Range("b1")
  28.                 AR(i, 4) = E.Range("E5")
  29.             End If
  30.         Next
  31.     Next
  32.     Sheets("Sheet2").[A1].Resize(UBound(AR), UBound(AR, 2)) = AR    '顯示
  33. End Sub
複製代碼
作者: scjiao    時間: 2014-6-22 11:36

回復 2# GBKEE
謝謝版主的熱心回答，非常感謝~:)
作者: scjiao    時間: 2014-6-22 21:49

回復 2# GBKEE
請問版主大大
For Each E In Rng(2).Areas
next
Rng(2).Areas 是什麼意思呀?
E.range("b1")又是什麼意思呀?
不好意思，初學者
作者: GBKEE    時間: 2014-6-23 06:44

回復 4# scjiao
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, i As Integer
  4.     Application.VBE.MainWindow.Visible = True
  5.     Application.VBE.Windows("即時運算").Visible = True
  6.     Set Rng = Range("A1:C1,A5:C5,A3:B4,A10:A15")
  7.     'Areas 屬性 傳回 Areas 集合，此集合代表多重範圍中的所有範圍。唯讀。
  8.     For i = 1 To Rng.Areas.Count '多重範圍的個數
  9.         Stop  '按F8執行下一步
  10.         Debug.Print vbLf & Rng.Areas(i).Address
  11.         
  12.         '以 Areas(i)為基準的 Range 物件，該物件代表一個儲存格或儲存格範圍。
  13.         Debug.Print Rng.Areas(i).Range("A1").Address
  14.         Debug.Print Rng.Areas(i).Range("B1").Address
  15.         Debug.Print Rng.Areas(i).Range("C1").Address

  17.     Next

  19. End Sub
複製代碼
作者: scjiao    時間: 2014-6-23 07:41

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

謝謝版大
作者: GBKEE    時間: 2014-6-23 09:10

回復 6# scjiao
以 E 為基準的 Range 物件，該物件代表一個儲存格或儲存格範圍
與 5# 的程式碼運行結果ㄧ樣
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, E As Range
  4.     Application.VBE.MainWindow.Visible = True
  5.     Application.VBE.Windows("即時運算").Visible = True
  6.     Set Rng = Range("A1:C1,A5:C5,A3:B4,A10:A15")
  7.     'Areas 屬性 傳回 Areas 集合，此集合代表多重範圍中的所有範圍。唯讀。
  8.     For Each E In Rng.Areas  '多重範圍的個數
  9.         Stop  '按F8執行下一步
  10.         Debug.Print vbLf & E.Address        

  12.         '以 E 為基準的 Range 物件，該物件代表一個儲存格或儲存格範圍。
  13.         Debug.Print E.Range("A1").Address
  14.         Debug.Print E.Range("B1").Address
  15.         Debug.Print E.Range("C1").Address

  17.     Next
  18. End Sub
複製代碼
[attach]18540[/attach]
作者: scjiao    時間: 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) 參數是代表什麼意思
作者: GBKEE    時間: 2014-6-24 08:44

回復 8# scjiao
到 VBA視窗 說明 輸入 SpecialCells 看看
盡量到 說明 中輸入 疑問的屬性.方法.函數.會多了解VBA的
作者: scjiao    時間: 2014-6-24 23:15

回復 9# GBKEE

嗯，謝謝版主



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)