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

اسف  اخي  الكريم   لقد  اخطات  بالمدى 

تفضل 

اخر عملية وعدد الشهور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

اكتب كما  في  الصورة ثم انتر 

اذهب الى برنامجك  وسيشتغل  كما  في  الصورة 

اختي  الكريمة تفضلي 

 لقد  قمت باضافة  زر تعديل  بدل بحث وتعديل   من جعلهم زر واحد في  اليوزرفورم

2.xlsm