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

تفضل هذه الفكرة 1678743215_.accdb R_RECEIVING.pdf

Sub Test() Dim x, temp, myDir As String, fn As String, wsName As String myDir = ThisWorkbook.Path & "\" fn = "B.xlsx" wsName = ActiveSheet.Name If Dir(myDir & fn) = "" Then MsgBox "Workbook Not Found", vbExclamation: Exit Sub On Error Resume Next x = ExecuteExcel4Macro("'" & myDir & "[" & fn & "]" & wsName & "'!R1C1") temp = Err.Number On Error GoTo 0 If (temp = 0) * (Not IsError(x)) Then With ActiveSheet.Range("A1:A8") .Formula = "='" & myDir & "[" & fn & "]" & wsName & "'!F4" .Value = .Value End With Else MsgBox "Worksheet Not Found", vbExclamation End If End Sub

وهذه مشاركة بطريقة اخرى مع الاساتذة الكرام <<<<<<<>>>>>>> 1678743215_.accdb

هكذا <<<<<>>>>>> DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*' AND class Like '*" & Me.lst4.Column(1) & "*'" دائما الشروط تكتب بين علامتي تنصيص انظر للكود بعد تفريغ الشرطين يصبح هكذا DoCmd.OpenReport "rpt_class", acViewPreview, , "هنا بكتب جميع الشروط والمعاريير" وهذا شكل الشرطين class Like '*" & Me.lst4.Column(1) & "*' AND class Like '*" & Me.lst4.Column(1) & "*'

Sub Test() Dim c As Range, s As String For Each c In [F4,H4,I4] If IsEmpty(c) Then s = s & IIf(s > "", ", ", "") & c.Address(False, False) Next c If s > "" Then MsgBox "You Must Fill " & s, 48, "Officena": Exit Sub For Each c In Range("A4:A" & Cells(Rows.Count, 1).End(xlUp).Row) If c.Value = [F4] And c.Offset(, 2).Value2 > [I4].Value2 Then [J4].Value2 = c.Offset(, 2).Value2: Exit For End If Next c End Sub

حل اخر بالمعادلات القمر في البرج1.xlsx

Sub Test() Dim a, x, d, zod As String, r As Integer, q As Integer, m As Integer, p As Integer zod = ZodiacSign(Date) Rem d = Day(ToHijri(Date)) d = Application.InputBox(prompt:="Enter The Day", Type:=1) If d = False Or d < 0 Then MsgBox "Invalid Entry", vbExclamation: Exit Sub r = (d * 2) + 5 a = Array("Aries", "Taurus", "Gemini", "Cancer", "Leo", "Virgo", "Libra", "Scorpio", "Sagittarius", "Capricorn", "Aquarius", "Pisces") x = Application.Match(zod, a, 0) q = Int(r / 5) m = r Mod 5 p = (x + q + IIf(m > 0, 1, 0)) - 2 MsgBox "Moon In '" & a(p Mod (UBound(a) + 1)) & "' Zodiac At Degree [" & m * 6 & "]", vbInformation End Sub Function ZodiacSign(myDate As Date) As String Dim yr As Integer yr = Year(myDate) Select Case myDate Case Is >= CDate("12/22/" & yr), Is <= CDate("1/19/" & yr) ZodiacSign = "Capricorn" Case Is <= CDate("2/18/" & yr) ZodiacSign = "Aquarius" Case Is <= CDate("3/20/" & yr) ZodiacSign = "Pisces" Case Is <= CDate("4/19/" & yr) ZodiacSign = "Aries" Case Is <= CDate("5/20/" & yr) ZodiacSign = "Taurus" Case Is <= CDate("6/20/" & yr) ZodiacSign = "Gemini" Case Is <= CDate("7/22/" & yr) ZodiacSign = "Cancer" Case Is <= CDate("8/22/" & yr) ZodiacSign = "Leo" Case Is <= CDate("9/22/" & yr) ZodiacSign = "Virgo" Case Is <= CDate("10/23/" & yr) ZodiacSign = "Libra" Case Is <= CDate("11/21/" & yr) ZodiacSign = "Scorpio" Case Is <= CDate("12/21/" & yr) ZodiacSign = "Sagittarius" End Select End Function Function ToHijri(dtGegDate As Date) As String VBA.Calendar = vbCalHijri ToHijri = dtGegDate VBA.Calendar = vbCalGreg End Function

