درخواست فرمول

[omid0912]

سلام
خداقوت
در سه ستون، به ترتیب واریز، برداشت و موجودی را داریم
در ستون واریز یا برداشت وقتی عددی تایپ می کنم می خوام اتوماتیک در سلول مقابلش عدد صفر را بنویسد.
من خیلی در اکسل وارد نیستم ممنون میشم راهنمایی بفرمایید.
سپاس

[Amir Ghasemiyan]

سلام دوست عزیز

برای اینکه بتوانید به طور خودکار در اکسل هنگام وارد کردن عدد در ستون واریز یا برداشت، عدد صفر را در ستون مقابل (موجودی) بنویسید، میتوانید از VBA (Visual Basic for Applications) استفاده کنید. در زیر مراحل انجام این کار را توضیح میدهم:

باز کردن ویرایشگر VBA:

ابتدا فایل اکسل خود را باز کنید.
سپس کلید Alt + F11 را فشار دهید تا ویرایشگر VBA باز شود.
اضافه کردن یک ماژول:

در ویرایشگر VBA، بر روی ThisWorkbook در سمت چپ کلیک کنید.
سپس از منوی بالا گزینه Insert را انتخاب کرده و Module را کلیک کنید.
نوشتن کد VBA:

در پنجرهی ماژولی که باز شده است، کد زیر را وارد کنید:
vba

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DepositCell As Range
Dim WithdrawalCell As Range

Set DepositCell = Me.Range("A:A") ' فرض کنید ستون واریز ستون A است
Set WithdrawalCell = Me.Range("B:B") ' فرض کنید ستون برداشت ستون B است

If Not Intersect(Target, DepositCell) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value <> "" Then
Target.Offset(0, 1).Value = 0
End If
End If

If Not Intersect(Target, WithdrawalCell) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value <> "" Then
Target.Offset(0, 1).Value = 0
End If
End If
End Sub

توجه: در این کد فرض شده است که:

ستون واریز (واریز) در ستون A قرار دارد.
ستون برداشت در ستون B قرار دارد.
ستون موجودی در ستون C قرار دارد.