返回列表 上一主題 發帖

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

owen06
　暱稱: 阿軒

中學生Rank: 2

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

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

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題