麻辣家族討論版版 » Excel程式區 » 請問如何用 VBA EXCEL 判別區間

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

[發問] 請問如何用 VBA EXCEL 判別區間

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: win 8
軟體版本: office 2013
閱讀權限: 10
性別: 女
註冊時間: 2015-8-27
最後登錄: 2015-8-27

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-8-27 11:31 | 只看該作者

[發問] 請問如何用 VBA EXCEL 判別區間

請問各位
如何寫VBA 判斷A值落於E欄的哪個區間,其對應值再乘與A值就可以得到N值

這困擾我好久~

麻煩大家指點~~~

在此先謝謝大家了

收藏

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2015-8-27 13:15 | 只看該作者

回復 1# ch20070723

像這樣嗎？

Sub check_it()
For Each MyValue In Range("a2:a" & [a65536].End(xlUp).Row)
If MyValue.Value < 1 Then
MyValue.Offset(0, 1) = MyValue.Value * 9
ElseIf MyValue.Value < 2 Then
MyValue.Offset(0, 1) = MyValue.Value * 8
ElseIf MyValue.Value < 5 Then
MyValue.Offset(0, 1) = MyValue.Value * 7
ElseIf MyValue.Value < 10 Then
MyValue.Offset(0, 1) = MyValue.Value * 6
ElseIf MyValue.Value < 15 Then
MyValue.Offset(0, 1) = MyValue.Value * 5
ElseIf MyValue.Value < 20 Then
MyValue.Offset(0, 1) = MyValue.Value * 4
ElseIf MyValue.Value < 50 Then
MyValue.Offset(0, 1) = MyValue.Value * 3
Else: MyValue.Offset(0, 1) = MyValue.Value * 2
End If
Next
End Sub

複製代碼

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: win 8
軟體版本: office 2013
閱讀權限: 10
性別: 女
註冊時間: 2015-8-27
最後登錄: 2015-8-27

3^#

發表於 2015-8-27 13:41 | 只看該作者

回復 2# owen06
沒錯!!!!太感謝了!!!!!!
我昨天用了一個下午搞不出來,您一下子就幫我寫出來~~~
太厲害了啦!!!!!
謝~~~謝~~~~謝~~~謝~~~~:'(

靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。

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