[حل شده] درج سه صفر با تعریف یک کلید از کیبورد

[mohamadali110]

با سلام چطوری میتونم مثل ماشین حساب که دکمه سه صفر داره رو در اکسل طراحی کنم به طوری که مثلا میخوام عدد 26000 رو در یک سلول بزنم عدد 26 و یه دکمه خاص از صفحه کیبورد رو بزنم وقتی اینتر کردم خودش بزنه 26000

[iranweld]

با سلام

در فایل پیوست در صورت ورود عدد بهمراه "+" ، عدد وارده در 1000 ضرب میگردد و در صورت ورود عدد بهمراه "++" عدد وارده در 1000000 ضرب میشود

126+=126000 

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If IsNumeric(Left(Target, Len(Target) - 3)) And Right(Target, 3) = "+++" Then

Target = Left(Target, Len(Target) - 3) * 1000000000

ElseIf IsNumeric(Left(Target, Len(Target) - 2)) And Right(Target, 2) = "++" Then

Target = Left(Target, Len(Target) - 2) * 1000000

ElseIf IsNumeric(Left(Target, Len(Target) - 1)) And Right(Target, 1) = "+" Then

Target = Left(Target, Len(Target) - 1) * 1000

End If


End Sub