如何點擊儲存格後,自動填滿一個符號~ - Excel程式區

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

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

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 君子立恆志，小人恆立志。