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

بعد اذن اخي جعفر جرب هذا السكريبت في استعلام جديد لفهم اكثر للجملة select top 1 * from nregistration where v='3' and gender='male' union select top 1 * from nregistration where v='3' and gender='female' هذا يسمى استعلام توحيد وهو دمج نتائج استعلامات بكلمة union . هذا الاستعلام ليس له عرض تصميم وانما عرض سكريبت وبهذا اضف هذا السطر في نهاية كود الدالة result وبعد نهاية الجملة الشرطية الاخيرة ليصبح شكل نهاية الكود MsgBox "see your subforms first" Me.child6.Form.RecordSource = task1 & " union " & task2 Me.child6.Requery End Function هنا تظهر رسالة لترى شغلك القديم ثم التاثير الجديد وتم تطبيقه على النموذج الثاني وبالطبع يمكن ان تطبقه على نموذج جديد لديك باتوفيق

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

الأخ العزيز / سيد تيجر السلام عليكم ورحمة الله وبركاته أولا : أتقدم بالشكر الجزيل لأستاذنا القدير محمود الشريف أطال الله عمره وأمده بالصحة والعافية فعلا فدمج الخلايا عدو الأكواد كما تعلمناه من أساتذة هذا المنتدى حفظهم الله مما أظطرني إلى اللجو إلى المعادلات خاصة في النتائج الخاصة بالعمود (C) ومن ثم تحويلها إلى كود فهناك نطاقات معرفة تمت إضافتها ننبه عليها حتى لا تحذف وإلا لن يتم جلب البيانات وهي : ( rang4 ) ، ( rang3 ) ، ( rang2 ) ، ( rang1 ) ، ( rang ) وبالنسبة للإحتياطي تم عمل معادلات لعدد 4 هل هو كافي أم ربما يزيد عددهم ؟ قم بتغير الفترة في الخلية (J3) وسيتم استدعاء البيانات المطلوبة المهم جرب المرفق إن شاء الله تكون النتائج صحيحة تحياتي الساقية المعدلة2.rar

