close
LV超3A名牌購物網

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
 
 --說明--
 在〔人員姓名〕格〔雙按滑鼠左鍵〕即自動填入,再按一次則清除。 
---------------------------------
<範例檔>:

---------------------------------

愛美仕名牌購物網
arrow
arrow
    全站熱搜
    創作者介紹
    創作者 方志遠 的頭像
    方志遠

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

    方志遠 發表在 痞客邦 留言(0) 人氣()