返回列表 上一主題 發帖

[發問] A1的值若為"B"，B1輸入數字後的值固定為負數

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-10 12:48 | 只看該作者

[發問] A1的值若為"B"，B1輸入數字後的值固定為負數

請教各位高手，我想要讓A1輸入"B"之後，則B1不論輸入任何數字，皆會變為負數
我用下列公式去試
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each BS In [a1:a10]
If BS.Value = "B" Then
BS.Offset(0, 1) = BS.Offset(0, 1) * -1
End If
Next
Application.EnableEvents = True
End Sub
可是這樣的話，只要其他地方有更動，
原本是負數的值，就會因為*-1，又變成正數了。
因此想請問該怎麼修改，才能讓他一直保持為負數，謝謝~~~
收藏 分享

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
2#
發表於 2013-9-10 13:35 | 只看該作者
回復 1# owen06

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Intersect([A1:A10], Target) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = "B" Then Target.Offset(0, 1).Value = -1 * Abs(Target.Offset(0, 1).Value)
    Application.EnableEvents = True
End Sub
[b]Kubi[/b]

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
3#
發表於 2013-9-10 13:49 | 只看該作者
OH~YEAH！太棒了，完全ok，感謝Kubi大~

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題