الدرس الرابع: الحلقات التكرارية أو الدورانية Looping في كثير الأحيان يحتاج المبرمج أو المستخدم إلى تكرار تعليمة عدد من المرات حسب الحاجة. و هناك نوعان من الحلقات التكرارية , الأولى في حالة كان عدد مرات التكرار معروف و الثانية في حالة كان عدد التكرار مرتبط بشرط معين. أولا: الحلقة (For … Next) تستخدم الحلقة (For … Next) لتكرار عدد من المرات بحيث يكون عدد التكرارات معلوم. For counter = start To end [step increment] Statement Next counter Counter: متغير يمثل عداد الحلقة Start: القيمة الابتدائية للدوران End: القيمة النهائية للدوران Increment: مقدار الزيادة في كل حلقة من حلقات الدوران و إذا لم يوضع يأخذ القيمة 1 افتراضيا مثال1: For i = 1 To 10 Me.y = Me.y + i Next i هذا البرنامج يقوم بحساب مجموع الأعداد من 1 إلى 10 . بحيث i هو العداد و y مربع نص تظهر به النتيجة و القيمة الابتدائية له يجب أن تكون 0 مثال2: For i = 0 To 10 Step 2 Me.y = Me.y + i Next i في هذا البرنامج وضعنا قيمة الانتقال 2 يعني أن البرنامج سوف يحسب مجموع الأعداد الزوجية فقط (من 0 إلى 10) ثانيا: الحلقة (For Each … Next) تستخدم الحلقة (For Each… Next) عندما نريد تنفيذ تعليمة أو مجموعة من التعليمات لكل عنصر في مصفوفة أو مجموعة. و رغم أنها تشبه (For … Next) كثير إلا أنها تقوم بتنفيذ حلقة لكل عنصر مما يعني أنه لا يوجد عداد في هذا النوع من الحلقات. و يمكن استخدامها في المصفوفات أو مع الكائنات. صيغتها: For Each element In Group [statement 1] [statement 2] .... [statement n] Next مثال1: Dim Array_n() as string Array_n = Array(1, 2, 3, 5) Dim sum As Integer sum=0 For Each Item In Array_n sum = sum + Item Next Me.y = sum Array_n هي مصفوفة بها 4 عناصر. هذا البرنامج يقوم بحساب مجموع هذه العناصر و يضعها في مربع النص y Item : هي العنصر i: هو العداد مثال2: Dim frm As Form Dim fc As Control Set frm = Me For Each fc In frm.Controls Me.listbox.AddItem (fc.Name) Next هذا البرنامج يقوم بإضافة جميع أسماء عناصر النموذج الحالي إلى مربع قائمة listbox. السطر الأول هو تعريف المتغير frm من Form (نموذج) السطر الثاني تعريف المتغير fc من Control (عنصر تحكم) السطر الثالث إسناد النموذج الحالي (Me) للمتغير frm و ذلك باستعمال عبارة set لأن النموذج عبارة عن كائن (Object) . السطر الرابع هو القيام بالدوران لكل عنصر من عناصر النموذج(frm.Controls) السطر الخامس إضافة اسم العنصر(fc.Name) Listbox إلى مربع القائمة و ذلك بإستعمال التعليمة AddItem ثالثا: الحلقة (Do Until condition ... Loop) تقوم هذه الحلقة بتفحص الشرط قبل الدخول للحلقة إذا كان الشرط محقق (True) فإن البرنامج يقفز إلى ما بعد حلقة التكرارية أي أنه لن يتم الدخول للحلقة. و إذا كان الشرط غير محقق (False) فسيتم تنفيذ التعليمات Statments, ثم يرجع للسطر Do until لاختبار الشرط ثانية. و هكذا. يعني أنه سوف يتم تكرار الحلقة عدد من المرات حتى يتحقق الشرط. و لن ينفذه و لو مرة واحدة إذا كان الشرط صحيح من البداية. صيغتها: Do Until condition Statments Loop مثال: Dim i As Integer Dim sum As Integer i = 1 sum = 0 Do Until i > 10 sum = sum + i i = i + 1 Loop Me.y = sum يقوم هذا البرنامج بحساب مجموع الأعداد من 1 إلى 10 . i متغير من نوع integer يمثل العداد بالنسبة للحلقة في كل حلقة يزداد 1 و فيمته الابتدائية هي 1. sum متغير من نوع integer يمثل مجموع الأعداد قيمته الابتدائية هي 0. مادام i<10 فإن البرنامج يبقى يكرر العملية حتى يصبح i>10 و بعد نهاية الدوران يضع القيمة النهائية في مربع النص y رابعا: الحلقة (Do ... Loop Until condition ) هذا النوع من الحلقات يقوم بتنفيذ الدوران على الأقل مرة واحدة لأنه يختبر الشرط في نهاية الحلقة و بالتالي فإنه يتم الدخول للحلقة أولا ثم في نهاية الحلقة يتم تفحص الشرط. صيغتها: Do Statements Loop Until condition مثال: Dim i As Integer Dim sum As Integer i = 1 sum = 0 Do sum = sum + i i = i +2 Loop Until i > 10 Me.y = sum هذا البرنامج يقوم بحساب مجموع الأعداد الفردية من 0 إلى 10 لأن القيمة الابتدائية للعداد هي 1 و مقدار الزيادة في كل حلقة (الخطوة) هو 2 خامسا: الحلقة (Do While condition ... Loop) هذا النوع من الحلقات يقوم بتنفيذ الدوران مادام الشرط Condition محقق وإلا يتم التوقف عن الدوران في الحلقة و تقوم هذه الدالة بتفحص الشرط في بداية الحلقة. صيغتها: Do While Condition Statements Loop مثال: Dim i As Integer Dim sum As Integer i = 0 sum = 0 Do While i <= 10 sum = sum + i i = i + 2 Loop Me.y = sum يقوم هذا البرنامج بحساب مجموع الأعداد الزوجية من 0 إلى 10 مادام i<=10 فإن البرنامج يعيد الدوران. في كل دورة يقوم بإضافة 2 للعداد حتى يصبح i>10 سادسا: الحلقة (Do ... Loop While condition) هذا النوع من الحلقات الدورانية المشروطة يتم فيه تنفيذ التعليمات مرة واحدة على الأقل لأنها تختبر الشرط في نهاية الحلقة و هي تشبه النوع الرابع كثيرا, إلا أنها تستمر في الدوران مادام الشرط محقق و تتوقف عندما يصبح الشرط غير محقق. صيغتها: Do Statements Loop While Condition مثال: Dim i As Integer Dim mult As Long i = 10 mult = 1 Do mult = mult * i i = i - 1 Loop While i > 0 Me.y = mult هذا البرنامج يقوم بحساب جداء الأعداد من 10 إلى 1 و يضع النتيجة في me.y هنا وضعنا العداد i تنازليا (i=i-1) في كل دورة ينقص 1 من العداد حتى يصل إلى 0 نلاحظ هنا بالنسبة للمتغير mult و الذي يمثل الناتج أنني وضعت نوعه Long Integer بدلا من و السبب يرجع لأن النوع integer أقصى قيمة له هي 32767 و في هذه الحالة الناتج يفوق هذا العدد و بالتالي سوف يظهر لنا الخطأ رقم 6 (Overflow)

