- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2026-2-12
  
|
4#
發表於 2015-2-2 16:09
| 只看該作者
DEAR SIR
1.Sheet2.RANGE("B2") 輸入月
Sheet2.RANGE("D2") 輸入年
2.設按鈕執行如下即可.
Sub AAAAAA()
Sheet2.Visible = True
Sheet2.[A3:F65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row + 1
For M = 2 To X
If Month(Sheet1.Cells(M, 1)) - Sheet2.Cells(1, 2) = 0 And Year(Sheet1.Cells(M, 1)) - Sheet2.Cells(1, 4) = 0 Then
Sheet2.Cells(Y, 1) = Sheet1.Cells(M, 1)
Sheet2.Cells(Y, 2) = Sheet1.Cells(M, 2)
Sheet2.Cells(Y, 3) = Sheet1.Cells(M, 3)
Sheet2.Cells(Y, 4) = Sheet1.Cells(M, 4)
Sheet2.Cells(Y, 5) = Sheet1.Cells(M, 5)
Sheet2.Cells(Y, 6) = Sheet1.Cells(M, 6)
Y = Y + 1
End If
Next
Sheet2.Select
Range("A1").Select
End Sub |
|