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

بعد اذن الأستاذ شريف ممكن تجرب هذا ترتيب عشوائى.xlsm

السلام عليكم شوف يا اخى ده ملف بسيط به الجداول المطلوبة ابدأ بيها وان شاء الله تلاقي الاخوة معاك الجداول 1- جدول Add_doc رأس فاتورة المشتريات مربوط مع جدول الحركة Transaction 2- جدول Issue_doc رأس فاتورة المبيعات مربوط ايضا مع جدول الحركة Transaction 3- جدول Customers العملاء 4- جدول Suppliers الموردين 5- جدول Items الاصناف 6- جدول Transaction الحركات نموذج فاتورة مشتريات Trans_in نموذج فاتورة مبيعات Trans_out وما ابخل من شئ عليك زى الاخوة الكرام ما بخلوا علي فاتورة.rar

جرب هذا الملف الكود Option Explicit 'Excel VBA to generate random number 'Created by Salim on 31/3/2018 Sub Generate_Uniq_Random() Dim T% If ActiveSheet.Name <> "Salim" Then GoTo Exit_sub With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim myStart As Long Dim myEnd As Long Dim x As Byte Dim i As Long, K% Dim lr_B: lr_B = Range("A1").CurrentRegion.Rows.Count If lr_B < 2 Then lr_B = 2 Range("b2:U" & lr_B).ClearContents Dim a() myStart = [Y2] myEnd = [Z2] ReDim a(0 To myEnd - myStart) For x = 2 To 21 With CreateObject("System.Collections.SortedList") Randomize For i = myStart To myEnd .Item(Rnd) = i Next i For i = 0 To .Count - 1 a(i) = .GetByIndex(i) Next For K = 2 To lr_B - 1 Step (myEnd - myStart + 1) For T = 0 To myEnd - myStart Cells(K + T, x) = a(T) Next Next End With Next Exit_sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق ترتيب عشوائي SALIM.xlsm

اخي الكريم حمدي لماذا لايوجد ملف للعمل عليه؟؟ اعتقد انه من الاسرع والافضل لو تم عمل ملف يوضح آلية العمل لكي يسهل التعامل معه

يمكنك اضافة عمود جديد واستخدام الدالة =rand() سوف تقوم بملء ارقام عشوائية ثم بعد ذلك قم بترتيب القيم تصاعديا او تنازليا كما هو الحالف في المرفق واعد كتابة المعادلة في كل مره وهناك اضافة هي حقا رائعة تلبي احتياجك اداه تسمي kutools قبل عملها اغلق كل ملفات الاكسل المفتوحة ثم نصب الاداة ثم قم بفتح ملفك واختر الخلايا المراد عمل ترتيب عشوائي لها ومن تبويب kutools اختر range - sort range randomly - cells in each column ستقوم بعمل المطلوب تحميل الاداة من اللينك اسفله https://d2d42mpnbqmzj3.cloudfront.net/downloads/KutoolsforExcelSetup.exe

شكراً اخي ابو زاهر انا في الخدمة

ينمكنك استخدام المعادلة الاتية =RANDBETWEEN(1,3) وتغيير الرقم 3 الي ماتريد

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد، موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي تمتع بقوائم أوفيس 2003 في 2007 و 2010 و 2013 و 2016 Mas2003Menus فتابعونا. تمتع بقوائم أوفيس 2003 في 2007 و 2010 و 2013 و 2016 Mas2003Menus ربما يبدأ أحدنا بتعليم برنامج ميكروسوفت أوفيس سواء ميكروسوفت وورد أو باوربوينت أو ميكروسوفت إكسل ولكن يبدأ بتعلم إصدار قديم نسبيا وهو أوفيس 2003 وقد يجد صعوبة في الانتقال إلى الإصدارت الحديثة من ميكروسوفت أوفيس سواء 2007 أو 2010 أو 2013 أو 2016 أو 365 اليوم أحضر لكم الحل في صورة كود VBA ووظيفة إضافية Add-in كنت قد صممتها لهذا الغرض في 2010 وهي تقوم بإضافة قوائم أوفيس 2003 في تبويب جديد يسمى add-in في الشريط ribbon وبهذا نكون جمعنا بين الحسنيين تابعونا تعتمد آلية هذا الكود وهذه الوظيفة الإضافية على: إنشاء شريط قوائم في word أو excel أو power point ثم إضافة عناصر التحكم controls إليه وذلك بأبسط كود ممكن. ونتعرف أيضا على: كيفية إنشاء دالة معرفة UDF أو إجراء SUB كيفية تحويل ملف وورد أو إكسل أو باوربوينت إلى وظيفة إضافية مسار تخزين الوظائف الإضافية في نظام التشغيل كيفية تفعيل وظيفة إضافية كيفية إلغاء تفعيل وظيفة إضافية كيفية تنفيذ أمر معين عند تثبيت وظيفة إضافية كيفية تنفيذ أمر معين عند إلغاء تثبيت وظيفة إضافية كيفية تنفيذ أمر معين عند فتح عرض تقديمي كيفية تنفيذ أمر معين عند إغلاق عرض تقديمي والمزيد من المهارات في فيجوال بيسك للتطبيقات VBA ستجد بالملفات الكود وزر أمر ل عرض قوائم 2003 وزر أمر ل إخفاء قوائم 2003 اضغط هنا لتحميل الملفات المستعملة في عرض وإخفاء القوائم أو من المرفقات وهذا الفيديو يقوم بشرح الخطوات خطوة بخطوة step by step ويسعدني تلقي إجابة حضراتكم عن كيفية عمل الملف الموجود في آخر الفيديو الخاص بعرض قوائم 2003 في تبويب جديد قبل تبويب الصفحة الرئيسية home للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع جميع أصدقائكم لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور Mas_ShowHide2003Menus.rar

