返回列表 上一主題 發帖

[發問] 如何選擇介於一個範圍的問題

518587

帖子
63 
主題
15 
精華
0 
積分
81 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2014-3-16 
最後登錄
2015-9-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-3-16 14:42 | 只看該作者

[發問] 如何選擇介於一個範圍的問題

小弟有個問題

我有一列資料如下，
       A列  
1     10
2     11
3     12
4     13
5     14
6     13
7     12
8     11
9     10
10  10
11  10
12  11
13  12
14  13
15  14

我的問題是，假如這列資料數連續"大於3筆資料"都介於(10~11)之間，

判定他為錯誤，修改為空值。(如：第8筆資料到第12筆都在10~11之間，所以值都為0。)

如果未超過3筆則繼續。

請問各位大師這樣語法如何下?
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2014-3-16 23:42 | 只看該作者
回復 3# 518587
  1. Sub ex()
  2. r = 2: k = 0
  3. Do Until Cells(r, 2) = ""  'B欄為空白時退出迴圈
  4. Do Until Cells(r, 2) < 10 Or Cells(r, 2) > 11  '<10或>11(不介於10~11之間)退出迴圈
  5.    k = k + 1  '計數
  6.    r = r + 1
  7. Loop
  8. If k > 3 Then
  9.    Cells(r, 2).Offset(-k).Resize(k, 1) = 0  '將內容改為0
  10. End If
  11. r = r + 1: k = 0  '列位加1，計數歸零
  12. Loop
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

518587

帖子
63 
主題
15 
精華
0 
積分
81 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2014-3-16 
最後登錄
2015-9-20 
3#
發表於 2014-3-16 16:09 | 只看該作者
回復 2# GBKEE


感謝大師提點，但我還有個小疑問  AR = Application.WorksheetFunction.Transpose([A1:A15])

這裡[A1:A15]我將它改為[A:A]一整列，不過卻不能(想改成這樣原因是資料數不一定固定!)

請問這部分問題出在哪裡? 能否請大師提點! 感謝

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-3-16 15:48 | 只看該作者
回復 1# 518587
  1. Option Explicit
  2. Sub Ex()
  3.     Dim AR, i As Integer, ii As Integer, X As Integer
  4.     AR = Application.WorksheetFunction.Transpose([A1:A15])
  5.     For i = 1 To UBound(AR)
  6.         If AR(i) >= 10 And AR(i) <= 11 Then
  7.             X = X + 1
  8.         Else
  9.             If X >= 3 Then
  10.                 For ii = X To 1 Step -1
  11.                     AR(i - ii) = 0
  12.                 Next
  13.             End If
  14.             X = 0
  15.         End If
  16.     Next
  17.     [b1:b15] = Application.WorksheetFunction.Transpose(AR)
  18.     '顯示在B欄
  19. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題