محمود_الشريف

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

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

اخى الكريم ضع الكود التالي فى حدث ThisWorkbook Module وهذا الكود ليس لى هو للأستاذ جعفر _(حفظا للحقوق) سيقوم الكود بتشغيل الملف مع بدء تشغيل الجهاز كل ما عليك بعد وضع الكود قم بالحفظ ثم أغلق الملف وقم بإعاده فتحه من جديد تظهر لك الرساله اضغط على زر YES ثم أغلق الملف وأعد تشغيل الجهاز ستجد أن الملف تم وضعه بالقائمة وسيتم تشغيله وهذه الطريقة تغنيك عن الطريقة اليدوية Private Sub Workbook_Open() If MsgBox("Do you want to add this workbook to the Windows startUp ?", vbYesNo + vbQuestion) = vbYes Then AddToWinStartUp Me.FullName, True End If End Sub Private Sub AddToWinStartUp(ByVal File As String, ByVal Add As Boolean) CreateObject("wscript.shell").RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\", IIf(Add, File, vbNullString), "REG_SZ" End Sub أما فيما يختص بالملفات التنفيذية فيجب شراء برنامج لحماية محرر الأكواد ووضع أكواد معينه بخلاف أكواد التنبيه ، وأفضل برنامج موجود بالسوق (لن أذكر اسمه حتى لايكون دعاية ) ثمنه 450 دولار وأرى أنك لا تحتاج إليه بوجود طريقة تشغيل الملف مع بدء تشغيل الجهاز

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

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

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

أعتقد والله أعلم - أخى الكريم / ان المشكلة فى الإعدادات وليست نسخة الأوفيس قد يكون سببها انك استخدمت شفرة برمجية قامت بتغيير الإعدادات الافتراضية ولحل المشكلة من جذورها يجب ان تصل لهذا الملف الذى به تلك الشفرة وتقوم بعكسها أى ارجاعها الى الاعدادات الافتراضية اذا لم تستطع الوصول لها عليك بإلغاء التشغيل التلقائي لتمكين وحدات الماكرو وراجع اعدادات الـ Advanced كالتالي File tab >> click Options >> click Advanced قم بالنزول ال اسفل حتى تجد Display اذا وجدت تحديدا على المربع الذى بجوار جملة Disable hardware graphics acceleration قم بإلغاء التحديد ثم الحفظ واغلق الاكسل واعد فتحه من جديد للعلم هذه إحدى الطرق وقد تنفع معك أو لا ... فى حالة لا قدر الله لم تصلح معك يمكنك تحميل تلك الأداه تصلح لويندوز 7 لتصحيح الأخطاء لتحميل الأداة  اضغط هنا أو يمكنك زيارة الرابط التالي وتجربة عدة طرق لتصيح المشكلة اضغط هنا - docs.microsoft

بعد اذن الأستاذ // علي محمد علي والأستاذ // أبو عيد الأخ الكريم الخطأ رقم 1004 إليك توضيح بسيط عنه بإيجاز (أسبابه) ------------------------------------------------------------------------------------------------------------------------ تعريفه : خطأ في التطبيق أو تعريف الكائن الوصف : هذه رسالة خطأ catch-all شائعة جدًا. لماذا يحدث ؟ : يحدث هذا الخطأ عندما لا يتطابق أحد الأخطاء مع الخطأ المحدد بواسطة VBA . بمعنى آخر ، يتم تعريف الخطأ بواسطة Excel (أو بعض الكائنات الأخرى) ويتم نشر مرة أخرى إلى VBA. ---------------------------------------------------------------------------------------------------------------------- وبما أنك لم تحدد ما هو الخطأ بالكود ال حضرتك كاتبه بطريقة النسخ واللصق ( لذا الكود غير واضح ) فالأفضل رفع الملف لتسهيل العمل عليه ----------------------------------------------------------------------------------------------------------------- أو اذا اردت التعامل مع الخطأ بنفسك قم بتشغيل الكود وعندما تظهر لك رسالة الخطأ اضغط على كلمة Debug سيقوم بفتح المحرر وسيقوم قاريء المحرر تلقائيا بتحديد سطر ووضع خلفية باللون الأصفر عليه قم بإلغاء التحديد بالضغط على أيقونة Reset ( شكلها مربع بلون ازرق) بجوار زر الـ Run الأخضر من شريط المهام بالأعلي بأيقونة ثم حاول تصحيح الخطأ