جزانا الله جميعا خيرا ونفع بنا شكرا لمروركم العطر أستاذ أحمد فعلا ما الحب إلا للحبيب الأول وهذا الملف لأحبابنا للمتمسكين بالحبيب الأول نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

السلام عليم ورحمة الله تعالى وبركاته احبتنا في الله وجدت في هذا المنتدى ما احتاج اليه من علم ومعرفة ودروس لكنني مازلت مبتدئ ووجدت ملف احتاجه في عملي لكن لم اجد الحل لكي يرحل البيانات حسب كل صفحة عميل على انفراد ارجوا منكم المساعدة وبارك الله فيكم فاتورة جديدة7.xls

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

بسم الله الرحمن الرحيم اخي ابو زاهر ... ولو اني لم اطلع على الملف ..لكن اليك هذا الكود وجلبته من موقع اجنبي ...تجعله في حدث قبل التحميل للنموذج الفرعي ويعطيك خيار الحفظ او التراجع عن كل صف في النموذج On Error GoTo BeforeUpdate_Error If Me.Dirty Then 'if record has been changed the dirty property ' is set to true Display message to save the record If MsgBox("هل ترغب بحفظ هذا السجل والمتابعة? اضغط نعم لإتمام السند,بعد التأكد من ادخال كافة الحقول", _ vbYesNo + vbQuestion, "حفظ السجل") = vbNo Then Me.Undo End If End If BeforeUpdate_Exit: Exit Sub BeforeUpdate_Error: MsgBox Err.Description Resume BeforeUpdate_Exit

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

السلام عليكم اطلع على البرنامج الموجود في هذه المشاركة فهو مخصص لإنجاز القوائم المنسدلة:

تفضل أخي تصغير أكسس بجوار الساعة لأستاذنا الكبير ناصر المصاروة جزاه الله عنا كل خير Nasystry3-up.rar

الفكرة جبدة الإقتراحات : 1. زبادة الجرعة التعلبمبة 2. إضافة بوابة ترفبهبة تفاعلبة العاب فوازبر خلافه 3. دعوة قدامى الأعضاء الذبن تعلمنا منهم كبراً للتواجد مرة أخرى زى العلامة خبور خبر و الاساتذة الأجلاء

تم التعديل على الكود لعدم نقل التكرار(ليعمل الماكرو يجب الا تكون خانة التاريخ فارغة في الورقة "حركة يومية") Sub tarheel() Dim S_Sh As Worksheet: Set S_Sh = Sheets("حركة يومية") Dim My_Sh As Worksheet Dim S_Rg As Range, rg_to_copy As Range Dim My_Item$, lr_final% Dim t%, k%: k = Sheets.Count Dim lr%: lr = S_Sh.Cells(Rows.Count, 1).End(3).Row Set S_Rg = S_Sh.Range("a1:h" & lr) Dim str$: str = "OK" For i = 4 To k Set My_Sh = Sheets(i) lr_final = My_Sh.Cells(Rows.Count, 1).End(3).Row + 1 For t = 2 To lr If S_Rg.Cells(t, 7) = My_Sh.Name Then If S_Sh.Cells(t, "xfd") <> str Then My_Sh.Cells(lr_final, 1).Resize(1, 7).Value = _ S_Sh.Cells(t, 1).Resize(1, 7).Value lr_final = lr_final + 1 S_Sh.Cells(t, "xfd") = str End If End If Next Next End Sub الملف مرفق salim's exemple.xlsm