- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 6
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-1-6
|
2#
發表於 2013-1-11 00:07
| 只看該作者
本帖最後由 Hsieh 於 2013-1-11 00:08 編輯
回復 1# yeh6712
thisworkbook模組- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Application.MoveAfterReturnDirection = xlDown
- End Sub
- Private Sub Workbook_Open()
- Application.MoveAfterReturnDirection = xlToRight
- With ActiveSheet
- .ScrollArea = "A1:K100"
- With .Range("A1:K100").Validation
- .Delete
- .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
- Operator:=xlBetween, Formula1:="1", Formula2:="9"
- End With
- End With
- End Sub
複製代碼 存檔後重新開啟檔案,在當前作用中的工作表即可有此限制功能
限制輸入.rar (14.27 KB)
|
|