Lv,Gucci,Lv包包,Lv錢夾,Lv手錶,Lv目錄,Gucci公仔包,Lv購物包,Lv水桶包,Lv批發,愛美仕名牌購物

EXCEL VBA．點選〔人員姓名〕，自動找到〔當天日期〕位置填入１
　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
範例檔簡介：
■主要需求：
　１．〔出席表〕Ａ欄為〔人員姓名〕，第１列則為〔日期〕。
　２．選取〔人員姓名〕後，執行 VBA 可自動找到〔當天日期〕欄位，
　　　並在該人員〔同列〕的〔對應欄〕填入１。
　
■程式碼：
　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
　
　－－說明－－
　在〔人員姓名〕格〔雙按滑鼠左鍵〕即自動填入，再按一次則清除。　
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞：

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－