麻辣家族討論版版 » Excel程式區 » 請問各位老師，要如何對應以下的數量

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

請問各位老師，要如何對應以下的數量

中學生 Rank: 2

帖子: 49
主題: 10
精華: 0
積分: 107
點名: 0
作業系統: win 10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2017-7-15
最後登錄: 2023-6-12

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2021-12-29 22:04 | 只看該作者

請問各位老師，要如何對應以下的數量

B欄位對應A欄位數量以270為單位
請問要如何修改，一值無法算得B欄數量

Sub to2test()
Dim e&, st$, sb$
st = Cells(1, 4)
sb = Cells(1, 5)
e = [a65536].End(3).Row - 1: If e < 1 Then Exit Sub
For i = 3 To e
If Cells(i, 1) = "" Then
Cells(i, 2) = ""
On Error Resume Next
ElseIf Cells(i, 1) < st Then
Cells(i, 2) = -Int(-Cells(i, 1) / st)
ElseIf Cells(i, 1) + Cells(i - 2, 1) + Cells(i - 1, 1) > sb Then
Cells(i, 2) = -Int(-Cells(i, 1) / st) - 1
ElseIf Cells(i, 1) + Cells(i - 2, 1) + Cells(i - 1, 1) = sb Then
Cells(i, 2) = -Int(-Cells(i, 1) / st) - 1
ElseIf Cells(i, 1) + Cells(i - 2, 1) = sb Then
Cells(i, 2) = -Int(-Cells(i, 1) / st) - 1
Else
End If
Next
Cells(4, 5) = -Int(-Cells(4, 4) / st)
End Sub

複製代碼

活頁簿test.rar (11.51 KB)

樓主熱帖

收藏

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

7^#

發表於 2022-1-3 13:53 | 只看該作者

回復 3# wsx1130

條件只要有多餘數量就加1箱，範例說明如下，請測試看看，謝謝
819-->4箱，1080-819，還有261個空間
261 -261 =0箱，261個補前一箱

Sub test()
Dim Arr, T%, T1%, Et, i&
T = 270
Arr = Range("a1:b" & [a65536].End(3).Row)
For i = 3 To UBound(Arr)
If Arr(i, 1) = "" Then GoTo 99
If Arr(i, 1) >= 1080 Then
      Cells(i, 4) = Application.Round((Arr(i, 1) / T), 0): GoTo 99
Else
      For i2 = i To UBound(Arr)
         If T1 >= 1080 Then Exit For
         If Arr(i2, 1) <> "" Then T1 = T1 + Arr(i2, 1)
      Next
End If
For i3 = i To i2 - 1
      If Arr(i3, 1) = "" Then GoTo 98
      Arr(i3, 1) = Arr(i3, 1) - Et
      Cells(i3, 4) = Application.RoundUp((Arr(i3, 1) / T), 0)
      Et = T * Cells(i3, 4) - Arr(i3, 1)
98: Next
i = i2 - 1: T1 = 0: Et = 0
99: Next
End Sub

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

6^#

發表於 2022-1-3 10:10 | 只看該作者

回復 3# wsx1130

819 /270 = 3箱(810)，沒裝箱有9個，
261 / 270 = 1箱，可以在裝上9個前一箱

279 / 270 = 2箱(540)，應該 1箱吧? 在將沒裝箱有9個，裝到下一箱

好多問題，條件不是很明確，請再確認，謝謝

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

5^#

發表於 2022-1-3 09:38 | 只看該作者

回復 3# wsx1130

3240 / 270 = 12
請再確認，謝謝

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

4^#

發表於 2022-1-3 07:56 | 只看該作者

本帖最後由 samwang 於 2022-1-3 07:57 編輯

回復 3# wsx1130

答案有問題吧? 條件可否在寫詳細，感謝

中學生 Rank: 2

帖子: 49
主題: 10
精華: 0
積分: 107
點名: 0
作業系統: win 10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2017-7-15
最後登錄: 2023-6-12

3^#

發表於 2021-12-30 18:57 | 只看該作者

回復 2# samwang

活頁簿test.rar (13.21 KB)

Sam，抱歉傳錯檔案，應該為附件，規則仍為1080

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

2^#

發表於 2021-12-30 13:57 | 只看該作者

回復 1# wsx1130

205 +344+736 = 1285
270 +270 +540 =1080
B11 是不是要改為 3
如果不是邏輯為何?
請確認，謝謝

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。

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