ياسر خليل أبو البراء

الأخ وحيد الموضوع تم تناوله على هذا الرابط http://www.officena.net/ib/index.php?showtopic=32391&view=findpost&p=166456&hl=%DD%D5%E1%20%C7%E1%E4%C7%CC%CD%20%DA%E4%20%C7%E1%D1%C7%D3%C8&fromsearch=1

أخي كيماس .End(xlDown).Select للإشارة إلى آخر خلية بها بيانات ضمن النطاق الذي يبدأ من A1 حتى آخر خلية بها قيم مع العلم أنه لو ترك صف فارغ فإنه لن يقوم بالتنفيذ بعد الصف الفارغ

بارك الله فيك أخ هشام ممكن أعدل تعديل بسيط جداً على كودك Dim XYZ As Range Range("A1").End(xlDown).Select For Each XYZ In Range(Range("A1"), Selection) XYZ.Offset(0, 1).Value = XYZ.Value * 3 Next أخوك أبو البراء

الأخ الحبيب كيماس جرب هذه المعادلة =IF(OR(ROUND(MOD(A1;1);1)=0.1;ROUND(MOD(A1;1);1)=0.2;ROUND(MOD(A1;1);1)=0.6;ROUND(MOD(A1;1);1)=0.7);FLOOR(A1;0.5);CEILING(A1;0.5)) أخوك أبو البراء

أخي يوسف ركز معايا الخطأ في السطرين Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False لإن السطرين دول بيقوموا بإظهار جميع الصفوف والأعمدة وبالتالي فإنه يلغي السطور التي تسبقه من الكود حيث أن الكود يتم تنفيذه بالترتيب السطر الأول ثم الذي يليه وهكذا وأنت قمت بإخفاء لبعض الأعمدة والصفوف ثم في السطر الثالث والرابع قمت بعملية إظهار كافة الصفوف والأعمدة فتم إظهار ما قد أخفاه ... إذاً قم بحذف هذين السطرين حتى يتم المطلوب قم بالإشارة إلى الشيت المطلوب على النحو التالي Sheets("Yasser").Columns("A:C").Hidden=True حيث أن Yasser هو اسم الشيت المطلوب نفيذ الكود عليه أخوك أبو البراء

أخي يوسف تعلم الأكواد والبرمجة محتاج صبر وجهد ومتابعة للمواضيع المطروحة بالمنتدى.. بالنسبة لوضع الكود في الحدث Workbook_open بعد ما تفتح محرر الأكواد اضغط دبل كليك على ThisWorkbook من النافذة Project Explorer ثم من الجهة اليمنى ستجد قائمتين منسدلتين إحداهما لاختيار الكائن Object اختر منها Workbook والأخرى لاختيار الاجراء Procdure اختر منها Open وبذلك يتم تنفيذ الكود عند فتح المصنف مثلاً ممكن إخفاء العمود E عند فتح المصنف بالكود Columns("E:E").Hidden=True أخوك أبو البراء

أخي الحبيب إليك الحل في المشاركة التالية

أخي الحبيب يوسف عطا لك وحشة .. بقالك فترة مش باين عوداً حميداً أخ يوسف ... إليك هدية بمناسبة عودتك .. بس متنساش تدعي لي أخوك أبو البراء Test.rar

تسلم أخ هشام على هذه المعلومة القيمة أخوك أبو البراء

أخي الحبيب إليك هذا الملف فيه شرح للدالة بالنسبة لتجاهل القيم المخفية يتم إضافة 10 إلى 1 لتصبح 101 وهكذا اطلع على الملف أخوك أبو البراء Subtotal.rar

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

تسلم الأيادي أيوا والله تسلم برنامج بنك أكواد رائع مذهل مدهش .. بارك الله فيك يا أبا محمد وياريت تكتر من الهدايا اللي من النوعية دي جزاكم الله خيراً أخوك أبو البراء

الأخ الحبيب قم بنسخ المعادلة التالية في الخلية B1 =IF(A1-TRUNC(A1)>=0.8;CEILING(A1;1);IF(OR(A1-TRUNC(A1)=0.7;A1-TRUNC(A1)=0.6);FLOOR(A1;0.5);IF(A1-TRUNC(A1)>=0.3;CEILING(A1;0.5);FLOOR(A1;1)))) أخوك أبو البراء

أخي الحبيب هاني أهلاً بك في منتدى أوفيسنا منتدى الأحبة سؤالك مش واضح لإن الفورم هو النموذج والنموذج هوالفورم.. بس عموما ممكن يكون قصدك إظهار النموذج عندالضغط على زر "إدخال البيانات" .. لو كان دا طلبك قم بإدراج موديول ثم اكتب في إجراء فرعي UserForm1.Show بس خلاص!!!ربنا يكرمك

بسم الله ما شاء الله عليك خايف عليك م الحسد ياعمدة إليك حل الملف الثاني أخوك أبو االبراء سؤال على الجمل الشرطية_Baraa.rar

حفظك الله ورعاك وسدد الله خطاك وجعل الجنة مثواك بارك الله لنا فيك .. وزادك من علمه .. وأعطاك العلم والحكمة .. ونفع بك المسلمين اللهم آمين .. اللهم آمين .. اللهم آمين أخوك في الله أبو البراء

الأخ الكريم undertaker مرحباً بك في منتدى أوفيسنا إليك المطلوب أخوك أبو البراء Baraa.rar

أخي يا عاشق نفس الفكرة بالدالة Subtotal إليك هذه المعادلة لعد القيم الرقيمة فقط أما لعد النصوص والأرقام فقم بتغييرها إلى 103 =SUBTOTAL(102;$D$3:$D$32) أخوك أبو البراء

السلام عليكم أخي الحبيب جرب المعادلة التالية =SUBTOTAL(109;$C$4:$C$33) أخوك أبو البراء

Did you forget us Mr Emad? We are waiting for you .......

السلام عليكم أخ عادي بس إنت باين عليك مش عادي وإذا كنت ساكن في المعادي فبالله عليك خليك علينا هادي إليك ملف فيه مجموعة ملفات إكسيل تقوم بالمطلوب أهلاً بك في منتدى أوفيسنا أخوك أبو البراء Nageh_Raseb.rar

ربنا يبارك لي فيك يا سندبااد والله إنت كلك جدعنة وأنا متأكد من كدا أخوك أبو البراء Baraa.rar

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

أخي وحبيبي عادل بارك الله فيك وجزاك الله خيراً .. بس بردو إنت لما اشتغلت على الفورم عملت ComboBox وليس ListBox ماتزعلش إضلفة رائعة استفدت منها في مكان آخر أخي المغوار عماد الحسامي جزيت عنا خير الجزاء .. إنت تستاهل كل خير والله ... أخي الحبيب أبو فيصل بارك الله فيك وكما أفادنا الأخوة عادل وعماد فإليك هذا الشرح من العبد الفقير إلى الله أخوك أبو البراء ListBox.rar

أخي الحبيب مؤيد مشكلتك ليست من داخل الإكسيل إنما من ربما من نسخة الأوفيس التي لديك قد يكون بها ملفات ناقصة أو خلافه عموماً جرب نسخة تانية بس تكون واثق فيها ، مكانش يبقى نسخة الويندوز فيها عيب ... هذا والله أعلم أخوك أبو البراء