Worksheet_change內的格式轉換的問題, 請教前輩.
- 帖子
- 61
- 主題
- 7
- 精華
- 0
- 積分
- 72
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-11-4
- 最後登錄
- 2015-9-16
|
Worksheet_change內的格式轉換的問題, 請教前輩.
Excel 附檔名為xls
如下程式碼, 前人撰寫的, 原跑好好的, 突然不行.
操作為在該欄位掃瞄字串 =now(), 由下vba改為字串存至原欄位.
程式碼如下方:
將原Cstr改用Format , 一出現錯誤(轉換失敗)後即不行了,
必須清掉錯誤, 存檔後重新開啟, 才會將=now()轉為字串.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rtol As Double
'If Target.Column = 14 Then
''conver string
'Sheet2.Cells(Target.Row, Target.Column) = CStr(Sheet2.Cells(Target.Row, Target.Column))
Sheet2.Cells(Target.Row, Target.Column) = Format(Sheet2.Cells(Target.Row, Target.Column), "YYYY/MM/DD hh:mm:ss AMPM")
'End If
If Target.Column = 15 Then
Rtol = Target.Row
If Sheet2.Cells(Rtol, 15) > Sheet2.Cells(Rtol, 16) Then
MsgBox (" 剩餘數量不足")
MsgBox (Rtol)
MsgBox ("修正為正數")
'顯示行錯誤
Sheet2.Cells(Rtol, 16) = Math.Abs(Sheet2.Cells(Rtol, 16))
Sheet2.Cells(Rtol, 15) = 0
End If
End If
End Sub |
|
|
|
|
|
|
|
發表於 2015-4-20 10:13
| 
