- 帖子
- 66
- 主題
- 16
- 精華
- 0
- 積分
- 99
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-8-12
- 最後登錄
- 2023-10-26
|
2#
發表於 2014-5-27 23:42
| 只看該作者
本帖最後由 reangame 於 2014-5-27 23:45 編輯
回復 1# cict4
您好：
小弟也是剛學習VBA中，不過我依照您的需求能想到的如下：
一、檔案開啟時，先製作人員登入表單，將登入人員資料輸入到人員名冊
二、依照您的需求去製作不同權限的功能，幫您起個頭，程式碼如下：- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Set sh = Sheets("人員名冊")
- pena = sh.Cells(3, 1).Value
- Set r = sh.Columns("B").Find(pena)
- If Not r Is Nothing Then
- pena = sh.Cells(r.Row, 1).Value
- End If
- Select Case pena
- Case 1 To 5
- MsgBox "第一權限"
- Case 6 To 9
- MsgBox "第二權限"
- End Select
- End Sub
補充一下，要先創立一個分頁叫做【人員名冊】，第一欄為1到10或更多的編號，第二欄為人員姓名，第三欄為登入人員姓名
然後，要在輸入資料頁面的輸入上面的程式碼。 |
|
