返回列表 上一主題 發帖

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

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: 3Rank: 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


  1. Sub olo()
  2. Dim ds1, ds2 As Integer
  3. Dim xx1, xx3, xx5, xx7 As Integer
  4. ds1 = 156
  5. ds2 = 156.5
  6. '方式1
  7. For xx = 1 To 9 Step 2

  9.     For yy = 3 To Cells(2, xx).CurrentRegion.Rows.Count
  10.         qq = Cells(yy, xx)
  11.         If qq <> "" Then
  12.             If Cells(yy, xx) <= ds1 Or Cells(yy, xx) < ds2 Then
  13.                 Cells(yy, xx + 1) = "合格"
  14.             Else
  15.                 Cells(yy, xx + 1) = "不合格"
  16.             End If
  17.         End If
  18.     Next
  19. Next

  21. '方式二
  22. For x10 = 3 To Cells(2, 1).CurrentRegion.Rows.Count
  23. sss = 0
  24.     xx1 = Cells(x10, 1): xx3 = Cells(x10, 3): xx5 = Cells(x10, 5): xx7 = Cells(x10, 7)
  25.     If xx1 <= ds1 Or xx1 < ds2 Then sss = sss + 1
  26.     If xx3 <= ds1 Or xx3 < ds2 Then sss = sss + 1
  27.     If xx5 <= ds1 Or xx5 < ds2 Then sss = sss + 1
  28.     If xx7 <= ds1 Or xx7 < ds2 Then sss = sss + 1
  29.     If sss = 4 Then Cells(x10, 10) = "合格": Cells(x10, 11) = sss Else Cells(x10, 10) = "不合格": Cells(x10, 11) = sss
  30.    
  31. Next
  32. End Sub
複製代碼
6566is.rar (15.02 KB)

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

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

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

  少看=只看不做也枉然

TOP

Scott090

帖子
519 
主題
54 
精華
0 
積分
595 
點名
250  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2024-11-15 

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

帖子
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

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