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

وعليكم السلام قم بإدراج موديول جديد وضع الدالة المعرفة التالية فيه Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String With CreateObject("VBScript.RegExp") .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?") .Global = True AlphaNum = .Replace(txt, "") End With End Function ثم في حدث الفورم ضع الكود التالي Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox3.Value = AlphaNum(TextBox1.Value, 0) TextBox2.Value = AlphaNum(TextBox1.Value, 1) End Sub

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

وعليكم السلام تفضل جعفر

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

يقرأ خطوط الباركود عموما غالب البطاقات الشخصية تحمل هذه الخطوط

وعليكم السلام جرب الكود التالي Sub Test() Dim wsControl As Worksheet Dim wsData As Worksheet Dim wsDB As Worksheet Dim i As Long Dim lrwsData As Long Dim lrwsDB As Long Dim newlr As Long Dim cel As Range Dim rg As Range Application.ScreenUpdating = False Set wsControl = Sheets("Control") Set wsData = Sheets("Data") Set wsDB = Sheets("DB") Set rg = wsDB.UsedRange.Columns(2).Find(CDate(wsControl.[G1].Value2), , xlValues, xlWhole) If Not rg Is Nothing Then MsgBox "Date Existed", vbExclamation: Set rg = Nothing: Exit Sub lrwsDB = wsDB.Cells(Rows.Count, 5).End(xlUp).Row + 1 lrwsData = wsData.Cells(Rows.Count, 4).End(xlUp).Row For i = lrwsData To 2 Step -1 If Len(wsData.Cells(i, 4)) > 0 Then lrwsData = i: Exit For Next i wsData.Range("D2:BG" & lrwsData).Copy wsDB.Range("E" & lrwsDB).PasteSpecial xlPasteValues wsDB.Range("B" & lrwsDB).Value = wsControl.Range("G1").Value wsDB.Range("C" & lrwsDB).Value = wsControl.Range("G2").Value wsDB.Range("D" & lrwsDB).Value = wsControl.Range("G3").Value newlr = wsDB.Cells(Rows.Count, 5).End(xlUp).Row For Each cel In wsDB.Range("A" & lrwsDB & ":A" & newlr) cel.Value = cel.Row - 2 Next cel Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

السلام عليكم اخي الكريم طرق الحل كثيرة منها ضع المعادلة التالية بالخلية D2 ثم اسحبها لاسفل =IFERROR(INDEX($A$2:$A$20,MATCH(0,INDEX(COUNTIF($D$1:D1,$A$2:$A$20),0,0),0)),"") والمعادلة التالية بالخلية E2 ثم اسحبها لاسفل =IF($D2="","",COUNTIF($A$2:$A$20,$D2))

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

الاخوة الاعزاء بوربوينت خفيف لاستخدام التأثيرات مع الصوت مع الاشكال المتحركة ارجو يعجبكم وان تتستفيدو منه مجدى يونس اوفيسنا.rar

السلام عليكم هنا طريقة لاخفاء واظهار صفوف بزرين وباستخدام حماية الصفحة بالاكواد ارجو ان تساعد hide hosami.rar

تفضل يااحمد برنامج كامل لا تنساني من دعواتك كنترولx.rar

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

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

السلام عليكم اخواني أقدم لكم مجموعة من الأمثلة كنت قد حملتها من مواقع عربية و أجنبية لعلها تفيد من له اهتمام بها و المقصود بالمثال هنا ليس برنامج كامل و انما حل برمجي لجزئية معينة من جزئيات المسائل المطلوب حلها . . مع المعذرة عن ذكر اسم الموقع أو اسم المصمم للمثال حيث الأمثلة موجودة عندي من فترة و لم أعد أذكر معلومات عنها و سأقوم ان شا الله بتحميل الأمثلة أولا بأول و أرجو من الأخوة الكرام عدم ادارج أي تعليق هنا حتى يتسع المجال لتحميل أكبر عدد من الأمثلة بأقل عدد من المشاركات , و من أحب التعليق أو الاستفسار فليفتح موضوعا جديدا بهذا الأمر فهرس الأمثلة : تغيير لون خلفية الأكسس مثال على دوال التجميع مثال لفتح النموذج بعدة طرق انسيابية مثال رائع على استخدام خاصية المؤقت في النموذج Timer مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه مثال لعمل جدول يبين جميع البيانات التي تم تعديلها مثال لعمل نسخ احتياطي مجدول زمنيا مثال لعمل ترقيم تلقائي برمجيا نموذج الآلة الحاسبة مثال لفتح نموذج التقويم مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox مثال لكيفية النسخ و اللصق من و الى الحافظة مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف مثال لكيفية انشاء شريط قوائم بالكود و اضفة أزرار اليها أو حذفها مثال لمقارنة الاختلافات بين سجلات جدولين مثال على التنسيق الشرطي بعدة طرق مختلفة للنماذج مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار في النموذج مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي مثال لتغيير لون زر الأمر بمجرد مرور الفأرة عليه مثال لتفقيط الأرقام - عربي انكليزي مثال على نقل عدة بيانات من نموذج الى نموذج آخر مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر مثال لتشغيل استعلام حذف سجلات بناء على قيمة معينة مختارة في النموذج مثال على استخدام شريط التقدم الأزرق Progress Bar مثال على كيفية ارسال بيانات الى ملف وورد , و فتح ذلك الملف بعد انشائه مثال على البحث مع تجاهل التشابه في الحروف مثل الألف و الهمزة مثال على البحث المتقدم في أكثر من حقل مثال على استخدام المؤثرات البصرية في جعل الكائنات تتحرك باشكال هندسية مثال لكيفية تغيير تنسيقات الحقول : تاريخ - نصوص - أحرف مثال على نموذج يحوي نماذج فرعية بثلاثة مستويات

تحية طيبة و بعد ارجو مساعدتي في الاتي اريد ان اعمل فورم به رقم السلعة و اسم السلعة و سعر السلعة ولكن اريد بمجرد كتابة رقم السلعة يعبأ بشكل تلقائي كل من السعر و اسم السلعة ارجو المساعدة لان العمل سيكون اسهل لي بهذه الطريقة ولكم مني الشكر الجزيل اخوك ابو عزوز fahood76@hotmail.com

المواضيع المشابهة 1) 15/12/2004 النموذج بمصدر بيانات مختلف 2) 11/11/2004 كيف نربط نموذج واحد بجدولين 3) 12/10/2004 هل يمكن جعل الحقل في نموذج للعرض والادخال 4) 12/09/2004 عمل فورم يعبىء بينات في حقول بناء على بيانات 5) 01/09/2004 عندي كليشة جاهزة واريد تعبئة البيانات فيها 6) 31/07/2004 تتحرك السجلات بدون رغبة المستخدم 7) 06/07/2004 كيف يمكن تغيير القيمة الافتراضية لحقل معين 8) 19/04/2004 ادخال التاريخ تلقائيا

اتفضل عملت لك هذا المثال جربه و اتمنى ان يكون بناء ا على طلبك اخيك سهل احمد ( ابو نعيم ) http://www.arabteam2000-forum.com/index.ph...=post&id=227108