احمد زعل

السلام عليكم و رحمة الله و بركاته أخواني أرجوا أن تكونوا في تمام الصحة و العافية وبعد.. لقد واجهتني مشكلو مؤخرا و هي كيفية حذف أطار معين و أعادة ترتيب العناصر بعد حذف ذلك الفورم ... حيث الفكرة تكمن أن المستخدم يقوم بأدراج مجموعة من الطلبات على شكل أطار حيث كل طلب يمثل طلب و لكن قد يرغب المستخدم في حذف طلب رقم 2 أي أطار رقم 2 فكيف يتم ذلك مع اعادة ترتيب العناصر أي الطلبات مرة أخرى بشكل مناسب.... في المرفق مثال توضيحي.... أرجوا المساعدة و شكرا لكم... New Microsoft Office Excel Worksheet (3).rar

شكرا لك كثيرا أخي بالفعل لقد نجح و أصبحت المكتبة متوافرة داخل references وأسم المكتبة الناقصة هي MSCAL.OCX أصبح التطبيق يعمل بشكل رائع و لكن بعض الاحيان تخرج لي رسالة التالية compiler error in hidden module . frmcalender2 this error commonly occurs when code is incompatible with the version,platform or architecture of this application وشكرا لك أخي مرة أخرى على تعاونك وجزاك الله كل خير

أولا أشكرك أخي جدا على اهتمامك ثانيا حاولت أن أبحث على الانترنت ووجد أن كان لدي widows 7 64 bit فيجب وضع الملف داخل المجلد c:\Windows\SysWOW64\ ولكن عندما قمت بتشغيله أعطاني هذا الخطا "the module c:\Windows\SysWOW64\comdlg32.ocx was loaded but the call to DllRegersterServer faild with error code 0×8002801c."

أخي الكريم شكرا لك على الرد وقمت بتحميل الملفات من الانترنت و لكن عند الدخول الى Run ووضع المسار التالي regsvr32 %Systemroot%\System32\comdlg32.ocx تظهر لي رسالة التالية :

باتلنسبة للاصدار هو 2010 والمشكلة ظهرت عندما قمت بوضع الملف على server ومن ثم إعادة الملف الى جهازي Windows 7 مع العلم أن تطبيق مخفي و أن المستخدم يقوم بالتعامل مع forms مياشرة دون النظر الى التطبيق أي دون النظر الى Sheet وتبداء المشكلة بالظهور عند إدخال قيم الى داخل sheet المخفي من خلال form الادخال حيث أن الملف يعمل بشكل جيد على جهازي و لكن عن\د نقله الى server ومن ثم إعادة الى جهازي تبداء المشكلة بالظهور وانا أعتذر بشدة لا أستطيع أن أرفق الملف لانه يحتوي معلومات ضرورية و غاية بسرية للشركة وشكرا لكم

السلام عليكم أخواني لدي مشكلة و هي عند تشغيل ملف الاكسل تظهر الرسالة التالية وخاصة عند تشغيل VBA Automation Error: Object has disconnected from its client أرجوا من يملك الحل أن يساعدني و شكرا

شكرا أخي لكن أتوق المشكلة من object الموجودة داخل references ولكن لا أعرف ماهو الكائن المفقود

السلام عليكم أخواني أرجوا المساعدة حيث لدي ملف أكسل يحتوي على Forms و عند نقله الة أجهزة أخرى تظهر الرسالة التالية could not load object because it is not available on this machine ما هو الحل المناسب أرجوا المساعدة..............

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

مشكور أخي

جزاك الله خيرا

السلام عليكم و رحمة الله و بركاته أخواني لدي سؤال حول الخاصية END بصراحة حاولت أفهم مبداء عمل هذه الخاصية و ولكن لدي أستفسار بسيط وهو أذا أفترضنا أننا نملك الكود التالي range("A1").end(XLdown).row و كانت جميع الحقول فارغة فان الناتج هو 1048576 ولكن أذا كان هنالك قيمة في A2 فأن الناتج هو 2 إذا كان حقل A1 يحتوي قيمة و A2 لا يحتوي فإن الناتج هو 1048576 و سؤال هو حول الحالة الاخيرة لماذا الناتج الخارج هو 1048576 ما دام ان اخر خلية مستعملة أو تحتوي قيمة هي a1 يعني لازم يكون الناتج هو 1 وشكرا

