EXCEL VBA.點選〔人員姓名〕,自動找到〔當天日期〕位置填入1
<.准提部林.>
---------------------------------
範例檔簡介:
■主要需求:
1.〔出席表〕A欄為〔人員姓名〕,第1列則為〔日期〕。
2.選取〔人員姓名〕後,執行 VBA 可自動找到〔當天日期〕欄位,
並在該人員〔同列〕的〔對應欄〕填入1。
■程式碼:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MM
With Target
If .Row = 1 Or .Column > 1 Or .Value = "" Then Exit Sub
Cancel = True
MM = Application.Match(Date * 1, Rows(1), 0)
If IsError(MM) Then MsgBox "※第一列無今天日期!": Exit Sub
With .Cells(1, MM)
If .Value = "" Then .Value = 1 Else .ClearContents
Beep
End With
End With
End Sub
--說明--
在〔人員姓名〕格〔雙按滑鼠左鍵〕即自動填入,再按一次則清除。
---------------------------------
<範例檔>:
---------------------------------
- Jul 03 Tue 2012 03:56
關於使用Excel做出席表 (VBA)
close
LV超3A名牌購物網
全站熱搜
留言列表
發表留言