نجوم المشاركات

مثال جمع الاعداد.mdb

انا مش حابه اعلق على كلامك انا عموما عملتها بمساعدة منتدى اجنبى شكرا لكل اللى تعب معايا ومش ناسيه ولا ناكره مجهود حد. وعلشان مش حابه اسبب لحد تعب او اجهاد بسبب طلباتى اللى بتكون صعبه ومبهمه او مش واضحه بالنسبالكم علشان كدا انا اخدت قرار مش هدخل المنتدى تانى شكرا لكل الناس اللى ساعدتنى ووقفت معايا @عمر ضاحى شكرا @Foksh شكرا @ابو جودي شكرا @ابو خليل شكرا @kkhalifa1960 شكرا حبيبتى @hanan_ms

ليس مستحيلا يا صديقي يمكن تطبيق ذلك انا لدي برنامج مصمم بالاكسس وفي نفس الوقت لدي تطبيق على الهاتف يتم تبادل البيانات بينهما بكل اريحية باستخدام سيرفر وقاعدة بيانات وصفحات php ويتم ذلك باوامر api ويمكنني التحكم ببرنامج الاكسس من خلال الهاتف من اغلاق النسخة وتمديدها وارسال ملاحظات واستقبال ملاحظة من يعمل على البرنامج والكثير من الامور وان احببتم اضع لكم فيديو توضيحي لما يقوم به التطبيق بين برنامج الاكسس والهاتف :: تحياتي

السلام عليكم أخي الكريم عدلت لك قليلا في نسق الملف بحيث أن أول جدول يتطابق مع باقي الجداول التالية يعني كل جدول بما فيها الأول يكون 36 سطر شامل السطر الفاضي بين الجداول وعندما تريد إضافة جدول آخر تأخذ نسخة من الثاني وليس من الأول واحرص أن يكون الفارق بين بداية أي جدول والذي يليه 36 سطر بالضبط تفضل المرفق التجميع2.xlsx

السلام عليكم و رحمة الله استخدم هذا الكود Sub AddRow() Selection.EntireRow.Insert , xlFormatFromLeftOrAbove End Sub

بارك الله فيك وزادك الله من فضله

جزاك الله خيرا

أخي @hanan_ms أنت ماهر في تصميم النماذج ولديك خبرة في استخدام عناصر Active x 🙂 أيش رايك تعمل سلسلة دروس في كيفية استخدام هذي العناصر والتحكم فيها.. ( ولكن في مواضيع مستقلة بك وبشكل منظم .. بدل ما توزع المعلومات في مواضيع المنتدى بشكل متفرق ) .. كل مرة تشرح أداة من هذي الأدوات .. من بداية إدراجها .. واستخداماتها .. وكيفية تضبيطها .. والتحكم في خياراتها .. أيش رايك ؟؟ 🙂

بالنسبة للتسلسل يمكنك استخدام الصيغة التالية مع سحبها للاسفل بعد حدف كود ترقيم الصفوف من حدث ورقة 1 =IF(C9>0,SUBTOTAL(3,$C$9:C9),"") اما بخصوص تنسيق اعمدة الروابط اظن انه من الافضل ربط الكود مع زر يمكنك استخدامه مثلا بعد الانتهاء من نسخ جميع الروابط على العمودين جرب هدا Function tmp(Cnt As String) As Boolean Dim Request As Object Dim rc As Variant On Error GoTo EndNow Set Request = CreateObject("WinHttp.WinHttpRequest.5.1") With Request .Open "GET", Cnt, False .Send rc = .StatusText End With Set Request = Nothing If rc = "OK" Then tmp = True Exit Function EndNow: End Function Sub add_Hyperlinks() Application.ScreenUpdating = False Set WS = Sheets("Sheet1") Dim c As Excel.Range, Cnt As String, r As Excel.Range Dim a As Range, b As Range, Rng As Range lr = WS.Columns("i:j").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row Set a = WS.Range("i9:i" & lr): Set b = WS.Range("j9:j" & lr): Set Rng = Union(a, b) For Each c In a If c > "" Then c.Select Debug.Print c.Value Cnt = Trim(CStr(c.Text)) If Left(Cnt, 4) <> "http" Then Cnt = "http://" & Cnt If tmp(Cnt) Then WS.Hyperlinks.Add Anchor:=c, Address:=Cnt, TextToDisplay:="رابط اليوتيوب" End If Next c For Each r In b If r > "" Then r.Select Debug.Print r.Value Cnt = Trim(CStr(r.Text)) If Left(Cnt, 4) <> "http" Then Cnt = "http://" & Cnt If tmp(Cnt) Then WS.Hyperlinks.Add Anchor:=r, Address:=Cnt, TextToDisplay:="رابط الفيسبوك" End If Next r With Rng .Font.Color = RGB(0, 0, 255) .Font.Underline = xlUnderlineStyleNone .Font.Bold = True .Font.Name = "Calibri" .Font.Size = 16 End With Application.ScreenUpdating = True End Sub 14-7-2024 V2.xlsm