返回列表 上一主題 發帖

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

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題