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

السلام عليكم ورحمة الله اخواني الاكارم : يكثر طرح اسئلة حول النسخ الاحتياطي او نسخ الملفات ونقلها من مكان الى آخر وتغيير اسمها ولا شك ان المنتدى يزخر بالكثير من الامثلة وحيث ان غالب الامثلة تشتمل على كائنات واكواد طويلة يصعب فهمها على المتعلم المبتدىء ؛ اليكم مثالا مختصرا صغيرا يفي بالغرض ويقوم بالمهمة . التطبيق يشتمل على قاعدة بيانات وبجانبها قاعدة الجداول ومجلد للحفظ نسخ قاعدة الجداول جديد.rar

بعد اذن اخي بن علية هذه المعادلة (Ctrl+Shift+Enter) حتى بدون ترتيب الارقام =SUM(IF(S6<$S$6:$S$110,1/COUNTIF($S$6:$S$110,$S$6:$S$110)))+1 الملق مرفق ترتيب Salim.rar

السلام عليكم ورحمة الله تم عمل المطلوب بمعادلة بشرط ترتيب البيانات ترتيبا تنازليا حسب قيم عمود مجموع العلامات... بن علية حاجي ترتيب.rar

السلام عليكم اليك الملف بعد اضافة دالة الاستاذ المرحوم الحسامي غفر الله له وادخله فسيح جنانه تحياتي لكم ترتيب بدالة الحسامي رحمه الله.rar ترتيب بدون كلمة مكرر بدالة الحسامي رحمه الله.rar

اخواني اعضاء ومشرفي المنتدى الكرام وجد للاخت زهرة نموذج تقدر من خلاله تنقل من ملفات الى من مجل الى مجلد وانا اريد نفس الطريقه ولكن اريد اختيار ملف محدد وانقله مع تغير الاسم هذا نموذج النقل والنسخ zaMove&CopyFiles.rar

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

السلام عليكم ورحمة الله هل من الممكن ايجاد كود بتحسس الخلايا التي بها معادلات ويقوم بالقفز عليها للخلية التي تليها؟ وهل من الممكن جعل البرنامج يقوم بالذهاب للصف التالي عند وجوده في آخر الجدول ؟ Aziz.rar

الاستاذ ظفر الله عسكر من افضل الناس خلقا وخلقا ( الخاء الاولى بالفتح والثانيه بالضم ) وهو يعتبر مكسب كبير للمنتدى فأهلا به وسهلا

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

مشكور

شوكرا لك استاذ

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

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

دمج الخلايا المتشابهة مع خيار التراجع(مع ان التراجع عن امر نفذ بواسطة الماكرو مستحيل) لكن لا مستحيل في الـ VBA الماكرو Option Explicit Sub merg_cell() Application.ScreenUpdating = False Application.DisplayAlerts = False If ActiveSheet.Name <> "Salim" Then GoTo 1 Dim i%, my_rg As Range, k% i = 2 Do Until Cells(i, 1) = "" k = Application.CountIf(Range("a:a"), Cells(i, 1)) With Range(Cells(i, 1), Cells(i + k - 1, 1)) .Merge .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With i = i + k Loop 1: Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Sub Unmerge_Salim() Dim numrow, n As Long, t%, x%, k%, cc% Dim lrxfd%, y% If ActiveSheet.Name <> "Salim" Then Exit Sub On Error Resume Next n = 2 Do Until Range("a" & n) = vbNullString If Range("a" & n).MergeCells Then cc = 1: Exit Do n = n + 1 Loop If cc = 0 Then MsgBox "No Mergrd cells In this range": Exit Sub numrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row Range("xfd:xfd").ClearContents k = 0 ' number of meged areas n = 2 ' begenning of loop Do Until Range("a" & n) = vbNullString If Range("a" & n).MergeCells Then t = Range("a" & n).MergeArea.Count Range("xfd" & n) = Range("a" & n) For x = 1 To t - 1 Range("xfd" & n).Offset(x, 0) = Range("xfd" & n) Next k = k + 1 Else t = 1 Range("xfd" & n) = Range("a" & n) End If n = n + t Loop lrxfd = Cells(Rows.Count, "xfd").End(3).Row Range("a:a").UnMerge Range("a2").Resize(lrxfd - 1).Value = Range("xfd2").Resize(lrxfd - 1).Value Range("xfd:xfd").ClearContents If k <> 0 Then MsgBox "There was :" & k & " merged Areas" End Sub Merge_Unmerge_cells.rar

ننعى ببالغ الحزن والاسى الأخ /عماد خالد الحسامى نسال الله له التثبيت والرحمه الى جنة الخلد يا عماد http://excelforus.com/vb/showthread.php?t=4495 https://www.facebook.com/emad.alhoussami?fref=ts

ربما يكون المطلوب Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 10 And Target.Cells.Count = 1 Then Target.Offset(, 5) = Target.Offset(, -8) End If Application.EnableEvents = True End Sub

اظهار و اخفاء المعادلات في كل الورقة :fff: اظهار و اخفاء المعادلات.rar

اخى الكريم من قائمة ( أدوات - ثم - خيارات - ثم - عرض - وعند علامات تبويب الأوراق نلغى علامة الصح الموجودة في الخانه المقابله ) والييك الصور