Board logo

標題: 請問 附件的程式碼該如何改善? [打印本頁]

作者: mistery    時間: 2010-12-31 14:11     標題: 請問 附件的程式碼該如何改善?

請問版主

我直接複製第一段程式碼做第二段  可是第二段卻都無法運作
想問該如何改善?  感謝~

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$D$13" Then Exit Sub
If Target = "倍數" Then [D27:D27] = "" Else [D27:D27].FormulaR1C1 = "某公式"

'以下是第二段
If Target.Address <> "$E$13" Then Exit Sub
If Target = "倍數" Then [E27:E27] = "" Else [E27:E27].FormulaR1C1 = "某公式"
End Sub




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