نجوم المشاركات
Popular Content
Showing content with the highest reputation on 15 أغس, 2019 in all areas
-
2 points
-
2 points
-
ممكن توضيح اكثر وتفصيل اكثر وانت تاستخدمه فى ايه وياريت صوره التقارير المطلوبة ليتثنى تصميمها مع الداتا2 points
-
2 points
-
وانتم بخير صديقي وجيه اعاده الله عليكم وعلى الامة العربية بالخير واليمن والبركات2 points
-
تمت الاجابة على هذا العنوان https://www.officena.net/ib/topic/92726-معادلة-ايجاد-كل-القيم-التي-تخص-رقم-معين/?tab=comments#comment-5836932 points
-
تعديل بسيط على هذا السطر في الكود Range("E" & i).Resize(, UBound(My_Arr)) = My_Arr ليصبح هكذا (زيادة واحد فقط) Range("E" & i).Resize(, UBound(My_Arr) + 1) = My_Arr2 points
-
بارك الله فيك استاذ سليم ,معادلة ممتازة ولا يوجد أفضل من هذه المعادلة للحل جعله الله فى ميزان حسناتك2 points
-
جرب هذا الملف يمكنك نقل المعادلة الى الملف عندك ARABIC_TIME.xlsx2 points
-
2 points
-
وعليكم السلام بارك الله فيك استاذنا الكريم وزادك الله من فضله وجزاك الله كل خير على كل هذه المعلومات القيمة جعله الله في ميزان حسناتك ورحم الله والديك وغفر لهما2 points
-
وعليكم السلام ..... الفكرة من حيث المبدأ جيده ...... وهناك اعتقد في هذا المنتدى لأمثلة لتحديث البرنامج سواء على الشبكة أو عند العملاء بشكل عام2 points
-
اذن نبقي الحقل مطلوب بدون تعديل ونستبدل رسالة اكسس برسالة من قبلنا في حدث عند الخطا نضع الكود Const conErrRequiredData = 3314 Select Case DataErr Case conErrRequiredData MsgBox "حقل مطلوب", vbInformation + vbOKOnly + vbMsgBoxRight, "تنبيه" Response = acDataErrContinue Case Else Response = acDataErrDisplay End Select حقل مطلوب.accdb2 points
-
وعليكم السلام -كيف تظهر بدون وضع معادلة لهذا العمود ؟! تفضل تعديل.xlsx2 points
-
2 points
-
يمكنك توضيح ورفع الملف الذى يظهر به خطأ معك فالمعادلة تعمل معى وتجلب كل البيانات المطلوبة بكفاءة دقيقة2 points
-
2 points
-
بارك الله فيكم جميعا بعد اذن الأخت الكريمة -ولإثراء الموضوع هذا حل أخر بمعادلات المصفوفة جريدرات.xlsx2 points
-
1 point
-
وعليكم السلام على الرغم انك لم تقم برفع ملف مةضوح فيه المطلوب بشكل واضح فيمكنك رؤية ومشاهدة هذا الرابط https://www.officena.net/ib/topic/87248-جدول-الضرب-للأطفال-علي-شكل-لعبة-من-سيربح-المليون-لجميع-الصفوف/?tab=comments#comment-5520681 point
-
انا بالفعل لدى ويندوز 7 واكسيل 2010 وعمل البرنامج معى بكل كفاءة اظن المشكلة لديك انت1 point
-
بارك الله فيك استاذنا الكريم على هذا البرنامج و كلمة السر للدخول : bin7shr بعد اذن استاذنا الكريم bin7shr تم رفع الملف فى المشاركة الأصلية لكى تعم الفائدة استاذنا الكريم عبدالله الصاري الملف يعمل وقد تم رفعه يمكنك تحميله من هنا مباشرة ويمكنك ملاحظة كل الإستفسارات من فيديو الشرح الموجود فى المشاركة الأصلية ولكن دائما عند محاولة تغيير كلمة السر من داخل البرنامج تظهر هذه الرسالة كما بالصورة1 point
-
اخي الكريم قاعدة البيانات المرفقة بما انها تحتوي على رموز لأسماء الأعمدة ستجد صعوبة في التعامل معها انت تريد التنسيق المستحسن لقاعدة البيانات انشئ جدول باسم الأطراف ( رقم الطرف - .............. بيانات الاطراف) انشئ جدول اسم القضايا ( رقم القضية / القيد - رقم الطرف الأول - رقم الطرف الثاني - ..... باقي البيانات) ** يفضل و بشدة ان تكون المسميات باللغة الانجليزية تهجئة عربية و حروف انجليزية ** رقم الطرف مفتاح اساسي ** عمل علاقة طرفية بين الجدولين تفضل هذا المقترح Database1.accdb1 point
-
1 point
-
اولاً اعتذر أخينا يونس الخطابي لانني طرحت السؤال في موضوعه دون اذن مسبق جربت كذا طرق حتى تغير حقل الى نص منسق للاستفادة من خصائص html ولكن بلا جدوى في اصدارين 2007 ، 2010 للاسف لا اما نسخ احدث من 2010 ما جربت .1 point
-
1 point
-
تم معالجة الامر كما تريد هناك زران واحد لجلب البيانات من الشيت Master واخر لارسالها الى الشيت Data (يمكنك اضافة اعمدة في الشيت Data قدر ما تريد ابتداء من العامود M الماكرو الاول لجلب البيانات من الشيت Master والثاني لارسالها الى الشيت Data Option Explicit Sub give_data() Rem ====>> Created By Salim hasbaya 9/8/2019 Dim x As Boolean x = IsError(Application.Match([b3], Sheets("MASTER").Range("B4:B10000"), 0)) If x Then MsgBox "This Recorde: " & [b3] & " Not Exists" & Chr(10) & _ "Please Check the value of the cell B3", , "Salim Tell Yuo" Range("Info_range") = vbNullString Exit Sub End If Dim FB4$: FB4 = _ "=INDEX(MASTER!$C$4:$C$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FB5$: FB5 = _ "=INDEX(MASTER!$N$4:$N$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FB6$: FB6 = _ "=INDEX(MASTER!$BV$4:$BV$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FB7$: FB7 = _ "=INDEX(MASTER!$BM$4:$BM$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FB8$: FB8 = _ "=INDEX(MASTER!$F$4:$F$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" '============================= Dim FD4$: FD4 = _ "=INDEX(MASTER!$E$4:$E$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FD5$: FD5 = _ "=INDEX(MASTER!$D$4:$D$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FD6$: FD6 = _ "=INDEX(MASTER!$Q$4:$Q$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FD7$: FD7 = _ "=INDEX(MASTER!$G$4:$G$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FD8$: FD8 = _ "=INDEX(MASTER!$BR$4:$BR$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" '======================== Range("b4") = Evaluate(FB4): Range("b5") = Evaluate(FB5) Range("b6") = Evaluate(FB6): Range("b7") = Evaluate(FB7) Range("b8") = Evaluate(FB8) Range("D3").FormulaArray = _ "=INDEX(Data!$E$3:$E$1000,MAX(IF(Data!$C$3:$C$10000=b3,ROW($A$3:$A$11)-2,"""")))" Range("D3").Value = Range("D3").Value: Range("D4") = Evaluate(FD4) Range("D5") = Evaluate(FD5): Range("D6") = Evaluate(FD6) Range("D7") = Evaluate(FD7): Range("D8") = Evaluate(FD8) End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++ Sub trasnfer_data() Rem ====>> Created By Salim hasbaya 9/8/2019 Macro N#2 Dim DE As Worksheet, D As Worksheet Dim My_ro%, cont%, Anser As Byte Set DE = Sheets("SALIM"): Set D = Sheets("Data") cont = Application.CountIf(D.Range("a:a"), DE.Range("b3")) If cont <> 0 Then Anser = MsgBox("this recorde is alreday exist" & Chr(10) & _ "do you want to add it??", vbYesNo) If Anser <> 6 Then Exit Sub End If My_ro = D.Cells(Rows.count, 1).End(3).Row With D .Cells(2, 1).Resize(My_ro, 64).Interior.ColorIndex = xlNone With .Range("A" & My_ro + 1) .Value = DE.[b3] .Offset(, 1) = DE.[B4]: .Offset(, 2) = DE.[B5] .Offset(, 3) = DE.[B6]: .Offset(, 4) = DE.[B7] '============================= .Offset(, 5) = DE.[B8]: .Offset(, 6) = DE.[D3] .Offset(, 7) = DE.[D4]: .Offset(, 8) = DE.[D5] .Offset(, 9) = DE.[D6]: .Offset(, 10) = DE.[D7] .Offset(, 11) = DE.[D8] '=========================== .Resize(, 12).Interior.ColorIndex = 6 End With End With ' My_data = DE.[k6] End Sub الملف مرفق من جديد My_Salary_Updated .xlsm1 point
-
1 point
-
1 point
-
1 point
-
يمكنك نقل ملفك على الملف الذى ارسلته اليك فربما يكون هناك خطأ فى ملفك لأن ملفك الأول ايضا كان به مشكلة فقمت بعمل ملف جديد لك1 point
-
1 point
-
1 point
-
وعليكم السلام -اخى الكريم كان عليك عمل مثل الكود السابق تماما تفضل ترحيل من صفحة الى عدة صفحات.xlsm1 point
-
بارك الله فيك ولك بمثل ما دعوت لى وزيادة -فالمعادلة تم ضبطها داخل الملف1 point
-
تفضل ويمكنك ايضا الإستعانة بهذا الفيديو لتعلم كيفية عمل الرسم البيانى https://www.youtube.com/watch?v=lNGOfeV6egg https://www.youtube.com/watch?v=_hZffmh3xGU رسم بيانى.xlsx1 point
-
1 point
-
وعليكم السلام اهلا بك اخى الكريم فى المنتدى عليك بتحديث برنامج الضغط عندك فالملف تمام تفضل وكلمة السر واسم المسخدم : 1 Arcives3.accdb1 point
-
بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات1 point
-
1 point
-
1 point
-
وعليكم السلام اخى الكريم كان عليك من البداية استخدام خاصية البحث فى المنتدى فهناك العديد من المشاركات مشابهة لطلبك ومنها : https://www.officena.net/ib/topic/82488-برنامج-رواتب/?tab=comments&_fromLogout=1&_fromLogin=11 point
-
1 point
-
بارك الله فيك استاذ سليم عمل رائع ولإثراء الموضوع هذا ملف بالمعادلات المصنف1.xlsm1 point
-
يمكنك وضع هذا الكود فى حدث الصفحة Sub worksheet_change(ByVal target As Range) Set target = Range("A1") If target.Value = "Delete" Then Call Macro1 End If If target.Value = "Insert" Then Call Macro2 End If End Sub او هذا Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$A$1" Then Select Case Target.Value Case 10 To 50: Macro1 Case Is > 50: Macro2 End Select End If End Sub1 point
-
1 point
-
الكود يوضع في زر اختيار الصورة فبعد اختيارها يقوم بترحيل الصورة الى السيرفر طبق الخطوات التالية 1- في جهاز السيرفر انشئ مجلد في القرص D وليكن اسمه img وقم بمشاركته مع السماح للمستخدمين بالتحكم الكامل طبعا هذه الخصائص تحصل عليها من الويندوز كما في الصورة 2- اضف الكود التالي الى نموذج حفظ الصورة في جميع الاجهزة Dim cr As New filesystemobject cr.CopyFile CurrentProject.Path & "\FileName1.jpg", "\\PcName\D:\img\FileName2.jpg", True End Sub filename1 هو اسم الصورة المراد نسخها من جهازك الى السيرفر pcname هو اسم جهاز السيرفر filename2 هو الاسم الذي ستحفظ به الصورة في جهاز السيرفر لاتنسى اضافة المرجع الموضودفي الصورة جرب ووافينا بالنتيجة1 point
-
ولكن اين يتم اضافة هذا الكود هل يمكن عمل مثال بسيط ولكن لم افهم اين يتم اضافة هذا الكود هل ممكن التوضيح اكثر او بمثال ومكان الكود والمسار الذي تقصده اين يتم وضعه بمعنى عند جلب المسار من السيرفر والذي فهمته اننا نضع فولدر لتخزين الصور على سبيل المثال في البارتشن d:/ameer/pic وهذا البارتن موجود على السيرفر الان اين اضيف المسار بالنموذج انا لدي برنامج اضافة الصور ويتم اختيار الصوره من خلال ال BROWSER وتخزن تلقائيا مع البيانات وهكذا ولكن اذا امكن عمر زر عند ادخال البيانات وضغط حفظ البيانات يتم ارسالها الى مسار السيرفر اتمنى عمل ذلك استاذنا الفاضل واذا احببت ارفق نسخه من البرنامج ملاحظه انا مقسم قاعده البيانات الى قسمين قسم الجداول مربوط بقاعده بيانات SQL SERVER وهيه موجوده بالسيرفر والقسم الثاني من القاعده التي هيه النماذج موجود بحاسبات المستخدمين بمعنى ان المستخدم عند اختيار صور من الحاسبه ترحل الصور الى السيرفر وعلما الحاسبات مربوطه شبكيا مع السيرفر وانا في انتظارك استاذنا الغالي وبارك الله فيك ولك حسن الدعاء والتوفيق على مساعدتك لكل الاعضاء1 point
-
طبعا ممكن ذلك حاول تطبيق الفكرة التالية 1- استخرج مسار السيرفر (الجهاز الذي عليه قاعدة البيانات التي تحتوي على الجدول) 2- عند حفظ الصورة قم بارسالها الى جهاز السيرفر باستخدام الكود التالي Dim CerDll As New FileSystemObject CerDll.CopyFile 1, 2, True استبدل 1 و 2 بالمسارات التالية 1- تمثل مسار الصورة المخرنة في جهازك 2- تمثل مسار الصورة التي تريد تخزينها في جهاز السيرفر1 point
-
اخي الكريم المرفقات تحتوي مثالين للبحث اختر منها ما يناسبك و للامانة العلمية فان المرفق الأول هو من صنع معلي و استاذي الغالي ( ابو آدم ) جزاه الله كل خير وقد قمت بتعديله ليلبي حاجتك Accidents5-1.rar Accidents5-2.rar1 point