返回列表 上一主題 發帖

請問如何卡控尺寸是否合規

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-7 14:31 | 顯示全部帖子

請問如何卡控尺寸是否合規

[版主管理留言]
  • Hsieh(2015-8-7 16:38): 判斷式錯誤，建議上傳檔案以瞭解問題

請問各位大大
我需要篩選尺寸的資料是否合規定
尺寸的範圍為156mm~156.5mm
含156mm不含156.5mm
我寫的如下

A = Range("a3").CurrentRegion.Rows.Count
Dim N As Variant, O As Variant, P As Variant, Q As Variant
For i = 1 To A
N = Range("N" & i + 2)
O = Range("O" & i + 2)
P = Range("P" & i + 2)
Q = Range("Q" & i + 2)
If N >= 156 < 156.5 And O >= 156 < 156.5 And P >= 156 < 156.5 And Q >= 156 < 156.5 Then
    Range("bq" & i + 2) = "尺寸合規"
ElseIf N < 156 >= 156.5 And O < 156 >= 156.5 And P < 156 >= 156.5 And Q < 156 >= 156.5 Then
    Range("bq" & i + 2) = "尺寸不合規"
End If
Next i
跑不出來結果
請各位達人幫幫忙了
謝謝
收藏 分享

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
2#
發表於 2015-8-10 16:26 | 顯示全部帖子
謝謝各位大德的幫忙
把它改成如下就可以用了
謝謝喔
Dim N As Variant, O As Variant, P As Variant, Q As Variant
For i = 1 To A
N = Range("N" & i + 2)
O = Range("O" & i + 2)
P = Range("P" & i + 2)
Q = Range("Q" & i + 2)
If N >= 156 And N < 156.5 And O >= 156 And O < 156.5 And P >= 156 And P < 156.5 And Q >= 156 And Q < 156.5 Then
    Range("bq" & i + 2) = "尺寸合規"
ElseIf N < 156 Or N >= 156.5 And O < 156 Or O >= 156.5 And P < 156 Or P >= 156.5 And Q < 156 Or Q >= 156.5 Then
    Range("bq" & i + 2) = "尺寸不合規"
End If
Next i

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題