لا شايف صورة و الملف المرفق فارغ أخي أرفق الفورم

شكرا لكم لقيت الحل لازم عرفت المتغير بنوع variant

مرحبا أخواني لدي مشكلة في عمل كود شرطي بأسيتخدام evaluate الكود هو Dim x As Integer x = Workbooks.Application.Evaluate("=IF(A1 = A2,""ahmad"",2)") MsgBox x حيث أن الكود لا يعمل مع أني قراءت مواضيع كثيرة على الانترنت و لم أجد ما اريد أرجو مساعدتي

شكرا لكم جميعا ولكن بصدق المشكلة التي لدي أنه يوجد قاعدة بيانات كبيرة تحتوي على 3000 سجل و أنا أريد أن أعرض بعض السجلات حسب شرط معين داخل listbox ولقد نجحت في ذلك و الحمدلله و لكن المشكلة لدي أنه أحيانا يظهر بعض الارقام بالعربي و الجزء الاخر بالانجليزي داخل list مع أنها جميعها باللغة الانجليزية داخل قاعدة البيانات (Excel) فهل يوجد تنسيق معين ضمن نمط (format) أستطيع أن أحدد تنسيق الارقام عربي أو أنجليزي و شكرا لكم

على كل حال أجريت بعض التعديلات عليه و لقد عمل و لكن أن كان هنالك طريقة أخرى فأرجوا الافادة Dim x As Long Dim Lr As Long If Cells(2, "C").Value = "" Then x = Cells(Rows.Count, "C").End(xlUp).Row - 1 Else x = Cells(Rows.Count, "C").End(xlUp).Row End If Sheet1.Cells(x + 1, 3) = TextBox1

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

السلام عليكم أخواني لدي ملف اكسل يحتوي على جدول و اريد أن أدخل المعلومات من خلال شاشة VBA وأستطع أن أضيف سطر جديد و لكن لا اعرف كيف أضيف البيانات بداخله المثال في المرفقات هل لدى أحدم فكرة الملف في المرفقات qw.zip

جزاك الله خيرا ولكن ما أريده أن يتم أدخال الارقام باللغة الهندية و ليس العربية عند أدخال القيم داخل صندوق النص أرجوا منك الرد و الافادة شاكرا لكم حسن تعاونكم

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

مرحبا أخواني لدي سؤاليين بسيطين بأذن الله تعالى و عندي ثقة أني سأجد الجواب لديكم أن شاء الله قمت بتطوير نظام بإستخدام تقنية VBA في الأكسل لقسم لسلسلة التزويد ولكن المشكلة أن النظام يجب بستخدم من قبل عدة مستخدمين في نفس الوقت السؤال هو : 1- ما هو أفضل مكان لتشارك الملف dropbox أو skydrive أو google drive السؤال الثاني : هل يمكن تشغيل الملف من أكثر من جهاز في نفس الوقت وشكرا لكم أجمعين... أرجوكم لا تتأخروا بلاجابة على سؤالي

شكرا لكم أخواني و جزاكم الله خيرا تحياتي لكم أجمعين

مرحبا هل يمكن ترحيل البيانات بين ملفين أكسل أرجوا المساعدة شاهد المرفقات New folder.zip

أخي الحبيب تأكد من هوامش الصفحة وذلك من خلال بند page layout ومن ثم أختر خيار size ضمن مجموعة page setup أختر نوع الورق A4 ستظهر خطوط متقطعة (تمثل الهوامش) الأن أجعل حدود الصفحة الاولى ضمن هذه الحدود ويمكنك تكبير و تصغير الهوامش من خلال خيار Margins