分享

Excel尋找與寫入

做個excel簽到小程式
Sub Find_Sign()
Set WHAT_TO_FIND = Cells(1, "A")
Dim ws As Excel.Worksheet
Dim FoundCell As Excel.Range
Sheets("資料頁面").Select
Set ws = ActiveSheet
Set FoundCell = ws.Range("A:A").Find(what:=WHAT_TO_FIND, lookat:=xlWhole)
If Not FoundCell Is Nothing Then
MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
MsgBox (WHAT_TO_FIND & " found in column: " & FoundCell.Column)
ws.Cells(FoundCell.Row, "B") = "V"
ws.Cells(FoundCell.Row, "C") = Format(Now(), "hh:mm:ss")
Else
MsgBox (WHAT_TO_FIND & " not found")
End If
Sheets("報到頁面").Select
End Sub
在報到頁面輸入來的人編號
在資料頁面尋找該值 並寫入 "V" 與報到時間
跳回原本報到頁面
#excel  #報到  #簽到  #VB 
分類:學習

有時候就看到一篇有趣的文章 因為僅僅有趣 只適合分享給當下 忙碌的時候不宜看 悠閒的時候也不宜看 只有忙裡偷閒的時候適合 把亂糟糟的思緒 撥亂~反正一樣亂

評論
上一篇
  • 更多文章
    載入中... 沒有更多了