عليكم السلام و رحمة الله وبركاته كلك يمين على الحقل المراد تنسيقه ثم اختيار Toggle Field Codes تبديل رموز الحقول إضافة التنسيق قبل قوس الغلق ليصبح هكذا {MERGEFIELD FieldName \#0.0} حيث FieldName اسم الحقل المراد تنسيقه بالتوفيق

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

بارك الله فيك وان شاء الله في ميزان حسناتك

In cell S5, put the formula and drag down and left =COUNTIFS($C$5:$C$400,$R5,F$5:F$400,"<>" & "")

@lionheart شكرا جزيلا اخي الفاضل جزاك الله كل خير

جرب حذف = التي قبل address أو إن شاء الله يفيدك هذا الموضوع المشابه بالتوفيق

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

تفضل strSQL = "INSERT INTO clients ( [no], name, notice ) IN '" & txtPath & "'" & _ " SELECT Nz(Dmax('[no]','clients'),0)+1, clients.name, clients.notice FROM clients"

تفضل اخي.. بالمناسبة كود الاستاذ @kanory مضبوط وكان يعطيك خطأ لان في مثالك الاول الكود كان نص .. وفي مثالك الثاني رقم test2Q.accdb

Sub Test() Dim cn As Object, rs As Object, i As Long With Worksheets("Data") Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Open ConnectionString:="Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;""" rs.Open "Transform First(Grade) Select ID, Gender, College, GPA, GPA2 From `" & .Name & "$A1:G` Where ID Is Not Null Group By ID, Gender, College, GPA, GPA2 Pivot Subject;", cn, 3 With Worksheets("Report").Range("A1") .CurrentRegion.ClearContents .Range("A2").CopyFromRecordset rs For i = 0 To rs.Fields.Count - 1 .Cells(1, i + 1) = rs.Fields(i).Name Next i End With End With Set cn = Nothing: Set rs = Nothing End Sub

أخي الكريم تركيبة الملف لا تسمح بعمل معادلة واحدة للجميع يتم سحبها أفقيا ورأسيا لذلك يتم تحديد عمود المنتج الخاص بالفرع واستعماله في المعادلة فمثلا المنتج الرابع في الفرع الثاني عموده j لذلك معادلة العدد =COUNTIFS(L:L,O15,J:J,"<>") ومعادلة المبلغ =SUMIFS(J:J,L:L,O15) بالتوفيق

اخي انا اضفت الان لو سمحت فرع 1 و فرع 2 وكل فرع به المنتجات وطبقت الدوال اعلاه مع اضافة شرط الفرع يعطيني ايرور في المعادلة TT.xlsx

الحلقة التكرارية تتوقف مع نهاية عدد كلمات المستند

جميعا بإذن الله هذا الشرط يعني أن الخلية غير فارغة

@ أ / محمد صالح شكرا لك استاذ محمد , فعلا حليت لي المشكلة بارك الله في علمك وعملك .. تقبل شكري وتقدري

جزاكم الله خيرا يا غالي وجعل تعبك معانا في ميزان حسناتك لو امكن شرح ل <> مامعناها حتى لو اردت اطبقها في اي مكان اخر

تفضل إن شاء اللّه يفيدك هذا المرفق EXAMPLE.xlsb

يمكنك استعمال هذه المعادلة لعدد العمليات في الخلية P15 =COUNTIFS(L:L,O15,B:B,"<>") واستعمال هذه في الخلية Q15 للحصول على قيمة العمليات =SUMIFS(B:B,L:L,O15) مع نسخ المعادلة لأسفل وبنفس الطريقة يمكنك تعديل المعادلتين للوصول للمنتج التالي بالتوفيق

بداية جيدة انشاء الله

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

Press Alt + F11 then from VBE menu select Insert then Module then paste the code posted And to use the function, suppose you have a date in cell A1, put the following formula in B1 =ZodiacSign(A1)

روعة وتميز بلا حدود حفظك الله ورعاك

هذا الخطأ يظهر نتيجة إغلاق النموذج من زر الإغلاق والصواب حسب الكود كلك يمين على الزر الأيمن للساعة ولتعديل ذلك حتى ينتهي تنفيذ الكود مع الغلق من زر الغلق نقل آخر سطر من حدث UserForm_Initialize إلى حدث.UserForm_Activate مع إضافة هذا الحدث الخاص بزر الإغلاق Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) OK = False Me.Hide End Sub بالتوفيق

