اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

 

هل من  الممكن المساعدة في شرح هذا الكود

و ارفق معه ملف الاكسل

 

Option Explicit

Sub my_sum_By_Chosen_Sheets()
    Dim s#, k%, t1%, t2%
    On Error GoTo Leave_me_Out

t1 = Sheets(Sheets("mn").Range("a15").Value).Index
t2 = Sheets(Sheets("mn").Range("b15").Value).Index
  For k = Application.Min(t1, t2) _
          To Application.Max(t1, t2)
    s = s + IIf(IsNumeric(Sheets(k).Range(Sheets("mn").Range("C15"))), _
    Sheets(k).Range(Sheets("mn").Range("C15")), 0)
  Next
    Sheets("mn").Range("d15") = s
    Exit Sub
Leave_me_Out:
   MsgBox "Check Please the Addrees And The Sheet's Names" & Chr(10) & _
   "In The Range(A15:C15)"
End Sub

 

 

 

sum_from_multy_sheet.xlsm

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information