אקסל חישוב חד פעמי של נוסחה על ידי שימוש ב-VBA

ג' שואל:

תודה מראש

 

 

תשובה:

 

פתרון אפשרי הוא על ידי שימוש בקוד VBA. יש לשמור את הקובץ בפורמט XLSM התומך בהפעלת קוד מקרו ולאפשר בהגדרת אקסל הפעלת קוד מקרו (אקסל-> אפשרויות->מרכז אבטחה -> הגדרות מקרו).

 

נגדיר את השגרה הבאה הבא בעורך VBA של אקסל.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
              With ActiveSheet
    If Target.Row = 1 And Target.Column = 2 Then
        .Cells(1, 2).Value = .Cells(1, 2).Value
    End If
    End With
End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

לדוגמה: נגדיר בתא A1 את תאריך היום ע"י נוסחה ()today=  ובתא B1 נגדיר את הנוסחה A1=

 

 

 

 

 

 

 

 

כתוצאה מהשינוי בגיליון, הנוסחה בתא B1 תומר לערך ולכן שינויים של תא A1 בהמשך לא ישנו את הערך בתא B1.