الأخ الكريم برنامج الـ one not فكرته الأساسية كمفكرة ( لتدوين الملاحظات ....الخ ) لكن مع التحديثات الأخيرة له أصبح هذا البرنامج له دور كبير فى كثير من المور منها على سبيل المثال عملية التعلم والتواصل ومشاركة الملفات والعديد من الأمور الرائعة صدق أولا تصدق أن معظم الدول أعتمدت هذا البرنامج كأحد البرامج المسؤولة عن تطوير تقنية التعليم فى المدارس وأصبح إلزاما فى العديد من الدول أن يتعلم المدرسين والطلاب كيفية استخدامه للتواصل فيما بينهم بل أصبح يستخدم فى المشاريع العملاقة ، وإدارة الموارد البشرية بالشركات المحترمة يمكنك من خلاله انشاء العديد من الأقسام وبكل قسم العديد من الصفحات يمكنك اضافة الفيديوهات وإنشاء بعض المعادلات الرياضية وأيضا يمكنك إدراج ملفات بداخله كذلك يمكنك اضافة الجداول وتنسيق المواعيد وإدارة العمليات والمتابعة من خلاله ايضا يمكنك ادراج جداول اكسل بداخله يمنكك مشاركة الملف بعدة طرق مع آخرين لتعملوا معا عليه هذا البرنامج اصبح بالفعل برنامجا قويا يمتلك العديد من المقومات وخاصة عملية البحث الموجودة بداخلة

اذا كان اصدار ماك لديك تحت رقم 15.40 يلزم تحديث الاصدار للتحديث اذهب الى قائمة المساعدة Excel's Help اختر التحقق من التحديثات Check For Updates بتطبيق AutoUpdate اختر مربع Insider program واستخدم Insider Slow للحصول على آخر تحديث اضغط مرة اخري Check For Updates بعد اختيار Insider Slow وجرب تشغيل وحدات الماكرو بعد التحديث

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

الأستاذ الكريم // ali mohamed ali جزاكم الله خير الخير #ExcelVBA التهيئة وإعدادات الأمان

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

الأخ الكريم سؤالك غير منطقى وغير مفهوم انت تقول ... ((( على سبيل المثال البحث عن تاريخ 5/2/2018 هو تاريخ محصور بين تاريخين فى شيت الاكسل هما من 1/2/2018 : 28/2/2018 وفى المقابل يقوم بعرض البيانات المقابله له فى التكست بوكس المقابله له . على الرغم ان تاريخ 5/2/2018 غير مدرج فى شيت الاكسل ولاكن هو فترة زمنيه محصورة بين تاريخين معينين . ))) فكيف للاكسل ان يجد هذا التاريخ !!!! ؟ وكيف يكون له بيانات وهو غير مدرج !!!! ؟

لا أعلم بالضبط ما هى المشكلة الموجوده لديك ولكنى أقترح بعض الأمور * تأكد من اعدادات الاكسل من File > Options > Add-ins تأكد من وجود الوظائف الاضافية الخاصة بالـ VBA ان لم تكن موجودة عليك بتثبيتها من موقع مايكروسوفت * تأكد من اظهار قائمة Developer ( المطور ) * تأكد من وجود مسار الحفظ الخاص بالملفات التى تحتوى على ماكرو وهو Excel Macro - Enabled Workbook من خلال حفظ اى مصنف بأسم جديد مع تغيير نوع مسار الملف ان لم يكن هذا المسار موجود ( فلديك مشكلة بنسخة الأوفيس الموجودة لديك ، ولا ينفع تسطيب نسخة أوفيس جديدة الا بعد عمل فورمات فى هذه الحالة )

أخى الكريم يمكنك التعديل بكل سهولة عند الضغط على ALT+F11 يظهر محرر الأكواد اضغط على نموذج الفورم المسمى Toumana الموجود على يسار النافذة ، تظهر الفورم ومن خلالها يمكنك تغيير ما تريد الشعار موجود فى أعلى الفورم بالمنتصف وهو بداخل Image1 بالضغط عليها كليك يسار ثم اختر خصائص تظهر لك نافذة تجد على يسار النافذة الجديدة كلمة picture وبجوارها بالجانب الأيمن عند الضغط عليها تظهر نافذة إختر الصورة المطلوبة من جهازك (( الشعار )) أما البيانات يمكنك الكتابة مباشرة بعد تحديد الكتابة الحالية

