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

👆 وانا كذلك من رأى استاذى الجليل @kanory ال #C كذلك Visual Studio.NET قد تكون قريبة نوعا ما من اسلوب كتابة الاكواد داخل محرر أكواد الاكسس

Sub pastespc() Dim t As Long, r As Long, m As Long lr = Range("d" & Rows.Count).End(3).Row + 5 t = lr Range("a1:e34").Copy Range("a" & lr) m = Range("d" & Rows.Count).End(3).Row For r = m To t + 5 Step -1 If Application.CountA(Range("A" & r).Resize(1, 4)) = 0 Then Range("A" & r).Resize(1, 5).Delete End If Next r If Cells(8, 2) <> "" Then lrr2 = Range("h" & Rows.Count).End(xlUp).Row + 1 Else lrr2 = Range("h" & Rows.Count).End(xlUp).Row + 1 ActiveSheet.Hyperlinks.Add anchor:=Cells(lrr2, 8), Address:="", SubAddress:="ÝÇÊæÑÉ!" & "e" & lr + 2 End If Cells(lrr2, 8) = [e3] Cells(lrr2, 9) = [c5] Cells(lrr2, 10) = [b7] Cells(lrr2, 11) = [e32] [e3] = [e3] + 1 End Sub

أعتقد وضع اليوم في تنسيق خانة التاريخ يغني عن استعمال عمود إضافي لليوم وإذا كان لابد منه يمكن استعمال هذه المعادلة في الخلية A4 =IF(B4="","",TEXT(B4,"dddd")) بالتوفيق

تفضل التعديل ارجو ان يكون طلبك Database32-1.rar

بسم الله الرحمن الرحيم تحت شعار كنت قد رفعته سابقا "أتمنى وجود جيل من المبرمجين العرب قادر على الابتكار والمنافسة" أبدأ معكم إخوتي وأحبابي نظرا لما وجدته في الإخوة والأساتذة المهتمين (مثلي) ببرمجة وتصميم المواقع وبرمجة الأكسس والفيجوال بيسك من الاهتمام بالأداة التي تقوم بتحويل قواعد البيانات أكسس إلى ملف sql يمكن استيراده من داخل phpmyadmin ويتم التعامل معه على أنه قاعدة بيانات mysql ونظرا لما لاحظته من الرغبة في عمل البرنامج كمحول لقواعد بيانات mysql المتمثلة في ملف sql وتحويله إلى قاعدة بيانات أكسس توكلت على الله واستعنت به على قضاء حاجتي وحوائج إخواني وأخواتي واليوم أعرض لكم برنامج محول الماس لقواعد بيانات أكسس و ماي إس كيو إل (الإصدار الأول) حيث يحول البرنامج قواعد بيانات أكسس إلى mysql بمجرد الضغط على الزر واختيار قاعدة البيانات المطلوب تحويلها ويقوم أيضا بتحويل ملف sql إلى قاعدة بيانات أكسس وبها الجداول والسجلات الموجودة في ملف sql وبانتظار ملاحظاتكم واقتراحاتكم لتطوير هذه الأداة حجمها 208 كيلو بايت التي تقوم بعمل برنامج DBConvert for Access & MySQL والذي ثمنه 79 دولار وحجمه 17.5 ميجا بايت تقريبا وهذه صفحته وفقنا الله وإياكم إلى كل ما يحبه ويرضاه أخوكم أبو عبد الله محمد صالح mas-access&mysql-converter.rar

وهذا ملف التطبيق OpenImage.zip

