2016-01-21 115 views
1

我試圖更新工作簿中Sheet1的列單元格中的修改/值輸入時間,其中Sheet1中的特定列的單元格值發生更改。更新基於另一個工作表列值的工作表獲取更改

我正在使用下面的代碼不工作,我錯過了什麼?

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
 
If Not Intersect(Target, Range("Timesheet[Start Time]")) Is Nothing Then 
 
     
 
     Sheet2.Cells(Target.Row, 1).Value = Now() 
 
     
 
    End If 
 
End Sub

希望這是可能的..

請幫我..謝謝提前:)

+2

你不希望Worksheet_SelectionChange事件,但Worksheet_Change事件 –

+0

如果工作表Sheet1細胞在1對1點的對應與表2層的細胞,那麼它可能是簡單隻需添加一個在Sheet 2單元格中引用Sheet 1單元格的公式。 – PKatona

+0

感謝斯科特但Worksheet_Change事件也不起作用:( – Linga

回答

0

謝謝你很多斯科特的幫助:)

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("Timesheet[Start Time]")) Is Nothing Then 
    Sheets("Sheet2").Cells(Target.Row, 1).Value = Now()     
    End If 
End Sub 
0

在Sheet2的單元格A1把這個會做你想要什麼。當然,你必須填寫所有細胞的表2的公式,你就必須對其進行格式化,以任何你想要的日期格式,但它會工作:

=IF(Sheet1!A1<>"",NOW(),"") 
+0

謝謝PKatona。然而,如果輸入在表單1中超出了表單2中的公式範圍,那麼就存在挑戰。因此,如果我們可以通過宏來完成它,那將是非常好的:) – Linga

+0

嗯,是的,你必須將公式放在整個列中,這會很痛苦,但這是一個想法。祝你好運! – PKatona

+0

再次感謝我的朋友:) – Linga

相關問題