- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
  
|
程式如下
Sub PCBCTREADGats7ALL材編轉置A()
Sheet48.Visible = True
Sheet49.Visible = True
Sheet49.[A2:E65536].ClearContents
X = Sheet48.[G65536].End(xlUp).Row
Y = Sheet49.[A65536].End(xlUp).Row + 1
For M = 2 To X
If Sheet48.Cells(M, 10) - Sheet10.Range("B84") = 0 And Sheet48.Cells(M, 11) - Sheet10.Range("B85") < 0 And Sheet48.Cells(M, 12) - Sheet10.Range("B85") >= 0 And Sheet48.Cells(M, 13) - Sheet10.Range("B86") = 0 And Sheet48.Cells(M, 14) - Sheet10.Range("B87") < 0 And Sheet48.Cells(M, 15) - Sheet10.Range("B87") >= 0 Then
Sheet49.Cells(Y, 1) = Sheet48.Cells(M, 7)
Sheet49.Cells(Y, 2) = Sheet48.Cells(M, 8)
Sheet49.Cells(Y, 3) = Sheet48.Cells(M, 1)
Sheet49.Cells(Y, 4) = Sheet48.Cells(M, 2)
Sheet49.Cells(Y, 5) = Sheet48.Cells(M, 3)
Y = Y + 1
End If
Next
End Sub |
|
發表於 2019-1-10 10:00
| 
