احمد زعل

السلام عليكم و رحمة الله و بركاته

أخواني أرجوا أن تكونوا في تمام الصحة و العافية 

وبعد..

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

حيث الفكرة تكمن أن المستخدم يقوم بأدراج مجموعة من الطلبات على شكل أطار حيث كل طلب يمثل طلب و لكن قد يرغب المستخدم في حذف طلب رقم 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

أرجوا من يملك الحل أن يساعدني و شكرا

شكرا أخي لكن أتوق المشكلة من 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

الكود هو

شكرا لكم جميعا

ولكن بصدق المشكلة التي لدي أنه يوجد قاعدة بيانات كبيرة تحتوي على 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