標題: [發問] Excel如何以輸入日子便得出相關資料到新工作表？ [打印本頁]

---

作者: sisi056    時間: 2015-2-2 00:48     標題: 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

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

---

作者: problem909    時間: 2015-2-2 11:53

=VLOOKUP
可以解決你的問題
去EXCEL案F1說明裡面講解很清楚

---

作者: sisi056    時間: 2015-2-2 13:42

工作表想給USER輸入年及月
因為USER未必懂得使用VLOOKUP或其他Function

---

作者: rouber590324    時間: 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

---

作者: sisi056    時間: 2015-2-2 20:27

回復 4# rouber590324


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

---

作者: rouber590324    時間: 2015-2-3 08:04

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)