[發問] 如何點擊儲存格後,自動填滿一個符號~

cmo140497

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

下載 (112.02 KB)

2012-1-2 17:54

AutoFillCells.zip (12.34 KB)

下載次數: 8

2012-1-2 17:55

GBKEE

回復 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

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