帖子: 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次的過程？

謝謝。

樓主熱帖

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

5^#

發表於 2011-11-18 09:20 | 只看該作者

感謝版主們的回覆，一次比一次清楚了。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

中學生 Rank: 2

帖子: 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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