يمكنك استعمال هذا الإجراء Sub mas() lr = Cells(Rows.Count, 3).End(3).Row With Range("d4:d" & lr) .Formula = "=IFERROR(VLOOKUP(C4,H$4:I$27,2,0),"""")" .Value = .Value End With MsgBox "Done by mr-mas.com" End Sub وربطه يزر أو في حدث التغيير بالتوفيق

بعد اذن استاذنا الكبير محمدصالح جزاه الله خيرا هذا ملف تطبيق لما ذكره الاستاذ الفاضل تحياتي Shoun+.xlsm

Sub Test() Dim w1 As Worksheet, w2 As Worksheet, c As Range, n As Long Set w1 = Sheets("2020"): Set w2 = Sheets("2021") n = w2.Cells(Rows.Count, 1).End(xlUp).Row + 1 For Each c In w1.Range("A5").CurrentRegion.Columns(5).Cells If c.Value = "Active" Then w2.Range("A" & n).Resize(1, 5).Value = c.Offset(, -4).Resize(1, 5).Value n = n + 1 End If Next c End Sub

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

عرفت الخلل في العلامة اللي بعد الواحد =IF(E14/(D14*4)>=1;1;(E14/(D14*4))) الظاهر استاذ محمد حسب نسخ الاوفيس شكرا لك ياقمر لمساعدتك 😍

يمكنك استعمال هذه المعادلة =if(E14/(D14*4)>=1,1,E14/(D14*4)) بالتوفيق

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

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

جزيل الشكر لشخصكم الكريم وأشكر لكم جام تواضعكم وجميل صبركم جزاك الله كل خير

هل هذا ماتريده Database132.rar

جزيل الشكر لحضرتك جزاك الله كل خير يارب

يمكنك استعمال الأشكال التلقائية في رسم الدوائر من تبويب إدراج insert ثم أشكال shapes ثم شكل بيضاوي oval ثم نضغط مع السحب بزاوية مع الضغط على زر shift لرسم الدائرة وبعدها يتم الكتابة داخلها ثم نسخ الشكل الناتج وتعديل الرقم بالتوفيق

يمكنك استعمال هذا الكود عند تغيير كومبوكس2 Private Sub ComboBox2_Change() Dim i As Long, lastrow As Long, ws As Worksheet Set ws = Sheets("بيان") lastrow = ws.Range("e" & Rows.Count).End(xlUp).Row Me.TextBox1.Value = "" For i = 2 To lastrow If Me.ComboBox2.Value = ws.Cells(i, "e") And Evaluate("=EDATE(" & CDbl(CDate(Me.ComboBox1.Value)) & ",-1)") = CDate(ws.Cells(i, "d")) Then Me.TextBox1.Value = ws.Cells(i, "g").Value End If Next i End Sub ولا تنس أن تحذف الخلايا التي بها الشرح في الصف 12 و 13 بالتوفيق

اتفقنا قبل ذلك على وضع السطر التالي Me.Text20 = Null في الكود الخاص Text22_Click تحياتي بالتوفيق اخي الكريم دمت بكل خير تحياتي

غالبا تحدث تلك المشكلة على الشبكة المحلية وان لم تخوننى ذاكرتى كان لوالدى الحبيب ومعلمى الجليل الاستاذ @jjafferr مشاركة لتجنب تلك المشكلة سوف اقوم بالبحث عنها ان شاء الله واضعها بين اياديكم اثراء للموضوع الحمد لله اعتقدت اننى سوف ابحث كثيرا الى ان اتوصل الى الموضوع ولكن الحمد لله ان شاء الله الحل فى تلك المشاركة بها درر ولكن تحتاج لقليل من التركيز

قد تساعدك هذه القاعدة من تصميم الاخوة بالمنتدى لا اتذكر الاسم db2.mdb

لكي يتم وضع الصورة في النموذج يجب أن يتم استعراض الملفات وتحديدها فلماذا نريد طباعتها بعد وضعها في النموذج الأولى طباعتها من مسارها الأصلي إلا إذا كان مصدر الصورة ليس على الجهاز والهدف هو استخراجها مرة أخرى على كل حال يمكنك استعمال هذا الكود في الزر Private Sub CommandButton1_Click() Dim image_path image_path = CreateObject("scripting.filesystemobject").GetSpecialFolder(2).Path & "\mas.bmp" SavePicture Image1.Picture, image_path If MsgBox("هل تريد طباعة الصورة الآن؟", vbYesNo) = vbNo Then Exit Sub Call apiShellExecute(Application.hwnd, "print", image_path, vbNullString, vbNullString, 0) End Sub بالتوفيق

أخي الكريم kanory بارك الله فيك وفي حبيايبك وحبايبنا الأخ محمد أبوعبدالله والأخ ابوخليل أعزكم الله بعلمكم وبورك لكم في صحتكم

السلام عليكم اخواني الافاظل. افضل واسهل واحدث للغة برمجة قابله لتطوير هي للغة بيثون جمعت بين الحداثه والسهوله والسلاسهه

يمكنك استعمال هذه المعادلة =IF(DAY(TODAY())=1,1,1+(DAY(TODAY())-1)*5) بالتوفيق

لتحويل أي معادلة إلى كود يمكنك استعمال هذه الطريقة [Cell reference] = Evaluate("=Cell formula") وفي حالتك [i13] = Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))") وطريقة استدعائه بزر أمر مرتبط بإجراء sub به هذا الكود أو في حدث تغيير خلايا ورقة العمل worksheet_change وبالنسبة للتنفيذ من الأكسس على نفس هذا الشيت بعد تصديره مثلا نستعمل قبل evaluate اسم كائن تطبيق الاكسل مثال sh.Range("i13").value = Xlapp.Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))") بالتوفيق

هذا الأمر من الممارسات العادية واليومية في اكسل وأنا شخصيا لا أفضل تنفيذها بالكود فقط تحتاج لتشغيل Filter تصفية من تبويب بيانات data ستجد سهم في أعلى كل عمود فقط اضغط على السهم في عمود التاريخ واختر sort ترتيب تصاعدي أو تنازلي حسب الطلب بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية A7 =IF(B7="","",COUNTIF(B$7:B7,"<>")) وتعني إذا كانت خلية القيمة فارغة تكن فارغة وإلا فيعد خلايا القيمة المكتوبة حتى الآن بالتوفيق

جميعا بإذن الله قراءة الموضوعات السابقة في المنتدى تجيب عن كثير من تساؤلاتنا إن شاء الله تجد المطلوب الأول في هذا الموضوع

بالنسبة للمطلوب الأول لا يتم بالمعادلات وإنما باكواد vba بالنسبة للمطلوب الثاني تم فك الدمج عن جميع الخلايا لأنه يصعب مهمة المعادلات تم وضع المعادلات في الجدول الأزرق وهذا شرح طريقة الحصول على الأصناف بدون تكرار تحديد الخلايا التي بها الأصناف مع العنوان (الصنف) تبويب data ثم advanced ثم ضبط خيارات النافذة كما بالصورة ثم موافق بالتوفيق حل.xlsx

وعليكم السلام لغة #C

تفضل حسب طلبك حقل في تذييل الصفحة يظهر رقم النسخة Dim i As Integer countPrint = 1 Do Until i = Me.[pallet order].Value i = i + 1 DoCmd.OpenReport "master card query", acViewNormal countPrint = countPrint + 1 Loop master card2.rar

هذا المطلوب لا يتم بالمعادلات لابد من تدخل جراحي (vba) يمكنك استعمال هذا الكود في حدث عند التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 3 And Target.Column >= 1 And Target.Column <= 3 And Evaluate("=counta(a3:d3)") = 4 Then lr1 = Cells(Rows.Count, 1).End(3).Row + 1 lr1 = IIf(lr1 < 4, 4, lr1) lr2 = Cells(Rows.Count, 12).End(3).Row + 1 Range("a" & lr1 & ":d" & lr1).Value = Range("a3:d3").Value Range("l" & lr2 & ":o" & lr2).Value = Range("a3:d3").Value Range("a3:c3").ClearContents End If End Sub وهذا ملفك بعد إضافة الكود وتغيير الامتداد 555.xlsb

انا ايضا حصلت معي نفس المشكلة

شكرا لجميع الإخوة على كلماتهم الطيبة كامل الداتا طبعا البرنامج يقوم بتحويل ملف الأكسس إلى ملف sql يتم استيراده الى قواعد البيانات mysql والعكس أعتقد موجود جرب استعمال البحث في المنتدى الأستاذ الفاضل محمد ليث البرنامج يحول بين الأكسس و mysql الخاص بالموقع مثلا وليس ب sql server

نظرا لما للبرنامج من أهمية لمنتدى برمجة المواقع أحببت أن أنوه له هنا و يمكنكم قراءة الموضوع في منتدى الأكسس هنــــــــــا

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

آمين ولك مثلها أخي الموسى شكرا لك

وفيك بارك أخي الكريم سعيد بمرورك

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

أشكرك أخي خالد وفقك الله

سعيد بمرورك اخي الكريم رياض نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

أخي ياسر بالنسبة لموضوع الإعلانات العامة أنت تعلن عن المتغير فقط فيه ولا تسند له قيمة إلا داخل الإجراء أو الدالة يعني تستعمل public في الإعلان و set في داخل الإجراء قبل أي تعامل مع الورقة المذكورة وهذا يؤكد الاستغناء عن الإعلان العام وكتابة اسم الورقة أو رقمها وبدء التعامل معها مباشرة والسلام عليكم ورحمة الله وبركاته

عليكم السلام ورحمة الله وبركاتة شرفت الموضوع اخى إكسيلجي للأسف لا اعمل على اكسيل 12 ولكن فى مكتبتى نسخة بورتابل له قمت بالتجربة عليها واليك ما فعلت بالضبط وهو موثق بملف الفيديو المرفق فتحت ملفك المرسل ومن خلال الازار التى ادرجتها عوضا عن ايقونات تشغيل البرنامج التى لا تظهر مع اكسيل 12 ضغطت على زر كشف جديد بالكامل لبدأ البرنامج من جديد ثم قمت بتغذية الخزينة بالفئات وبدأت الصرف وكان يعمل بصورة طبيعية كما فى ملف الفيديو المرفق ارجو اعدة التجربة واخبارى بالنتيجة واليك تحليل ما حدث قد يكون البرنامج توقف لسبب ما نتيجة خطأ ما لم آخذه فى الحسبان وانت تعرف ان البرنامج يعمل من خلال احداث الورقة فبعد التوقف ومواصلة العمل قد تكون الاحداث معطلة ( Events ) فلم يستجيب البرنامج معك اعد التجربة واعلمنى بالنتيجة سيتم عمل نسخه اخرى بها ازرار تشغيل بدلا من الايقونات لتعمل على اكسيل 12 وشاهد المرفق Test.rar