- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
[發問] 多一個if 選擇，多繞一個userform就卡住了，請教。
本帖最後由 GBKEE 於 2014-6-23 16:35 編輯
 出缺勤暨獎懲登錄.rar (800.17 KB)
請教諸位大大
Private Sub Workbook_Open()
Dim FileName As String
Dim str1 As String
str1 = Sheets("基本資料").Cells(1, 1) & Sheets("基本資料").Cells(1, 2)
FileName = ThisWorkbook.Path & "\資料庫\" & str1 & "學期資料庫\" & str1 & "學期資料.xls"
str2 = ThisWorkbook.Name
Dim fsobj As Object
Set fsobj = CreateObject("Scripting.FileSystemObject")
If fsobj.FileExists(FileName) Then
Else
MsgBox "找不著" & FileName
End If
Call MakeMenu
Application.Visible = False
'If Left(str2, 8) = "出缺勤暨獎懲登錄" Then
' UserForm9.Show
'Else
UserForm1.Show
'End If
End Sub
進入UserForm1 點 "管理者"按鈕 給了正確密碼"520" 正常
點 第二個按鈕 給了正確密碼"1234" 正常
一切正常
若改成
If Left(str2, 8) = "出缺勤暨獎懲登錄" Then
UserForm9.Show
Else
UserForm1.Show
End If
然後進入UserForm9給了正確密碼"520"
進入UserForm1 點 "管理者"按鈕 給了正確密碼"520" 卻無法Run
點 第二個按鈕 給了正確密碼"1234" 也無法Run
卡住了 也不知道錯在哪裡
求救 求救 |
|
發表於 2014-6-23 10:15
| 
