- 帖子
- 12
- 主題
- 6
- 精華
- 0
- 積分
- 18
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- SP 1
- 閱讀權限
- 10
- 註冊時間
- 2013-9-7
- 最後登錄
- 2019-2-25
|
大家好,我寫下一個事件如下:
是想將在輸入第四或第六個儲存格時會自動變除以10000後再轉成整數
但實際運作輸入數字時這程式完全沒反應我試了用MsgBox("Hello!")但
也沒出現可見根本沒呼叫下列程式不知錯在那...請指導
Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox("Hello!")
With Target
If Target.Column = 4 Or Target.Column = 6 Then
ActiveCell.Value = Round(ActiveCell.Value / 10000)
End If
End With
End Sub |
|
發表於 2013-10-17 21:16
| 