السلام عليكم ورحمة الله وبركاته ، واجهتني مشكلة بعد إكمال دمج المراسلات وفي خانة النسبة المئوية للطالب تظهر سبعة خانات للأرقام العشرية في المستند الرئيسي رغم أن التنسيق في البيانات المعدة على إكسل هي خانة عشرية واحدة . بارك الله فيكم .

جميل استاذنا الجميل @kanory بعد اذنك انا حاولت استخدام اكثر من معيار باستخدام And ولم ينجح الامر ... على سبيل المثال DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*'" And "class Like '*" & Me.lst4.Column(1) & "*'" فما الصيغة الصحيحة عند استخدام اكثر من معيار ؟؟؟ كل الشكر والتقدير استاذنا الفاضل

اليس هذا هو نتيجة برنامجك قبل التعديل ؟؟؟؟؟؟؟ تفضل ....... test (1).rar

تمام، بارك الله فيك أستاذ محمد، أنا عامل ماكرو تشكيل آلي، إن شاء الله عندما ينتهي أضعه هنا لمن أراد من الإخوة.

مثل هذا <<<<<<<>>>>>>> split.accdb

تفضل هذا التعديل ارجو ان يكون طلبك ملاحظة : الشرط تم تغييره اذا كان ht<wd سيظر المنتج الاول فقط وبخلافه ستظهر جميع المنتجات Nouveau Microsoft Access Database-1.rar

Can you give us the exact dates for each zodiac sign as you did for Virgo (which is from 23 Aug to 22 Sept) https://en.wikipedia.org/wiki/Astrological_sign And is that Vrigo starts at 23 Aug and included and ends at 22 Sept and included. I mean if we need to compare a date then we say greater than or equal 23 Aug and less than or equal to 22 Sept Can you review this udf that returns the zodiac for each date Function ZodiacSign(myDate As Date) As String Dim yr As Integer yr = Year(myDate) Select Case myDate Case Is >= CDate("12/22/" & yr), Is <= CDate("1/19/" & yr) ZodiacSign = "Capricorn" Case Is <= CDate("2/18/" & yr) ZodiacSign = "Aquarius" Case Is <= CDate("3/20/" & yr) ZodiacSign = "Pisces" Case Is <= CDate("4/19/" & yr) ZodiacSign = "Aries" Case Is <= CDate("5/20/" & yr) ZodiacSign = "Taurus" Case Is <= CDate("6/21/" & yr) ZodiacSign = "Gemini" Case Is <= CDate("7/22/" & yr) ZodiacSign = "Cancer" Case Is <= CDate("8/22/" & yr) ZodiacSign = "Leo" Case Is <= CDate("9/22/" & yr) ZodiacSign = "Virgo" Case Is <= CDate("10/22/" & yr) ZodiacSign = "Libra" Case Is <= CDate("11/22/" & yr) ZodiacSign = "Scorpio" Case Is <= CDate("12/21/" & yr) ZodiacSign = "Sagittarius" End Select End Function

أخي الكريم ، المنتدى كله يتفاعل الأخوة فيه نشرا للعلم و المعرفة و تبادل الخبرات أنت اخترت القسم الوحيد الاستثنائي المخصص ليكون همزة وصل بين المبرمجين و طالبي الخدمات ، و الذي أضيف سابقا بناء على طلب بعض الأعضاء. هذا القسم ليس فيه تفاعل متاح و هو مخصص لطلب الخدمات باجر خارج نطاق المنتدي ـ فقط للاعلان عن البرامج من طرف المبرجين و طلبات البرمجة المدفوعة من طرف الاعضاء يرجى مراجعة عنوان القسم و الموضوع المثبت به ،و كما ترى المواضيع فى هذا القسم مخصصة فقط للاعلان عن الخدمات الاحترافية ليفيد المبرمجين المشتغلين فى هذا المجال و لديك المنتدى كله بكامل اقسامه ، و لكنك اخترت النشر فى هذا القسم

لا شكر على واجب أخي الكريم سعيد بوصولك للمطلوب

ومرفق الكود في الملف masdatediff.rar

أخي الكريم الكود الخاص بك يعمل ولا يوجد أي مشكلة به ويعطي الفرق بين التاريخ واليوم الحالي بالأيام بينما الكود السابق لي يعطي الفرق باليوم والشهر والسنة ولكن كما قلت بصورة تقريبية وهذه هي الصورة الصحيحة جرب وأخبرني بالنتيجة <p align="center"><font color="ffffff" size="2" face="Monotype Koufi" style="background-color: #000000 "> <script type="text/javascript"> function calcdiff(yr,m,d){ var today=new Date() var todayy=today.getYear() if (todayy < 1000) todayy+=1900 var todaym=today.getMonth() var todayd=today.getDate() if (todaym < m){ todayy-=1 var nmonthes = (todaym + 12)-m }else{ var nmonthes=todaym-m } if (todayd < d){ todaym-=1 var ndays=(todayd+30)-d }else{ var ndays=todayd-d } var nyears=todayy-yr document.write("مضى "+nyears+" سنة و "+nmonthes+" شهر و "+ndays+" يوم") } onload=calcdiff(1948,5,15) </script><p align="center"> </p>

