- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE2010
- 閱讀權限
- 10
- 註冊時間
- 2013-4-12
- 最後登錄
- 2013-4-15
|
各位前輩好，我最近遇到客人跟我提，希望EXCEL儲存格只要是空白的地方才能輸入，且只能輸入一次，存檔後就不能修改的需求，
上網翻找無意中發現VBA可以達到這個需求，並找到了這段碼
Dim mm, nn
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If nn > 1 Then
Selection = mm
Application.EnableEvents = True
Exit Sub
End If
If mm <> "" Then Target = mm
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nn = Target.Count
mm = Target
End Sub
經測試後確實可以達到客人所需的限制，但是發生了一個問題，
就是若儲存格式單格的話，沒問題。
若儲存格是合併儲存格，就沒有效用，所以想請教版上的前輩是否可以協助看一下要如何修改這程式碼，
感激不盡。
 Microsoft Excel 工作表.rar (13.51 KB)
|
|
發表於 2013-4-12 11:05
| 
