標題: vba能否做到附件中的問題 [打印本頁]

---

作者: 周大偉    時間: 2012-2-27 20:51     標題: vba能否做到附件中的問題

大大們, 我有一個構想, 不知vba可否做到, 請大大協助, 謝謝!!
[attach]9781[/attach]

---

作者: register313    時間: 2012-2-28 00:05

回復 1# 周大偉

工作表模組

1. Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address = [B65536].End(xlUp).Offset(1, 0).Address Then
   
3.    Target.Value = Now
   
4.    Cells(Target.Row, 1) = Target.Row - 1
   
5.    Yearc = Application.CountIf(Range([C2], [C65536].End(xlUp)), "*" & Year(Now))
   
6.    Cells(Target.Row, 3) = Format(Yearc + 1, "000") & "/aaa/" & Year(Now)
   
7. End If
   
8. End Sub

複製代碼

---

作者: 周大偉    時間: 2012-2-28 07:10

回復 2# register313
感謝大大回應, 謝謝!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)