بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
ماجد القثمي
-
Posts
114 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه ماجد القثمي
-
-
السلام عليكم
عملت برنامج اكسل بالكود والماكرو وكان شغال ممتاز على جهازي
حولت املف على جهاز ثاني يعمل بنظام 64 بت لكن البرنامج لا يعمل
يعطيني رساله ان اللايبراري مفقود او الاوبجكت غير معروف
بحثت في الريفرنس وجدت ان Missing Common Controls 6.0 (SP6)
كيف استطيع تحميل هذه الخاصيه وكل الاشياء الاخرى الناقصه لاتمكن من تشغيل ملفي الذي يبدو انني قمت بعمله على نظام ويندوز 32 بت
كيف اتغلب على هذه الاشكاليه
بحيث يصبح برنامجي قابل للاستخدام على اي كمبيوتر
وشكرا
-
السلام عليكم
شكرا اخ حمادة على الرد وجزاك الله كل خير
ماشالله حلول بخيارات كثيرة
الحل المناسب لي كان هذا الكود واردت ان اعمل قليل من التغييرات عليه
وهي بدل من ان يحذف الملف نفسه، ان يعطي رساله للمستخدم وبعدها عند الاغلاق يحفظ ويغلق الملف
لكن واجهني خطاء في الكود
كما هو موضح في الصورة المرفقة..
كذلك هل لك ان تشرح لي ما معني رقم 13 في الكود
هذا السطر
(If Err.Number = 13 Then
Me.Names.Add "InitialDate", Date, False)=======================
كذلك عندي سوال اين يتم حفظ تاريخ اول تشغيل للبرنامج هل في ذاكرة البرنامج او كيف طريقه حفة للتاريخ
سوال اخر لو سمحت:
هل يتاثر كود البرنامج عند تغيير تاريخ الكمبيوتر يوم للخلف بحيث لا يصل ليوم 30 وتطول المدة للمستخدم؟؟؟
===================
حاولت وضع هذا الكود لكن لا يعمل
Private Sub Workbook_Open()
Dim lInitialDate As Long
On Error Resume NextlInitialDate = Evaluate("InitialDate")If Err.Number = 13 ThenMe.Names.Add "InitialDate", Date, FalseMe.SaveEnd IfIf Date > Evaluate("InitialDate") + 1 ThenMsgBox ("Your trial period will finish within 2 days, contact the owner if you like the program (00000)"), vbExclamation, ""ElseIf Date > Evaluate("InitialDate") + 2 ThenMsgBox ("Your trial period will finish within 1 days, contact the owner if you like the program (00000)"), vbExclamation, ""ElseIf Date > Evaluate("InitialDate") + 3 ThenMsgBox ("Your trial period has finished, contact the owner if you like the program (00000)"), vbExclamation, ""End IfThisWorkbook.Saveend sub
-
السلام عليكم ورحمة الله
اخواني عندي فكرة لا ادري هل يمكن ان تطبق ،واطلب العون منكم
لدي ملف اكسل به برنامج ادخال معلومات وبحث وتعديل خاص بمجال معين
اريد ان اعرضه للبيع على مجموعه زبائن
الطلب الاول:
اريد ان اعطي الزبون امكانيه تجربه البرنامج لمدة 3 ايام مثلا من اول ما يفتح الملف ع كمبيوتره
وبعد 3 ايام لا يفتح الملف ويعطي رساله(انتهت فترة التجربه اذا اردت شراء البرنامج تواصل مع المالك)
الطلب الثاني:
اريد كود لاغلاق البرنامج بعد سنه من اول تشغيل واعطاء رساله ان اشتراكك قد انتهى لتجديد الاشتراك تواصل مع المالك مثلا.
ولو في امكانيه يعطي الزبون تنبيه قبل انتهاء اشتراكه باسبوع انه تبقى اسبوع على انتهاء الاشتراك اذا رغبت فالتجديد تواصل مع المالك
هذه الفكرة اتمنى وصلت بطريقة مفهومه
وشكرا
-
-
-
-
-
للرفع
وشكرا
-
السلام عليكم استاذ محمد
عندي سوال لو سمحت
في حال اردت تغيير combobox2او الغاؤه بالمرة والاستغناء عن rowsouce الخاص به واردت استبداله ب textbox يتك ادخال قيمته عن طريق datepickبحيث بعد اختيار يوم من التقويم تصبح قيمة ال textbox تساوي التاريخ المختار وعلى اساسه تتغير بقيه الtextbox الاخرى بقيمة زائد واحد زائد اثنين وهكذا كما عملنا سابقا
المف مرفق وبه التعديل لكن لم يعمل الكود بالشكل المطلوب
-
نعم استاذ محمد
شكرا على تجاوبك
تم تعديل الكود بعد الاضافه التي اضفتها حضرتك
جزيت خيرا..
-
استاذ احمد غندور
شكرا جزيلا لتجاوبك
يبدو اني لم اوفق في ايصال الفكرة, سوف اقوم بشرحها مجددا
الكود الذي استخدمه في الملف المرفق يقوم بالبحث عن اقيمة موجودة في الكومبو بوكس ويتم اختيارها من الليست للبحث عنها.
يوجد شيت بها بيانات تخص عدة (معامل) والكومبو بوكس الخاص بالبحث عن اسم المعمل في حال اخترت اسم معمل معين سوف يظهر البيانات الخاصة بهذا المعمل في ليست بوكس
وكذلك البحث عن رقم الهاتف ونوع الحالة و و و (بقية الكومبو بوكسز) هذه هي فكرة البحث الحالية.
ما اريده هو مثلا ان ابحث عن بيانات معمل محدد اذا كان القيمة في العمود( الحالة status) تساوي كلمة done مثلا او اذا كانت فارغه
مثال للتوضيح ...شيت به اسماء اشخاص واعمارهم وجنسياتهم
الكود الحالي يبحث عن اسم الاشخاص الذين اسمهم محمد واظهار معلوماتهم في ليست بوكس ,سوف يظهر كل من اسمهم محمد في النتيجه
ما اريده هو اضافه شرط اخر مثال
ابحث عن الاشخاص الذين اسمهم محمد اذا كان جنسيتهم يمني (وليس كل المحمدين كما في الكود الاول) واظهر الحالات في ليست بوكس
هذه الفكرة التي اريد ان اغيرها في الكود
وشكرا
-
-
لسلام عليكم ورحمة الله وبركاته
اخواني الاعزاء
لدي طلب مساعده في ملف اكسل به يوزر فورم للبحث عن قيم معينه
يقوم اليوزرفورم بالبحث عن قيمة (واحدة )معينه نقوم باختيارها من احد قوائم متعددةcombobox داخل الفورم واعطاء النتائج في ليست بوكس
لكن الكود الذي استخدمه يدعم البحث عن متغير واحد فقط مثال ابحث في العمود A عن القيمة أ واظهر النتائج في ليست بوكس .
المطلوب هو ان يتم البحث عن القيمة أ في عمود A وتحق]ق شرط اخر ان يقابلها في عمود C مثلا قيمة ب ثم اظهار النتائج في ليست بوكس .
اي ابحث ولظهار النائج في ليست بوك اذا كان قيمة أ في عمود A ,و ب في عمود C
الملف مرفق وبه اليوزر فورم
الرقم السري 221 للدخول الىالفيجوال بيسك
وشكرا
-
-
-
-
للرفع وشكرا
للرفع وشكرا
-
السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء
لدي طلب مساعده في ملف اكسل به يوزر فورم للبحث عن قيم معينه
لكن الكود الذي استخدمه يدعم البحث عن متغير واحد فقط مثال ابحث عن القيمة أ
المطلوب هو ان يتم البحث عن متغيرين ويعطي النتيجه في حال توفر الشرطين مثالابحث اذا قيمة أ =1 وقيمة ب = 2
الملف مرفق وبه اليوزر فورم
وشكرا
-
-
-
-
-
-
Missing Common Controls 6.0 (SP6)
في منتدى الاكسيل Excel
قام بنشر
في الكود الخاص بس استخدمت Date في بعض الكودات ولكن تظهر لي رساله لا يمكن ايجاد هذا الاوبجكت او اللايبراري في هذا الجهاز؟؟؟؟؟؟؟