اساتذتي الكرام تحية طيبة بناء على المواضيع التي تحدثت عن الاجازات وخاصة هذا الموضوع لم اتمكن من ضبط الاستحقاق بالصورة الصحيحة آمل مساعدتي جزاكم الله خيرا ejmaleEjazat: Int(((Date()-[hiredate])/30)*4.16) كلما دخلت سنة جديدة تزيد مدة الإجازة يوم نعرف ان قسمة 50/12 تساوي 4.16667 هل من كود اخر يعطي 50 يوم كل سنة

بالنسبة للزيادة في الترقيم سبق ان عالجة الزملاء في المنتدى (ابو خليل، شفيان ) من خلال تغيير الخط الى Code128 يبقى الترقيم التلقائي العشوائي الموجب سابحث في المنتدى ، مالم ساضعه في موضوع جديد

تمام اخ سامي كنت اقصد بالخانة يعني كم رقم how many digit من وجهة نظري ان تفتح موضوع جديد وارى ان لدي مشكلة الزيادة في الرقم لذلك افتح موضوع بالتالي 1. عمل ترقيم للباركود 2. مشكلة زيادة في الترقيم والموضوع سهل ان شاء الله ولكن نريده في موضوع جدد للفائدة وحسب قوانين المنتدى تحياتي

هل صورة الباركود من شغلك ؟ والا وضعتها كمثال ؟

كم خانه للرقم لديك

ما فهمت عليك ! هل هدفك هو ترقيم باركود ؟

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

السلام عليكم اعمل حقل في النموذج باسم v لرقم القرية ، ثم استخدم هذا الكود: Private Sub fcount_AfterUpdate() Call result Call Make_SQL End Sub Private Sub mcount_AfterUpdate() Call result Call Make_SQL End Sub Function Make_SQL() m_SQL = "SELECT TOP " & Me.mcount & " ibv, [name#], gender, v " m_SQL = m_SQL & "FROM nregistration " m_SQL = m_SQL & "WHERE gender = 'male' And v ='" & Me.v & "'" 'm_SQL = m_SQL & " ORDER BY [name#], gender" 'Debug.Print m_SQL f_SQL = "SELECT TOP " & Me.fcount & " ibv, [name#], gender, v " f_SQL = f_SQL & "FROM nregistration " f_SQL = f_SQL & "WHERE gender = 'Female' And v ='" & Me.v & "'" f_SQL = f_SQL & " ORDER BY gender Desc, [name#]" 'male First 'f_SQL = f_SQL & " ORDER BY gender, [name#]" 'Female First 'Debug.Print f_SQL u_SQL = m_SQL & vbCrLf & "Union All" & vbCrLf & f_SQL 'Debug.Print u_SQL Me.join.Form.RecordSource = u_SQL End Function . هذا عبارة عن 3 استعلامات ، استعلام للرجال ، وثاني للنساء ، وثالث يجمعهم (استعلام توحيد Union Query) ، وفرز النساء يأتي اولا بسبب ان الجنس موجود بطريقة تصاعديه ، فاذا اردت ان تجعل الرجال اولا، فغير بين هذين السطرين: f_SQL = f_SQL & " ORDER BY gender Desc, [name#]" 'male First 'f_SQL = f_SQL & " ORDER BY gender, [name#]" 'Female First جعفر 560.filter.accdb.zip

في نموذج من الجدول قم بانشاء مربع نص و استخدم الدالة التالية : =Abs([c]) هذا اذا كنت تريد اخفاء (-) انشاء الله اكون افدتك وهذا المرفق بعد التعديل New Microsoft Access Database (4).zip

