كيف انفذ هذا الكود "textbox1= sum range("a1:a100

[ajore]

textbox1 = sum range("a1:a100

 

كيف انفذ هذا في الفورم

:)

[عبد الله بولنوار]

غير واضح

[ابو تراب]

بعد اذن اخي عبدالله

 

هل تقصد كما هو في الكود التالي:

 

Private Sub Worksheet_Change(ByVal Target As Range)
    UserForm1.TextBox1.Text = WorksheetFunction.Sum(Range("A1:A100"))
End Sub

انظر المرفق

 

Text.zip

[طارق محمود]

أخي العزيز

TextBox1.Value = WorksheetFunction.Sum([A1:A100])

تفضل

form1.rar

[ajore]

أخي العزيز

TextBox1.Value = WorksheetFunction.Sum([A1:A100])

تفضل

بالضبط اخي - يجزيك الخير .. ولكن اذا اردت ان يأخد البيانات من صفحة محددة ؟!!

[ياسر خليل أبو البراء]

تفضل أخي

Private Sub UserForm_Activate()
    Me.TextBox1.Value = WorksheetFunction.Sum(Sheets("Sheet1").Range("A1:A100"))
End Sub