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

ch20070723

下載 (42.17 KB)

2015-8-27 11:29

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

這困擾我好久~

麻煩大家指點~~~

在此先謝謝大家了

owen06

回復 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

複製代碼

ch20070723

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