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
跑不出來結果
請各位達人幫幫忙了
謝謝

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2015-8-7 16:49 | 只看該作者

本帖最後由 mark15jill 於 2015-8-7 16:57 編輯

請問各位大大
我需要篩選尺寸的資料是否合規定
尺寸的範圍為156mm~156.5mm
含156mm不含156.5mm
我寫的如 ...
52ee24 發表於 2015-8-7 14:31

提供以下範例請依需求自行修改

程式說明
方式1 採個別判斷

方式2採積分累積制
符合條件(>=156 或 <156.5) 積分1
不符合積分0

Sub olo()
Dim ds1, ds2 As Integer
Dim xx1, xx3, xx5, xx7 As Integer
ds1 = 156
ds2 = 156.5
'方式1
For xx = 1 To 9 Step 2
For yy = 3 To Cells(2, xx).CurrentRegion.Rows.Count
qq = Cells(yy, xx)
If qq <> "" Then
If Cells(yy, xx) <= ds1 Or Cells(yy, xx) < ds2 Then
Cells(yy, xx + 1) = "合格"
Else
Cells(yy, xx + 1) = "不合格"
End If
End If
Next
Next
'方式二
For x10 = 3 To Cells(2, 1).CurrentRegion.Rows.Count
sss = 0
xx1 = Cells(x10, 1): xx3 = Cells(x10, 3): xx5 = Cells(x10, 5): xx7 = Cells(x10, 7)
If xx1 <= ds1 Or xx1 < ds2 Then sss = sss + 1
If xx3 <= ds1 Or xx3 < ds2 Then sss = sss + 1
If xx5 <= ds1 Or xx5 < ds2 Then sss = sss + 1
If xx7 <= ds1 Or xx7 < ds2 Then sss = sss + 1
If sss = 4 Then Cells(x10, 10) = "合格": Cells(x10, 11) = sss Else Cells(x10, 10) = "不合格": Cells(x10, 11) = sss
Next
End Sub

複製代碼

6566is.rar (15.02 KB)

PS 方法1似乎有問題，請自行修改XDD

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 521
主題: 55
精華: 0
積分: 598
點名: 282
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2015-8-8 07:47 | 只看該作者

回復 1# 52ee24

這樣可以嗎?
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 or O < 156 or O >= 156.5 or P < 156 or P >= 156.5 or Q < 156 or Q >= 156.5 Then
      Range("bq" & i + 2) = "尺寸不合規"
End If

TOP

52ee24

中學生 Rank: 2

帖子: 51
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: vista
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-11-26
最後登錄: 2024-1-15

4^#

發表於 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