"分組欄"--想多一欄作為分組欄 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » "分組欄"--想多一欄作為分組欄

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

[發問] "分組欄"--想多一欄作為分組欄

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

1^# 跳轉到 »

發表於 2013-11-6 22:20 | 顯示全部帖子

本帖最後由 luhpro 於 2013-11-6 22:21 編輯

回復 1# ui123
假設 :
E2=5000 (上界)
F2=4500 (下界)
G2=5 (間距)

Sub nn()
Dim lTop&, lBtm&, lStep&, lRow&
lTop = [E2]
lBtm = [F2]
lStep = [G2]
lRow = 1
Do While Cells(lRow, 1) <> ""
With Cells(lRow, 1)
Select Case .Value
Case Is > lTop
.Offset(, 1) = lTop & "以上"
Case Is < lBtm
.Offset(, 1) = lBtm & "以下"
Case Else
.Offset(, 1) = Int(.Value / lStep) * lStep
End Select
lRow = lRow + 1
End With
Loop
End Sub

複製代碼

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

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