返回列表 上一主題 發帖

[發問] 輸入某區域,會跳出提示晝面?

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-23 15:21 | 只看該作者

[發問] 輸入某區域,會跳出提示晝面?

學妹又來麻煩大家了

打開 EXCEL 檔有詳細說明喔

請帥哥/美女版主 帥哥/美女學長跟學姐

幫忙學妹完成

Book2.rar (4.22 KB)

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
244  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-10 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-8-24 09:03 | 只看該作者
回復 1# metrostar
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Intersect(Target, [D3:D8]) Is Nothing Or Target.Count <> 1 Then Exit Sub
  3. If Application.Sum([D3:D8]) < 510 Then msg = "數值總和差 " & 510 - Application.Sum([D3:D8])
  4. If Target Mod 1 <> 0 Then msg = "只能輸入整數": fs = True
  5. If Application.Sum([D3:D8]) > 510 Then msg = "數值最大只能輸入 " & 510 - Application.Sum([D3:D8]) + Target: fs = True
  6. If Target < 0 Or Target > 255 Then msg = "數值只能介於0~255": fs = True
  7. If msg <> "" Then MsgBox msg
  8. If fs = True Then Target.Select
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
3#
發表於 2011-8-24 10:12 | 只看該作者
太棒了,可以了 (感恩)
多謝這位帥哥超級版主
學妹非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題