返回列表 上一主題 發帖

請問撰寫判斷式，之後跳出警告視窗。

tku0216

帖子
209 
主題
43 
精華
0 
積分
262 
點名
0  
作業系統
win 7 
軟體版本
office 20** 
閱讀權限
20 
性別
男 
註冊時間
2011-11-3 
最後登錄
2017-4-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-17 09:51 | 只看該作者

請問撰寫判斷式，之後跳出警告視窗。

各位大大好，
    我有一個3*4的表格，每格都是數字，這些數字會依照使用者的填寫而累加，我要在VBA裡寫程式讓他在大於某個數字的時候，跳出樹窗說已經達到預定數字。
我有想過用if then來寫，但這樣我要寫12次，以下請教兩個問題：
1.我發現當我某一格到達預定數字時，警告視窗會跳出，但之後他就一直跳出了。
2.是否可以用迴圈來簡化寫12次的過程？

謝謝。
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-11-17 10:18 | 只看該作者
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1:d3]) Is Nothing Then
If Target > 100 Then MsgBox "超過了"
End If
End Sub

TOP

tku0216

帖子
209 
主題
43 
精華
0 
積分
262 
點名
0  
作業系統
win 7 
軟體版本
office 20** 
閱讀權限
20 
性別
男 
註冊時間
2011-11-3 
最後登錄
2017-4-16 
3#
發表於 2011-11-17 11:22 | 只看該作者
多謝版主回覆，
想附帶詢問一個問題：就是我看各位的程式寫法，都是以“Private Sub Worksheet_Change(ByVal Target As Range)”開頭，這是不是一個固定用法？因為我目前只有用到添加一個按鈕，所以我都是用“Private Sub CommandButton1_Click()”當開頭。

還有請問這段程式碼“If Not Intersect(Target, [j18:l18]) Is Nothing Then”所代表的意義，謝謝。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-11-17 11:38 | 只看該作者
本帖最後由 GBKEE 於 2011-11-17 11:46 編輯

回復 3# tku0216
Private Sub CommandButton1_Click()”  按下物件的事件  工作表控制工具箱 , vba  表單.

Private Sub Ex()      Private  (模組: 私用)   不顯示在 指令->巨集 視窗中   
在這模組的程序中  可直接 Ex 來乎叫 ,  其他模組需用  Run "Sheet1.Ex"  來呼叫

Intersect 方法 傳回 Range 物件  :  代表兩個或多個範圍重疊的矩形範圍  
If Not Intersect(Target, [j18:l18]) Is Nothing Then  
Not ???    Nothing   物件不存在

TOP

tku0216

帖子
209 
主題
43 
精華
0 
積分
262 
點名
0  
作業系統
win 7 
軟體版本
office 20** 
閱讀權限
20 
性別
男 
註冊時間
2011-11-3 
最後登錄
2017-4-16 
5#
發表於 2011-11-18 09:20 | 只看該作者
感謝版主們的回覆，一次比一次清楚了。

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題