[發問] 如何讓資料填入指定日期的儲存格內?

ryan36241

想請教一下各位先進

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

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

詳細如附件，再麻煩前輩幫忙~~~ 非常感謝 Book.zip (8.91 KB)

下載次數: 13

2016-5-15 19:34

ryan36241

有前輩能幫忙解決嗎？

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

再麻煩了，謝謝

准提部林

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