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

السلام عليكم بالمشاركه مع جميع العمالقه اللي ردوا عالتعليقات وخاصه ابو جودى وتعديل علي طريقته اللي حضرتك قولتي عليها انها زي اللي انتي عايزاه بس عايزه فى كل مره تضيف فالتكست بتاعك القيمه اللي تختاريها مشاركتى عشان الموضوع زاد فى اكتر من صفحه نصيحه اخويه حضرتك حددي اللي انتي عايزاه كله مره واحده وبالتفصيل فالملف عشان الناس تقدر تفيدك محدش بيدعي عليكي او بيظلمك فى وجهه نظره لان حضرتك مبتقوليش طلبك كامل + ان كل شويه طلب مختلف + ان ممكن بعد شهر تفتكري او تبيقي عايزه تعدلي حاجه ترجعي تعملي منشن رغم ان الموضوع زي مبيقولو بلغه البحث العلمي بيبقي قتل بحثا ( اتعمل اكتر من مره ) اسف لوجهه نظري ولو مش علي هواكي ارميها فالسله (القمامه ) انا من اسلوبك كنت مقرر اني مش هشارك تاني بس قولت المره دي اقول وجهه نظري بجزء من الاستفاضه لاني جديد عليكم يعني مفيش معزه بيني وبين حد عشان اتحرج زي غيري واسف جدا جدا جدا عالاطاله ((((((( ولو مش هو ده المطلوب زي محضرتك طلبيتيه فمشاركاتك وظلمتي اغلب اللي عملوه بالظبط بس بوجهه نظرهم )))))))) انا مستعد ابطل اكسس ان شاء الله safaa_nn.accdb

الله عليك استاذنا @M.Abd Allah فينك من زمااااان جيب لي راسك اقبلها 😘 بارك الله فيك وجزاك الله عني خير شكرا لردك وكذلك انك خصصت من وقتك الثمين لأعطائي الحل حفظك الله ورعاك وزادك الله نورا وعلما

Gemini API.accdb

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

للاسف لم افهم الية العمل في برنامجك والارتباطات الموجوده بها .... فقم وانا اسف للتعديلات على الجداول والنماذج والعلاقات ( من اجل تقريب الصورة ) فخرجت بهذا الشكل .... وعند اكتماله وبدون اخطاء سوف ادرجه هنا ان شاء الله ....................... انظر الصور فهل تصوري صحيح لاكمل ام اتوقف لانه خطأ

السلام عليكم ورحمة الله وبركاته 🌹 درسنا اليوم عن طريقة عمل قوائم ديناميكية متحركة بأقل عدد من الأكواد وطريقة مبتكرة . 🙂 النتيجة النهائية : الشرح : تحميل الملف : Dynamic Menus.accdb

أخي @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

في حدث عند التركيز ، جرب الكود التالي :- If Me.TextBox.Value = 0 Then Me.TextBox.Value = "" End If

اسف انا لسه واخد بالى انه سؤال يشبه التحدى انا قولت دعوة للتطوير ويل مع بعض نطوره واتعلم منكم اكتر lمرفق تعديل للتنسيق اعتقد ظبط شوية ونطوره برضه مع بعض Gemini API.rar

وعليكم السلام ورحمه الله وبركاته تقدر تستخدم الطريقه دي هتعمل الداله دي فى module وتحفظها باي اسم بالطريقه دى يبقي حضرتك عملت ا لكود مره واحده وبتستدعيه كل متحب Public Function HandleKeyDown(KeyCode As Integer, Shift As Integer) As Integer If KeyCode = 115 Then ' F4 Form_Form1.k1.SetFocus HandleKeyDown = 0 ' لمنع إدخال بيانات في الحقل الحالي ElseIf KeyCode = 114 Then ' F3 Form_Form1.k5.SetFocus HandleKeyDown = 0 ' لمنع إدخال بيانات في الحقل الحالي Else HandleKeyDown = KeyCode ' لإعادة KeyCode الأصلي لتمكين إدخال البيانات في الحقل End If End Function هفترض أن لديك نموذج يحتوى على عده حقول k1,k2,k3,k4,k5 وعايز تطبق نفس الكود علي جميع هذه الحقول هتعمل فى حدث keydown لكل حقل كالاتى Private Sub k1_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub Private Sub k2_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub Private Sub k3_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub Private Sub k4_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub Private Sub k5_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub