- 帖子
- 463
- 主題
- 116
- 精華
- 0
- 積分
- 580
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-4
- 最後登錄
- 2017-11-13
 
|
回復 8# GBKEE
良師!小弟知錯..對不起我錯了!
原本程式
Sub 練習()
If Sheet2.[I1] = 1 Then 練習1
If Sheet2.[I1] = 2 Then 練習2
End Sub
Sub 練習1()'數字相加
Dim ZZ
ZZ = Application.InputBox("請不吝賜教!", " 請教前輩們!!", Type:=8 + 1)
If ZZ <= 0 Then Sheet2.[I1] = 2: Exit Sub
[$M$1] = ZZ
End Sub
Sub 練習2()'數字相減
Dim ZZ
ZZ = Application.InputBox("請不吝賜教!", " 請教前輩們!!", Type:=8)
If ZZ <= 0 Then Sheet2.[I1] = 1: Exit Sub
[$M$1] = ZZ
End Sub
而良師的程式為練習3
但使終沒有被用到所以才會讓我覺得納悶
附上檔案又習慣性的用+符號來解釋問題所在!!
實在抱歉!!辛苦囉!謝謝再三!! |
-
-
LeoV67-1.gif
(930.34 KB)
|
發表於 2013-4-17 21:03
| 
