標題: [發問] 如何點擊儲存格後,自動填滿一個符號~ [打印本頁]

---

作者: cmo140497    時間: 2012-1-2 17:56     標題: 如何點擊儲存格後,自動填滿一個符號~

各位大大您好,祝版主及各位大大龍年心想事成 :
小弟有一問題,請教大大們:
小弟有一點名表,如內附件,在各組報告未到人員圈選後,如何按儲存格位置(=today()),自動填滿至最終儲存格(全部人數),遇到已圈選的則直接跳一下欄位,完成後便自動save
[attach]8991[/attach]
[attach]8992[/attach]

---

作者: GBKEE    時間: 2012-1-2 18:22

回復 1# cmo140497

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target(1).Row = 4 And IsDate(Target(1)) Then
   
3.       If Application.CountA(Range(Cells(6, Target(1).Column), Cells(30, Target(1).Column))) = 25 Then Exit Sub
   
4.       With Range(Cells(6, Target(1).Column), Cells(30, Target(1).Column)).SpecialCells(xlCellTypeBlanks)
   
5.             .Value = Date
   
6.             .NumberFormatLocal = "m/d;@"
   
7.         End With
   
8.     End If
   
9. End Sub

複製代碼

---

作者: cmo140497    時間: 2012-1-2 18:51

感謝GB版大的指導,版主實在大厲害了,小弟可否請版主就程式內容指導一下,大概的意思,實在有勞版主,衷心感謝。

---

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