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

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

ui123

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-11-6 21:41 | 只看該作者

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

不好意思~想向請問大家一個問題!

1) 如果我有一欄資料，如:
4400
4500
4504
4505
4502
4511
4522
4531
4522
4568
5010
....等

2) 想用VBA自動多一欄(B欄)，條件如:

開始:以4500為開始 (含下界，不含上界)
組距:每5作為一組
結束:5000 (超過5000命名為5000以上)
且希望"開始，組距，結束"可以在某三格儲存格做修改

3)結果對應如下:
A欄       B欄(VBA判的)
4400    4500以下
4500    4500
4504    4500
4505    4505
4502    4500
4511    4510
4522    4520
4531    4530
4522    4520
4568    4565
5010    5000以上

好難>""<  謝謝 (~無法下載rar等檔案.....)

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

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

2^#

發表於 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

複製代碼

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

3^#

發表於 2013-11-7 01:40 | 只看該作者

回復 1# ui123

沒必要用VBA

A2=4400
A3=4500
A4=4504
...
A12=4568
B2=IF(A2<4500,"4500以下", IF(A2>5000,"5000以上", INT(A2/10)*10+5*(MOD(A2,10)>=5)))

公式向下複製

TOP

ui123

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2013-11-7 07:23 | 只看該作者

非常感謝 luhpro
解答我心中的問題 ~
----------------------------------------------
謝謝sunnyso
謝謝您提供另一條路，受益良多 !

TOP

靜思自在 : 不要小看自己，因為人有無限的可能。

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