بوركتم أستاذنا القدير // محمد صالح جعله الله بميزان حسناتكم وتقبل منى وافر الاحترام والتقدير

أخى الكريم بوركتم وجزيتم عنى خيرا

أخى الكريم الكود راح يكون هكذا ولاحظ التغيير فيه مع تغيير أماكن خلايا الشرط أصبحت ( T9 و U9 ) وتغيير النطاق بشيت الاستعلام مرفق مثال توضيحي على الملف الخاص بكم Sub Work() Sheet2.Range("S13:V5000").ClearContents r = 13 For i = 11 To Sheet1.Range("E10000").End(xlUp).Row + 1 If Sheet2.Range("T9").Value = "" Then GoTo a If Sheet2.Range("T9").Value <= Sheet1.Cells(i, "E") Then a: If Sheet2.Range("U9").Value = "" Then GoTo a1 If Sheet2.Range("U9").Value >= Sheet1.Cells(i, "E") Then a1: Sheet2.Cells(r, 19) = Sheet1.Cells(i, 2) Sheet2.Cells(r, 20) = Sheet1.Cells(i, 3) Sheet2.Cells(r, 21) = Sheet1.Cells(i, 4) Sheet2.Cells(r, 22) = Sheet1.Cells(i, 5) r = r + 1 End If End If Next i End Sub جلب بيانات بين تاريخين_2.rar

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

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

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

أخى الكريم شرح الكود سطر سطر لأنى لا أعرف مقصدك ------------------------- Sheet2.Range("B13:E5000").ClearContents هذا السطر يتحدث عن النطاق الذى سيتم ادخال البيانات أى جلب أى استعلام البيانات بالشيت 2 شيت البحث ، والنطاق المذكور هو النطاق الذى سيتم مسح أى بيانات بداخله استعدادا للبيانات الجديدة ---------------------------- r = 13 هذا السطر يتحدث عن أن r تساوى 13 أى أن الصف رقم 13 بشيت 2 بداية جلب البيانات له ------------------------ For i = 13 To Sheet1.Range("E10000").End(xlUp).Row + 1 هذا السطر بداية حلقة تكرارية بنقول فيه ان (( i )) تساوى 13 أى الصف رقم 13 بشيت 1 شيت المصدر لغاية المدى E10000 حتى آخر صف بهذا العمود بالنطاق المحدد 10000 ------------------------- If Sheet2.Range("D8").Value = "" Then GoTo a If Sheet2.Range("D8").Value <= Sheet1.Cells(i, "E") Then هذان السطرين يتحدثان عن الحلقة التكرارية المطلوبة بالشروط التى سنضعها فى حالة كون الخلية D8 بشيت 2 وهو شيت الاستعلام وليس المصدر اذهب الى الشيت 1 فى العمود E وهكذا للسطرين التاليين من الكود ------------------- Sheet2.Cells(r, 2) = Sheet1.Cells(i, 2) هذا السطر مهم وقد يكون هو الذى تسأل عنه بنقول فيه شيت 2 ، السطر r وتم تعريفه سابقا أنه رقم 13 ، العمود الثاني وهو B بيساوى الشيت 1 ، السطر i وتم تعريفه سابقا أنه رقم 13 ، العمود الثاني وهو B

الأخ الكريم لماذا كل هذا الانفعال هدىء من روعك أولا لا يوجد أحد بالمنتدى يبخل بأى معلومة ، وكلنا هنا إخوة نتعاون فيما بيننا للوصول للنتيجة المطلوبة ثانيا دائما عندما تطرح موضوع فلا تستعجل الرد فالكل يشارك حسب وقته وجهده ثالثا أيضا عند طرح موضوع لا تطلب عده طلبات دفعة واحدة فهذا الأمر يجعل الكثير يحجب عن الرد لا بخلا أو ما شابه ولكنه يستصعب الأمر وكل حسب وقته رابعا بالمرفقات تجد أنه تم العمل على الطلب الأول والثاني خامسا زر حفظ التعديل مرتبط بالكمبوبوكس 1 وهذا الكمبوبوكس لا يعمل وعلى أى أساس سيتم البحث على عمود الرقم الوزارى أم عمود الأسم برجاء توضيح تلك النقطه ولعل أحد السادة أساتذتى يدخل لكى يكمل العمل بالنقاط الأخري (( كل حسب وقته )) 2017صيفية برمجية المعتمدة استعلام_1.rar

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