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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-2 17:56 | 只看該作者

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

AutoFillCells.zip (12.34 KB)

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-1-2 18:22 | 只看該作者

回復 1# cmo140497

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

複製代碼

3^#

發表於 2012-1-2 18:51 | 只看該作者

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

靜思自在 : 君子如水，隨方就圓，無處不自在。