返回列表 上一主題 發帖

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

ryan36241

帖子
11 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
10 
註冊時間
2014-4-1 
最後登錄
2016-5-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-5-15 19:35 | 只看該作者

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

想請教一下各位先進

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

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

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

ryan36241

帖子
11 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
10 
註冊時間
2014-4-1 
最後登錄
2016-5-16 
2#
發表於 2016-5-16 12:22 | 只看該作者
有前輩能幫忙解決嗎？

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

再麻煩了，謝謝

TOP

准提部林

帖子
2808 
主題
10 
精華
0 
積分
2864 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-29 
3#
發表於 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

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題