返回列表 上一主題 發帖

傳回指定的值

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
107  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-5-4 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-4-4 09:11 | 顯示全部帖子
回復 1# 周大偉
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target(1).Column = 1 Then
  3.    For Each a In Target
  4.       r = Application.Match(a, Sheets("Sheet1").[D:D], 0)
  5.       If IsNumeric(r) Then
  6.          a.Offset(, 1).Resize(, 2) = Sheets("Sheet1").Cells(r, 5).Resize(, 2).Value
  7.       End If
  8.     Next
  9. End If
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
107  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-5-4 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-4-5 10:23 | 顯示全部帖子
本帖最後由 Hsieh 於 2011-4-5 10:24 編輯

回復 3# 周大偉
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. If Target(1).Column = 1 Then
  4.    For Each a In Target
  5.       r = Application.Match(a, Sheets("Sheet1").[D:D], 0)
  6.       If IsNumeric(r) Then
  7.          a.Offset(, 1).Resize(, 2) = Sheets("Sheet1").Cells(r, 5).Resize(, 2).Value
  8.       End If
  9.     Next
  10. End If
  11. If Target(1).Column = 7 Then
  12.    For Each a In Target
  13.    If IsDate(a) Then a.Offset(, 1) = DateDiff("yyyy", a, Date)
  14.    Next
  15. End If
  16. Application.EnableEvents = True
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題