- 最後登錄
- 2011-11-26
- 在線時間
- 1339 小時
- 註冊時間
- 2006-11-18
- 閱讀權限
- 20
- 精華
- 0
- UID
- 408973
- 帖子
- 271
- 積分
- 509 點
- 潛水值
- 154 米
| 若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。 Public Sub refresh1()
Nri2 = [N2]
Nri3 = [N3]
Nri4 = [N4]
Nri5 = [N5]
Nri6 = [N6]
Nri7 = [N7]
Nri8 = [N8]
Nri9 = [N9]
Mir2 = [M2]
Mir3 = [M3]
Mir4 = [M4]
Mir5 = [M5]
Mir6 = [M6]
Mir7 = [M7]
Mir8 = [M8]
Mir9 = [M9]
Sheets("Status").Range("A1").QueryTable.Refresh BackgroundQuery:=False
If [M2] = "離架" And [M3] = "離架" Then [N3] = " "
If [M4] = "離架" And [M5] = "離架" Then [N5] = " "
If [M6] = "離架" And [M7] = "離架" Then [N7] = " "
If [M8] = "離架" And [M9] = "離架" Then [N9] = " "
If [M10] = "在架" Then If [M2] = "在架" And [M3] = "在架" Then [N3] = "答對了"
If [M10] = "在架" Then If [M2] = "在架" And [M5] = "在架" And Mir2 <> [M5] And Mir5 <> [M5] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M2] = "在架" And [M7] = "在架" And Mir2 <> [M7] And Mir7 <> [M7] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M2] = "在架" And [M9] = "在架" And Mir2 <> [M9] And Mir9 <> [M9] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M4] = "在架" And [M5] = "在架" Then [N5] = "答對了"
If [M10] = "在架" Then If [M4] = "在架" And [M3] = "在架" And Mir4 <> [M3] And Mir3 <> [M3] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M4] = "在架" And [M7] = "在架" And Mir4 <> [M7] And Mir7 <> [M7] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M4] = "在架" And [M9] = "在架" And Mir4 <> [M9] And Mir9 <> [M9] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M6] = "在架" And [M7] = "在架" Then [N7] = "答對了"
If [M10] = "在架" Then If [M6] = "在架" And [M3] = "在架" And Mir6 <> [M3] And Mir3 <> [M3] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M6] = "在架" And [M5] = "在架" And Mir6 <> [M5] And Mir5 <> [M5] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M6] = "在架" And [M9] = "在架" And Mir6 <> [M9] And Mir9 <> [M9] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M8] = "在架" And [M9] = "在架" Then [N9] = "答對了"
If [M10] = "在架" Then If [M8] = "在架" And [M3] = "在架" And Mir8 <> [M3] And Mir3 <> [M3] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M8] = "在架" And [M5] = "在架" And Mir8 <> [M5] And Mir5 <> [M5] Then MsgBox "答錯了"
If [M10] = "在架" Then If [M8] = "在架" And [M7] = "在架" And Mir8 <> [M7] And Mir7 <> [M7] Then MsgBox "答錯了"... |
|