hayyan alaa قام بنشر يوليو 22, 2019 مشاركة قام بنشر يوليو 22, 2019 السلام عليكم هل من الممكن المساعدة في شرح هذا الكود و ارفق معه ملف الاكسل 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.