Option Explicit
Private Const TRPos% = 1
Private Const TRNeg% = -1
Private Const TRZer% = 0
Private Const CHSIZE! = 0.5
Private rSel As Range
Private i&, lCnt&
Private nValPre!, nValNew!
'
Public Sub sb_Change_UP()
Call sb_Change(TRPos)
End Sub
Public Sub sb_Change_DN()
Call sb_Change(TRNeg)
End Sub
Public Sub sb_Change_ZR()
Call sb_Change(TRZer)
End Sub
Private Sub sb_Change(pUpDn%)
Set rSel = Selection
With rSel
lCnt = .Count
For i = 1 To lCnt
nValPre = .Item(i).Value
nValNew = (nValPre * pUpDn + CHSIZE) * pUpDn
.Item(i).Value = nValNew
Next
End With
End Sub |