لك كل التقدير والشكر معلمى وقدوتى فى هذا المنتدى العظيم أدام الله عمرك وبلغك الله جنة الفردوس

لك ما تريد تجميع المدفوع بالتاريخ salim.rar

بارك الله فيك هذا هو المطلوب ربي يجزيك كل خير

طبعاً .... اذا تم تنسيق خلايا الوقت كما ذكرت لك تستطيع كتابة لوقت كما يلي 22:15 اي العاشرة و 22 دقيقة ليلاً

السلام عليكم جرب هذا الحل ووافنا بالنتائج Za-EMP7.rar

السلام عليكم ورحمة الله وبركاته عفوا سيدي انا غيرت تاريخ انتهاء اقامة فيصل الى 30\10\2016 والغرامات طلعت 10 وغيرت الى 29\10\2016 والنتيجة طلعت 20 وكم نقصت التاريخ زاد لكل يوم 10 هل ما كان هذا هو المطلوب او اشرح لي بالتفصيل ما تريد حتى غدا اعود لك من جديد باذن الله

اتفضل ما تريد بعد تعديل test30.rar

الف شكر اخي Shivan انا سابقاً اعتمدت على البيانات الموجودة في الجدول ، طبعاً هذا السؤال مرتبط بنفس قاعدة البيانات التي قد سألتك عليها سابقاً وانت اجبتني عليه . الف شكر والف تحية لك والله يوفقك انت ومن تحب

الأخ الكريمsft السلام عليكم الرجاء تغيير الأسم الى اللغة العربية حسب قواعد المنتدى ضع المعادلة التالية فى الخليةI34 لعلة يكون المطلوب =CONCATENATE(MID(AC$36;7;4)+INT((MID(AC$36;4;2)+D$26-1)/12);"/";TEXT(IF(MOD(MID(AC$36;4;2)+D26;12);MOD(MID(AC$36;4;2)+D$26;12);12);"00");"/";25) abo_abary_إقرار.rar

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

جزاك الله خيرا لدى كود أخر فى قى الحال Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Titles] = '" & Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ53] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark On Error GoTo HandleErr If Not IsNull([MainData.PicFile]) Then [imgPicture].Picture = [MainData.PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [MainData.PicFile] & "'." Else [imgPicture].Picture = "" SysCmd acSysCmdClearStatus End If Exit Sub HandleErr: If Err = 2220 Then [imgPicture].Picture = "" SysCmd acSysCmdSetStatus, "Can't open image: '" & [MainData.PicFile] & "'" Else MsgBox Err.Description, vbExclamation End If End Sub ولا يعملان معا

اتفضل ملفك بعد تعديل test40.rar

هل بعد العملية كتبت الارقام اي درجات ؟ اذا نعم ... شو بيظهر ؟ اذا لا شي تكدر ترفع قاعدة البيانات لكي اشوفه ؟ تحياتي

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

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

اتفضل التعديل كلمة السر 11 تحياتى للجميع Desktop.rar

اتفضل التعديل .... انا اعطيته الطريقة وللعضو المحترم حرية الاختيار من Enable OR Visible تحيات للجميع

اتفضل التعديل .... تحياتى للجميع لو.rar

