عبدالفتاح في بي اكسيل

قم بعمل مسح لمديات معينة الغي هذا السطر Range("a6:g150").ClearContents واستبدله بهذا Range("a6:c150").ClearContents Range("f6:g150").ClearContents

اسف اخي الكريم لقد اخطات بالمدى تفضل اخر عملية وعدد الشهور2.xlsx

ارفق ملفك اخي الكريم لعله نجد لك حل

بعد اذن استاد حسين تفضلي اخت زهرة هذا بالمعادلة في العمود b تستطيعين سحب المعادلة الى اي مدى تريدينه وتقومين بكتابة الرقم في العمود a وستعمل المعادلة =IF(A2<>"";"basic";IFERROR(IF(OFFSET(B2;-1;0)<>"";IF(ROW()-LOOKUP(2;1/(A$1:A2<>"");ROW(A$1:A2))>LOOKUP(2;1/(A$1:A2);A$1:A2)-1;"";"sub");"");"")) 99999999999999999999999999999999999 (1).xlsm

بعد اذن استاد حسين قم بتغيير هذا السطر من Set ws = Workbooks("دمج الملفات").Worksheets("ورقة1") الى Set ws = Workbooks("دمج الملفات.xlsm").Worksheets("ورقة1")

اخت زهرة ضعي هذا الكود في حدث textbox1 واتبعي نفس خطوات الشرح في الصورة Private Sub TextBox1_Change() If Len(Dir(ThisWorkbook.Path & "\" & TextBox1.Value & ".jpg")) > 0 Then Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & TextBox1.Value & ".jpg") Else Image1.Picture = LoadPicture("") End If End Sub

الصورة غير واضحة ارفق ملف وضع النتائج المتوقعة بشرح وافي

انا لم افهم جملة حتى لايعمل أى كود أخر فى الملف الى ماذا تريد ان تصل لا استطيع ان اقول لك في بداية ام في الوسط لان البرمجة يجب تحديدها بخطوات متسلسلة جرب ضعه في البداية اذا لم ينجح ارفق ملف ووضح الكود الذي تريد استدعائه ومتى يتم استدعائه والنتائج المتوقعة حتى يتفاعل معك بقية الاساتذة

يمكنك وضعه في نفس الماكرو التي تعمل عليه بشرط ان تتاكد من اسم الماكرو الصحيح الذي تريد استدعائه اما اذا اردت ان يعمل تلقائي على حسب طبيعة عملك اذا كنت تعمل على ورقة وتريد حدوث تغيير على ورقة بمجرد الكتابة في الخلايا يمكنك وضعها في هذه الاحداث من ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub اما اذا اردت ان يعمل بمجرد فتح الملف يمكنك وضعه في هذا الحدث من ملف العمل Private Sub Workbook_Open() End Sub

على حد علمي يمكنك استدعاءه عن طريق ادراج موديل خاص او زر تحكم بالمكروات المطلوب استدعائها كتابة كلمة call ثم اسم الماكرو مثلا لديك اكثر من ماكرو sub macro1() , sub macro2 تكتب call macro1 , call macro 2

اخت زهرة هل هذا ما تريدينه

اخي كريم هل جربت ما قلته لك جرب هذه المحاولة مع اني اجدها غير عملية يتم اظهار النتيجة في نفس خلية التاريخ اتبع الشرح المرفق

لابد ان يعمل اي شي مرتبط بالورقة عندما تفتحها سيعمل ويمكنك تجربة اكواد بسيطة وتقوم بتجربتها ربما مشكلتك مع الموقع المرتبط به قد يوجد شيء غير مفعل لذلك لا تتغير البيانات عند فتح ورقة العمل

اعذرني اخي ضع الكود في حدث الملف نفسه Private Sub Workbook_ open

ضع الكود في حدث this workbook Private Sub Workbook_Open() Dim c As Range For Each c In Range("c2:c4") c.Formula = "=TickerChart|Live!'QO." & c.Offset(, -2).Value & ".TAD$lasttradeprice'" Next c Dim d As Range For Each d In Range("d2:d4") d.Formula = "=TickerChart|Live!'QO." & d.Offset(, -3).Value & ".TAD$lasttradeprice'" Next d Dim e As Range For Each e In Range("e2:e4") e.Formula = "=TickerChart|Live!'QO." & e.Offset(, -4).Value & ".TAD$lasttradeprice'" Next e End Sub 9.xlsm

اخي مصطفى تفضل على حسب ما فهمت رغم انه الشرح غامض يجب عليك كتابة الشهر في الخلية a2 =IFERROR(SUMPRODUCT(('2020'!$B$4:$B$6000=$A8)*(TEXT('2020'!$D$4:$D$6000&"-"&'2020'!$E$4:$E$6000;"YYYYMM")<=TEXT($A$2&"-"&D$6;"YYYYMM"));'2020'!$F$4:$F$6000);"") MMM1.xlsx

اخت زهرة لقد ادرجت صورة تشرح كيفية اظهار الصورة في الفورم لبرنامج قمت بتصميم اذا كان هذا ما تريديه سارفق لك الكود

هذه محاولة تفضل =IFERROR(INDEX(Sheet1!$N$2:$N$100,AGGREGATE(15,6,(ROW(Sheet1!$N$2:$N$100)-ROW(Sheet1!$N$2)+1)/(Sheet1!$O$2:$O$100=B$3),ROWS(B$4:B4))),"") برنامج.xlsx

اخي هذه محاولة مني بالكود عن نفسي افضل الاكواد ديناميكية وسريعة من غير سحب المعادلات اذا زادت البيانات ملاحظة اكتب البيانات في العمود a فقط وسيجلب البيانات الكود Sub tr() Dim lr As Integer Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lr Cells(i, 3) = Cells(i, 1) Next Range("c:c").Copy Destination:=Range("E1") Application.ScreenUpdating = True End Sub المصنف1.xlsm

اخت زهرة هل تقصدين بمجرد البحث عن رقم الروشيتة تظهر صورتها ام ماذا

ما وظيفة ملف الريجستري وهل يفتح ويقوم بحماية ام ماذا لم افهم شيء

بعد اذن الاساتذة اضافة معلومة في حالة لم ينجح قد واجهة هذه المشكلة وتعبت في حلها بعد ما تقوم بخطوات الاستاد الرائد تقوم بهذه الخطوة من قائمة ابدا واتبع الخطوات

ارفق ملف ووضح النتائج المتوقعة

بعد اذن استاد علي واثراء للموضوع هذا ملف يوجد به دوال لعد وجمع الالوان count and sum color1‬.xls

تفضل قم بفك الضغط عن الملف وانسخ الملفين في هذا الامتداد "C:\Windows\System32" بعدها تذهب الى قائمة ابدا وتدخل على موجة الاوامر وقد تجدها باسم cmd يمكنك الدخول عليها عن طريق امر تشغيل او في البرامج الملحقة لا تفتحها مباشرة عندما تجدها اتبع التعليمات كما في الصور MSCAL.rar اكتب كما في الصورة ثم انتر اذهب الى برنامجك وسيشتغل كما في الصورة