[發問] Excel如何以輸入日子便得出相關資料到新工作表？

本人在公司有一database, 列出員工的訓練及時間

工作表1
　　A　　          Ｂ　　 C       D　　 E       F
1　日期　             員工　編號課程1  課程2 課程3
2　01/01/2015　陳大文　1058 語言　聆聽    客服
3　01/02/2015　陳小文　0990 語言　英文    客服
4　11/03/2015　陳文　 1572 語言　會話    客服
5　15/01/2015　陳文大　1275 語言　聆聽    數學

本人想在工作表2中
輸入月及年便可列出該年月所出完成課程的員工名字及編號

例:
工作表2

　　A　　          Ｂ　　 C       D　　 E       F
請輸入已完成課程的月及年份: 01/2015
　日期　             員工　編號
　01/01/2015　陳大文　1058
　15/01/2015　陳文大　1275

感謝各位的幫忙~謝謝~~~

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

6^#

發表於 2015-2-3 08:04 | 只看該作者

SORRY 我無法上傳檔案.
1.工作表1 同你提供之 A-F欄內容.
2.工作表2
B2 空白供輸入月
D2 空白供輸入年
3.設按鈕執行巨集即可.

羅

TOP

sisi056

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: Win7
軟體版本: IE9
閱讀權限: 10
註冊時間: 2015-1-29
最後登錄: 2015-2-2

5^#

發表於 2015-2-2 20:27 | 只看該作者

回復 4# rouber590324

謝謝你的回復, 但我對macro不太認識, 可以列出詳細編碼嗎? 不好意思...

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

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

羅

TOP

sisi056