خالد نور

استخدام المعادلة if هو المجدى فى هذه الحاله =IF(C1>B1,"الرصيد لا يسمح ","") بوضع الرصيد فى الخانة B1 ووضع الاخر فى C1 ,G ولو كانت C1 اكبر من B1تظهر الرسالة عكس ذلك لا تظهر شىء او ممكن تعدلها بحيث تظهرلك الفرق الباقى زى ما أنت عايز

أضف قبل امر application.quit أمر ActiveWorkbook.Save وذلك حتى يتم الحفظ تلقائيا عند الخروج وبدون سؤال المستخدم وبذلك يتم الحفظ والخروج فى نفس الوقت

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

الشكر لله أخى الكريم وشكرا على كلماتك

لصق الظاهر فقط بدون البيانات المخفيه ** عندك بيانات فى ورقة بعضها مخفى والاخر غير مخفى لو عملت نسخ ولصق هتلاقى كله اتنقل المخفى والغير المخفى واحنا عايزين ننسخ الظاهر فقط ايه الحل؟ بسيطة علم على البيانات كلها واضغط كليك ctrl+G هيظهرلك مربع حوارى أضغط على Special هيظهرلك مربع حوارى أخر يسمى Go to special فى نفس هذا المربع اسفل اليمين هتلاقى visible cell Only علم عليه واضغط ok بسرعة مفيش وقت هتلاقى نفس رجعت لورقة العمل والبينات متعلم عليها أنسخها وهى متعلم عليها ctrl+C وبعد كده الزقه فى اى مكان ctrl+ V هتلاقى البيانات اللى ظاهرة بس هى اللى تلصقت اى خدمة المرة القادمة حاجة جامدة جداا إن شاء الله

عـــــــدنا دعونا نحدد الهدف من المشاركة هى معرفة اسرار وحيل موجودة فى البرنامج ولكن معظم المستخدمين لا يعلمها او لا يستخدمها وهى تنجز اعمال مهمة جدا واستخدامها سهل جدا وان تكون هذة المشاركة مفتوحه لجميع الاعضاء ليدلو كل منا بدلوه من افكار ومميزات سهله الاستخدام اى السهل الممتنع ولكن بشرط بعيدا عن الاكواد تماما فموضوعنا منصب على استخدام مميزات البرنامج الموجودة فيه وبعد اذنكم امنحونى شرف البداية . ** لو كان عندك بيانات فى عمود وتريد أن تلصقها فى صف ماذا تفعل ** بسيطه اعمل نسخ لبيانات العمود وقف على اى صف يعجبك واضغط كليك يمين واختار past special لزق خاص وعلم على Transposeواضغط ok بس خلاص خلص الموضوع وبدل البيانات ما كانت فى عمود بقت فى صف طيب لو العكس لو كانت البيانات فى صف وعايز انقلها فى عمود بسيطة هى هى نفس الاجراءات ** المشاركة القادمة : كيف تنسخ البيانات الظاهرة فقط بدون الصفوف والاعمدة المخفيه التى تقع وسط البيانات الظاهرة

السلام عليكم ورحمة الله وبركاته مقدمه لكى تضع قدمك على طريق الاحتراف للاكسل وتحلق فى سماء التميز والاحتراف عليك بالآتى :- 1- أن تعتمد على الله وتسأله العون والمدد وان تكون صادق النيه 2 - ان تكون صديق للاكسيل اى نعم صديق فلا تخشى البرنامج والمعادلات والمربعات الى اخره واعلم انه سيكون مساعدك الامين الذى سينجز لك اعمالك بدقة وسرعة وتميز ويجعل صورتك امام مديريك بأنك واد عبقرى ولم تنجب البشرية مثلك 3- ان تسعى للتعلم بدأب واستمرار وأن تجرى وراء المعلومة حتى ولو كانت من من هو أصغر منك علما فقد يكون يعلم معلومة لا تعرفها أنت وأياك ان تدعى انك اصبحت عالم فى اكسيل والا ستكون هذه بدايه النهايه 4 - فى مرحلة التعلم الاولى ابداء بما هو سهل حتى تدرج فيما هو اصعب ولا شىء صعب فى العلم 5 - ضع لنفسك هدف بأنك ستصبح متفوق جدا فى اكسيل 6 - طبعا ده اهم حاجة تبقى على اتصال بمنتدى أوفسينا فيه دروس خصوصية أحترافية ببلاش مش هتلاقيها بره وفيه ناس محترفه بجد أدعى نوصل لمستوى علمهم أمين 7 - وأخرا بعد متبقى محترف ومحدش يملى عينك وتبقى واد فلحوس وعبقرى متنساش اخوك خالد نور بدعاء فى ظهر الغيب بعد هذه المقدمه المهمه فى رائى دعونا نحدد هدف هذه المشاركة لكن بعد هذا الفاصل

استراحة بعيدا عن الاكسيل غير من اعدادت الماوس من كنترول بانل واختر الملف بعد فكه وشاهد الماوس بعد ذلك وقد تحول يسبح ويحمد ويكبر ( اللهم نستغفرك ونتوب اليك اللهم ردنا إلى دينك ردا جميلا ) Allah.rar

هذا بنك اكواد لفيجوال بيسيك وفى انتظار بنك اكواد الآخ elmounir2010 CodeBank.rar

ممكن ترفق الملف لفحصه ومعرفة المشكلة

اتفضل كتاب شيق بالبور بوينت من اعداد بنت اليمن يتكلم عن عملية ربط الفيجوال بقواعد البيانات كتاب شيق ومفيد جعله الله فى ميزان حسناتهم إن شاء الله اليك الرابط http://www.9q9q.net/index.php?f=dfbcD7Ro

الملف MYTRY2.rar

اليك الملف بعد التعديل

اليك اخى الكريم ما طلبت اتفضل الملف بعد عمل اللازم والله المستعان

ارفق ملف لعمل الحل على الملف بإذن الله

اليكم الرابط http://www.officena.net/ib/index.php?showtopic=9729&hl=

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

ياريت لو حد يعرف كيف يتم تغيير اللغات فى الورقة يتفضل يعرفنا جزاكم الله خيرا

ويجد به اعمده مخفيه بالاخفاء ولون الكتابة وذلك للايضاح

كلمة السر 3b1b3b3b3b3b3

اليك برنامج فك الضغط وان رار اعمل له سيتاب على جهازك للاستفادة من جميع ملفات المنتدى مع تحيات الرابط http://www.9q9q.net/index.php?f=EfCFDBSs

اى خدمة ملف مرفق به جدول الضرب بطريقة بسيطة وواضحة __________.rar

تحية كبيرة للاستاذ على السحيب

لعمل نسخة احتياطية من ملفك على اى برتيشن على الهارد وفى هذا المثال بارتشينe والملف المراد نسخ بيك اب منه محمى بكلمة سر khaled حتى لا يتوقف العمل تمت كتابتهافى الكود Sub Macro1()' ChDir "E:\" ActiveWorkbook.SaveAs Filename:="E:\NAME FILE COPY.xls", FileFormat:= _ xlNormal, Password:="khaled", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False End Sub

وده كود يعطيك رسالة ترحيب اول الملف مايفتح وطبعا متفقين انك ممكن تعدل فيها زى ماأنت عايز مما يتناسب مع ملفك Private Sub Workbook_Open() Sheets("sheet1").Activate If Date >= #1/1/2000# Then MsgBox "أهلا بك فى منتدى أوفيسنا " End If End Sub