أخي الكريم يمكنك استعمال هذا الكود وهو كود جافا سكريبت ضعه في ملف امتداده html وستجد النتيجة للعلم النتيجة تقريبية حيث تعتمد على أن الشهر 30 يوم والسنة 365 <script type="text/javascript"> var mydate = "8/29/1998"; var sDate = new Date(mydate); var eDate = new Date(); var alldaysm = Math.round((eDate-sDate)/(1000*60*60*24)); var yearsm = Math.floor(alldaysm/365); var monthsm = Math.floor((alldaysm-(yearsm*365))/30); var daysm = Math.floor((alldaysm-(yearsm*365))-(monthsm*30)); document.write( "عدد السنوات بين التاريخين " + yearsm); document.write( "<br />عدد الشهور بين التاريخين " + monthsm); document.write( "<br />عدد الأيام بين التاريخين " + daysm ); </script> ضع التاريخ المطلوب في أول سطر بصيغة الشهر ثم اليوم ثم السنة

أخي الكريم HaNcOcK لعرض مجموعة من السطور بنفس التنسيق من حيث المسافات وعدد السطور استعمل الوسم <pre> وإغلاقه </pre> وتعني pre formatting text أو النص المنسق مسبقا وهذا موقع آخر لتعليم html بل يعتبر مرجعا لها

أسعدني مرورك أخي حسن ولا تنس أني مدرس لغة عربية والحمد لله الملف موافق لكل قواعد اللغة العربية مع العدد وأيضا بانتظار الملاحظات والاقتراحات للعلم تم إعادة رفع الملف بعد قليل من التعديل

جزاك الله خيرا أخي حسن وبعد إذنك تابع معنا طلباتك أوامر أخي الكريم تجد بالمرفق التفقيق العربي بدون أكواد بارك الله فيك أخي حسن وشاكر لك مجاملتك الرقيقة خليتني أقول ليه ما دخلتش كلية الطب؟؟!! وهديتي لك ولكل الإخوة الأعضاء والمشرفين فكرة بسيطة وليدة الأمس فقط بعد رؤيتي وردي على الموضوع واستجابة لطلب الأخ الكريم ezzarqtouni التفقيط العربي بدون كود بانتظار ملاحظاتكم واقتراحاتكم لتطويره أتمنى وجود جيل من المبرمجين العرب ينافس ويتفوق على المبرمجين الأجانب mas-no2txt-novba2.rar

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

سعيد بمرورك أخي الكريم ولكن اعذرني فالطريق طويل وهذه هي البدايات ويمكن للجميع تحميل الكتب وقراءتها والتجريب وفي حالة وجود أي خطأ يمكنك الاستفسار وستجد ما يسرك وبالنسبة لموضوع الترجمة هذه روابط مباشرة لترجمة المواقع السابقة عبر خدمة ترجمة جوجل *** الموقع الأول يحتوي هو على إمكانية تغيير اللغة فاختر منها العربية وهذه باقي الروابط على الترتيب http://translate.google.com.eg/translate?hl=ar&sl=en&tl=ar&u=http%3A%2F%2Fwww.w3schools.com%2Fhtml%2Fdefault.asp http://translate.google.com.eg/translate?hl=ar&sl=en&tl=ar&u=http://www.davesite.com/webstation/html/ http://translate.google.com.eg/translate?hl=ar&sl=en&tl=ar&u=http://www.htmlcodetutorial.com/ http://translate.google.com.eg/translate?hl=ar&sl=en&tl=ar&u=http://htmldog.com/ http://translate.google.com.eg/translate?hl=ar&sl=en&tl=ar&u=http://www.learn-html-tutorial.com/ http://translate.google.com.eg/translate?hl=ar&sl=en&tl=ar&u=http://www.htmlcodetutorial.com/quicklist.html وبانتظار استفسارات الإخوة بعد القليل من القراءة والتجريب تحياتي أخوكم أبو عبد الله محمد صالح

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