標題: [發問] 如何讓資料填入指定日期的儲存格內? [打印本頁]

---

作者: ryan36241    時間: 2016-5-15 19:35     標題: 如何讓資料填入指定日期的儲存格內?

想請教一下各位先進

要如何使用巨集將表單1的內容，填入表單2指定日期的儲存格內

項目共有A和B兩樣，想按下巨集後表單1的目前日期就會帶入到表單2的指定日期的儲存格

詳細如附件，再麻煩前輩幫忙~~~ 非常感謝[attach]24291[/attach]

---

作者: ryan36241    時間: 2016-5-16 12:22

有前輩能幫忙解決嗎？

非常需要這個功能以便工作上使用~~~

再麻煩了，謝謝

---

作者: 准提部林    時間: 2016-5-16 14:02

Private Sub CommandButton1_Click()
Dim xF As Range
Set xF = [表單2!2:2].Find([D1].Value, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "找不到符合日期!": Exit Sub
xF(3, 1).Resize(3) = [B3:B5].Value
End Sub


Private Sub CommandButton2_Click()
Dim xF As Range
Set xF = [表單2!2:2].Find([D8].Value, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "找不到符合日期!": Exit Sub
xF(3, 2).Resize(3) = [B10:B12].Value
End Sub

---

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