返回列表 上一主題 發帖

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

ch20070723

帖子
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, EXCEL


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

這困擾我好久~

麻煩大家指點~~~

在此先謝謝大家了
收藏 分享

owen06
　暱稱: 阿軒

中學生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

像這樣嗎？
  1. Sub check_it()
  2. For Each MyValue In Range("a2:a" & [a65536].End(xlUp).Row)
  3.   If MyValue.Value < 1 Then
  4.      MyValue.Offset(0, 1) = MyValue.Value * 9
  5.    ElseIf MyValue.Value < 2 Then
  6.       MyValue.Offset(0, 1) = MyValue.Value * 8
  7.    ElseIf MyValue.Value < 5 Then
  8.       MyValue.Offset(0, 1) = MyValue.Value * 7
  9.    ElseIf MyValue.Value < 10 Then
  10.       MyValue.Offset(0, 1) = MyValue.Value * 6
  11.    ElseIf MyValue.Value < 15 Then
  12.       MyValue.Offset(0, 1) = MyValue.Value * 5
  13.    ElseIf MyValue.Value < 20 Then
  14.      MyValue.Offset(0, 1) = MyValue.Value * 4
  15.    ElseIf MyValue.Value < 50 Then
  16.      MyValue.Offset(0, 1) = MyValue.Value * 3
  17.    Else: MyValue.Offset(0, 1) = MyValue.Value * 2
  18.   End If
  19. Next
  20. End Sub
複製代碼

TOP

ch20070723

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win 8 
軟體版本
office 2013 
閱讀權限
10 
性別
女 
註冊時間
2015-8-27 
最後登錄
2015-8-27 
3#
發表於 2015-8-27 13:41 | 只看該作者
回復 2# owen06
沒錯!!!!太感謝了!!!!!!
我昨天用了一個下午搞不出來,您一下子就幫我寫出來~~~
太厲害了啦!!!!!
謝~~~謝~~~~謝~~~謝~~~~:'(

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題