標題: Worksheet_change內的格式轉換的問題, 請教前輩. [打印本頁]

---

作者: mmxxxx    時間: 2015-4-20 10:13     標題: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)