如何在sheet1輸入資料指定到sheet2或sheet3

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-11-20 16:01 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-11-20 16:53 編輯

回復 2# flutist
試試看

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-11-20 17:06 | 顯示全部帖子

回復 4# flutist
不好意思,如 5# c_c_lai 說的我少貼一個 O,關於程式碼你尚需多練習程式是如何寫的
以下程式碼同2#的程式碼

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-11-21 15:23 | 顯示全部帖子

回復 12# flutist

Option Explicit
Sub 按鈕1_Click()
Dim Sh As Variant,月份 As Range, 廠商 As Range
For Each Sh In Array("Sheet2", "Sheet3") '工作表的陣列
With Sheets(Sh)
Set 月份 = .Range("A8", .Range("A8").End(xlToRight)).Find(Sheets("Sheet1").[a2], LookAT:=xlWhole)
Set 廠商 = .Range("A8", .Range("A8").End(xlDown)).Find(Sheets("Sheet1").[B2])
'宣告月份,廠商為Range(物件),但Find如找不到(物件)為Nothing
If Not 月份 Is Nothing And Not 廠商 Is Nothing Then
Sheets(Sh).Cells(廠商.Row, 月份.Column) = Sheets("Sheet1").Range("C2")
End If
End With
Next
End Sub

複製代碼

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。