依未結PO及要出貨數量,自動換算要出貨的PO及數量

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-10-2 10:16 | 顯示全部帖子

回復 7# luhpro
Private Sub Worksheet_Change 是這 "未結PO" 工作表的觸動事件

Private Sub Worksheet_Change(ByVal Target As Range)
' With Target.Parent '於 Sheets("未結PO") '可不必有此With
' If .Cells(Target.Row, 1) <> "" And .Cells(Target.Row, 2) <> "" And .Cells(Target.Row, 3) <> "" Then
If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" And Cells(Target.Row, 3) <> "" Then
With Cells(Target.Row, 3)
.NumberFormat = "#,##0_ "
.Offset(, 1).NumberFormat = "#,##0_ "
.Offset(, 1) = .Value
End With
End If
' End With
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-2 11:26 | 顯示全部帖子

回復 9# p6703
不是修改版,是說明 luhpro的程式可精簡

靜思自在 : 不要隨心所欲，要隨心教育自己。