返回列表 上一主題 發帖

[發問] 複製儲存格範圍

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 »
發表於 2012-5-16 11:12 | 顯示全部帖子
回復 3# caichen3
    問題在 b = Range("A2").Value
    若Range("A2").Value =""或是0時~ 您執行的時候就會錯誤
     henji = MsgBox("確定輸入 " & Range("A1").Value & "個製程需求?", Buttons:=vbYesNo + vbQuestion, Title:="需求數確認")
    b = Range("A2").Value
    這兩行調一下位置~ 如下
    b = Range("A2").Value
    IF b<0  THEN
         MsgBox "請重新確定您的製程需求數"
         Exit Sub
    ELSE
         henji = MsgBox("確定輸入 " & Range("A1").Value & "個製程需求?", Buttons:=vbYesNo + vbQuestion, Title:="需求數確認")
     END IF
學習才能提升自己

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題