بارك الله فيك أخي الغالي الشهابي ..كود جميل ولم أفهم المطلوب إلا بالإطلاع على الكود .. قمت بإعادة عمل الكود باستخدام المصفوفات من باب اثراء الموضوع .. أرجو أن يفي بالغرض إن شاء الله قم بوضع الكود التالي في موديول عادي Sub Observation() Dim data As Worksheet Dim ws As Worksheet Dim sh As Worksheet Dim f As Boolean Dim arr As Variant Dim temp() As Variant Dim temp2() As Variant Dim i As Long Dim j As Long Dim x As Long Dim last As Long Set data = Sheets("بيانات") Set ws = Sheets("الساقية") Set sh = Sheets("الملاحظة") arr = ws.Range("B7:O" & ws.Cells(Rows.Count, 3).End(xlUp).Row).Value ReDim temp(0) ReDim temp2(0) With Application .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False End With sh.Range("B10:F39,C42:C45").ClearContents For j = 1 To UBound(arr, 2) If arr(1, j) = sh.Range("J3").Value Then f = True: Exit For Next j If f Then For x = 1 To 15 For i = 2 To UBound(arr, 1) If arr(i, j) = x Then temp(UBound(temp)) = arr(i, 2) ReDim Preserve temp(UBound(temp) + 1) End If Next i Next x For i = 2 To UBound(arr, 1) If arr(i, j) = "ح" Then temp2(UBound(temp2)) = arr(i, 2) ReDim Preserve temp2(UBound(temp2) + 1) End If Next i ReDim Preserve temp(UBound(temp) - 1) ReDim Preserve temp2(UBound(temp2) - 1) last = UBound(temp) + 10 sh.Range("C10").Resize(UBound(temp) + 1).Value = Application.Transpose(temp) sh.Range("C42").Resize(UBound(temp2) + 1).Value = Application.Transpose(temp2) sh.Range("B10:B" & last).Value = data.Range("B4:B" & last).Value sh.Range("D10").Resize(UBound(temp) + 1, 3).Value = data.Range("C4:E" & last).Value End If With Application .ScreenUpdating = True: .Calculation = xlAutomatic: .EnableEvents = True End With End Sub ثم ضع الكود التالي في حدث ورقة العمل المسماة "الملاحظة" Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("J3")) Is Nothing Then Call Observation End If End Sub

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

ما شاء الله اخوي شفان ، ما كنت ادري عندك هذه الشعبية لو كنا عاملين عزيمة ، ما ادري كم ذبيحة كنت بتحتاج جعفر

الآن سؤالك اصبح غير واضح!! رجاء شرح ما تريد وبالتفصيل ، وابدء باسم النموذج واسم الحقل واسم الجدول ن ثم ماذا يجب ان نرى ، وماذا تريد ان يصير انت صاحب البرنامج وادرى به منا جعفر

تفضل هذا مثال ، وانت ضبطه على برنامجك for JPG files Shell ("cmd /c mspaint /p " & "D:\test.jpg") for PDF files Shell ("C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h " & "D:\Sheet.pdf") جعفر

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

السلام عليكم االاخالكريم يوسف جرب المعادله بهذا الشكل =VLOOKUP(D3;P3:S3;2;0)

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

السلام عليكم االاخالكريم يوسف جرب المعادله بهذا الشكل =VLOOKUP(D3;P3:S3;2;0)

أخى الكريم إليك ما طلبت ملحوظه تظهر لك شاشة دخول يطلب منك إدخال كلمة المرور وهى ( 80214 ) من اليسار لليمين بعد الدخول يظهر شيت الـ DATA به زر إظهار الفورم قم بالضغط عليه تظهر لك الفورم بها كل ما طلبت وزياده والملف بالمرفقات N1__1.rar

أخى الكريم بوركتم وجزيتم عنى خيرا على دعاؤكم الطيب وبالمرفقات الملف بعد تعديل الترحيل بحيله ستكتشفها أما عن الـ pt فهى خاصة بتقسيم الليست بوكس إلى أجزاء أو أعمده الفورم بعد التعديل.rar

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

تفضل أخي الكريم من هنا وهذا رابط آخر لبرنامج آخر من هنا لكيفية التحميل من على موقع الرفع شاهد الفيديو التالي من هنا

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

أخى الكريم قمت بعمل المطلوب على قدر فهمى لطلبك ينقصه انك تظبط حجم العمود فى الليست بوكس من خصائص الليست بمحرر الاكواد بحث عن صنف واختياره بفورم.xlsb_1.rar

السلام عليكم هل الجداول ثابتة والبيانات اللي تتغير ، يعني اذا عملنا قالب وورد وعملنا فيه جدول فاضي ، ومن الاكسس تتم تعبئته!! اذا كان الجواب نعم ، فيمكن تعبئة الوورد عن طريق الامر Bookmark في الوورد ارفق لي صورة من الجداول اشوفها جعفر

اختر العمود ترقيم تلقائي ومن الخصائص اختر القيم الجديدة عشوائي

اخى ابو عيد رجاء الافادة عن كيفية إضافة الكود الى شيت اكسيل جديد ولكم جزيل الشكر على المجهود الرائع

رابط ثالث على موقع 4 Share http://www.4shared.com/rar/AReR3UqTba/VBA_Excel.html