- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 255
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-25
              
|
2#
發表於 2011-8-24 09:03
| 只看該作者
回復 1# metrostar - Private Sub Worksheet_Change(ByVal Target As Range)
- If Intersect(Target, [D3:D8]) Is Nothing Or Target.Count <> 1 Then Exit Sub
- If Application.Sum([D3:D8]) < 510 Then msg = "數值總和差 " & 510 - Application.Sum([D3:D8])
- If Target Mod 1 <> 0 Then msg = "只能輸入整數": fs = True
- If Application.Sum([D3:D8]) > 510 Then msg = "數值最大只能輸入 " & 510 - Application.Sum([D3:D8]) + Target: fs = True
- If Target < 0 Or Target > 255 Then msg = "數值只能介於0~255": fs = True
- If msg <> "" Then MsgBox msg
- If fs = True Then Target.Select
- End Sub
|
|
發表於 2011-8-23 15:21
| 
