نجوم المشاركات

تصميم موقع باكسبرشن ويب http://www.youtube.com/watch?v=Ytj9WgTjnUA

السلام عليكم ورحمة الله وبركاته الأخوة الكرام برجاء المساعدة فى إيجاد معادلة التى تحسب سن المعاش سن الـ60 من تاريخ الميلاد (تاريخ بلوغ سن الـ60) Book1.rar

فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة هو طلب للاخ الكريم / وليد زقزوق في موضوع وطلب له علي الرابط http://www.officena.net/ib/index.php?showtopic=49438 ولكن ما دعاني لوضعه في موضوع جديد هو ان عنوان الرابط المذكور (( كود لحذف ورقة عمل جديدة )) ********************************** فأردت وضعه في موضوع جديد بعنوان جديد للتسهيل علي من يبحث عن مثل هذه الاوامر ********************************************* وتم تنفيذ طلب للاخ الحبيب / إبراهيم ابوليله ايضا علي نفس الرابط بمنع اضافة الشيتات في حالة تكرار الاسم ارجو ان ينال اعجابكم .... ويكون فيه الافادة للجميع جزاكم الله خيرا sama-add-sheet.rar

السلام عليكم من المعروف عند كتابة مثلا &[Tab] في رأس اوتذييل ورقة العمل يدرج اسم الورقة كيف لي ان ادرج محتوى خلية في الرأس او التذييل بحيث اي تعديل في خلية ما يعدل رأس وتذييل وشكرا لكم

السلام عليكم عندي ملف لرصد غيابات التلاميذ أريد مساعدتكم فيه حيث : المطلوب : عند تحديد اسم الفوج يبحث عن التلميذ ضمن ذات الفوج من خلال حرفه الأول والثاني فقط مثلا : الفوج 1 اسم 1 بمجرد كتابة حرف التلميذ 1 أو الثاني يضهر قائمة باسمائهم والتي تبدا بنفس الحرفالمطلوب : عند تحديد اسم الفوج يبحث عن التلميذ ضمن ذات الفوج من خلال حرفه الأول والثاني فقط مثلا : الفوج 1 اسم 1 بمجرد كتابة حرف التلميذ 1 أو الثاني يضهر قائمة باسمائهم والتي تبدا بنفس الحرف رصد الغيابات.rar

هذا الكود استعملته بالكود بدلا من VLOOKUP قائمة فيالعمود A فيها أرقام المتعاملين قائمة بالعمود B فيها أسماء المتعاملين وهي بالعربي و الأنكليزي يعني لغة مختلطة ( هل يؤثر ذلك ) أريد معرفة رقم المتعامل بناء على اسم المتعامل في العمود L المفاجأة أن الكود يعمل لكن لا يرجع الرقم الصحيح للمتعامل Private Sub CommandButton2_Click() Sheets("MAIN").Select tt = ActiveCell.Row Sheets("MAIN").Cells(tt, "A").Select ActiveCell = Application.WorksheetFunction.Index(ورقة23.[A4:A10000], _ Application.WorksheetFunction.Match(Cells(tt, "L"), ورقة23.[B4:B10000]), 0) _ & Sheets("MAIN").Cells(tt, "AZ") End Sub

منورة منتدانا أختي الفاضلة

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

رجاء المساعده فى التغلب على تلك الرسائل اريد حلا لذلك.rar

أخي الفاضل قم بحفظ الملف بصيغة Binary

السلام عليكم الاخ الكريم / حسام مصطفي بارك الله فيك وجزيل شكري علي كلماتك الراائعة تقبل خالص تحياتي جزاك الله خيرا

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

الاخ الكريم شاهد المرفق .... هو ليس حل نهائي ولكنها فكرة فقط .. هل هذا ما تريد قم بالضغط 2 كليك في خلايا الاسم ثم اكتب اول حرف من الاسم شاهد النتيجة 1رصد الغيابات.rar

السلام عليكم الاخ الكريم / bouallam بارك الله فيك وبعد اذن الاساتذة الكبار .... جزاهم الله خيرا تم تنفيذ طلبك علي حسب ما فهمت بكود وفورم من اعمال استاذي الحبيب / ابو حنين ... جزاه الله خيرا اعتقد انه كما تريد تماما ** فقط قم بالضغط في خلية الصنف دبل كليك واكتب اول حرف من الاسم الذي تريده ستظهر لك قائمة بالاسماء التي تبدا بهذا الحرف قم باختيار ما تريد .. وفي انتظار ردك جزاك الله خيرا فاتورات 2012+sama.rar

الاثنين‏ 24‏/12‏/1434هـ الموافق ‏28‏/10‏/2013م السلام عليكم و رحمة الله وبركاته بعد الشكر الجزيل لأخي الفاضل حسام على فكرته الجميلة اخي ابوعلام في المرفق تم اضافة نموذج بحث و ادراج للأستاذ العلامة عبدالله باقشير جزاه الله خيرا اضغط على الزر اضافة للفاتورة في الخانة الموجودة تحت كلمة تعيين اكتب أي حرف او حرفين مماتريد اختار من البيانات التي تظهر ماتريد اضغط على ادراج للورقة يتم ادراج السعر و النوع مع التحية فاتورة2012.rar

اخي الحبيب / البروفسير بارك الله فيك علي كلماتك الرقيقة الجميلة وجزاك الله خيرا

السلام عليكم الاخ الحبيب / modi basha بارك الله فيك والله لكم سعدت كثيرا بهذا البرنامج بالفعل هو برنامج اكثر من رااائع بمعني الكلمة وجزاك الله خيرا علي ذكر اسمي وسط هؤلاء العمالقة وبرنامج بالفعل به مجهود جميل جدا وبالفعل تستحق لقب ( مصمم برامج ) ... يا اخي عندما يكون هذا اول برنامج لك ... فماذا بعد ذلك ... ان شاء الله من تقدم الي تقدم ... ونكتسب عضوا مميزا في اسرتنا الثانية اةفيسنا بارك الله لك تقبل خالص تحياتي جزاك الله خيرا

دائما وابدا يسعدني مرورك الكريم واخجلتني كلماتك الرائعة .... ولكن اعيب عليك بانك انكرت فضلك علي فاين استاذي البروفسير ضمن ما كتبت انت .... جزاك الله خيرا يا اخي والله ادين اليك بالفضل

شكرا لك اخي الكريم على مرورك العطر لكن اريد كتابة في خلية المواد المطلوبة الاحرف الاولى يقوم باعطائي الاختيارة مثلا : عند كتابة ختم في خلية المواد المطلوبة يقوم بالبحث في ورقة BASE يوجد في الورقة انواع من الاختام - ختم بيضوي - ختم دائري - ختم مستطيل و بعدها اقوم انا باختيار المادة المكلوبة و تقبل اخي الكرم فائق التقدير و الاحترام

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

السلام عليكم ورحمة الله أخي الكريم محمود، والله جميل جدا وهذا ما يقال فيه "التلميذ الذي فاق معلمه" وقد وضعت في الملف أمورا لا أعرفها وصرت أتعلم منها... الشيء الوحيد الذي أبدي فيه ملاحظتي هو عملية الانتقال من ورقة إلى ورقة أخرى يُحبّذ أن يكون الانتقال بمجرد الاختيار من القائمة المنسدلة وليس أن يكون بعد الاختيار من هذه القائمة ثم النقر على خلية "الانتقال إلى"... أعجبتني كثيرا فكرة فتح الورقة المختارة في خاصية "الانتقال إلى" وإخفاء الأوراق الأخرى... وفي مجمل العمل المقدم هو عمل متقن فزادك الله علما على علم وجعل ذلك في ميزان حسناتك وبارك الله فيك... أخوك بن علية

كنترول المرحلة الابتدائية للفصلين الدراسيين الاول والثاني حمل من احد الروابط التالية : http://www.m5zn.com/d/?15010412 http://www.4shared.com/rar/qVXMRA0U/___1_.html اسم المستخدم : لوجى باشا كلمة السر : 1964 والموضوع موجود فى منتدي الاكسل على هذا الرابط http://www.officena.net/ib/index.php?showtopic=49517&hl=

ملفات مرفقة ... كمثال كومبوبكس.rar

السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيك علي حسب فهمي لطلبك استخدم الكود التالي لتنفيذ ذلك Private Sub ComboBox1_Change() ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenFocus End Sub او بهذه الطريقة ايضا .... للاختصار ليس الا Private Sub ComboBox1_Change() ComboBox1.ShowDropButtonWhen = 1 End Sub جزاك الله خيرا

السلام عليكم الاخ الكريم / وليد فتحي بارك الله فيك اظن ان الحل الوحيد لتخفيف حجم الملف هو تقليل المعادلات المستخدمة بعض الشئ والاستعاضة عنها بالاكواد مثلا حيث ان هناك بعض المعادلات تجعل الملف ثقيلا مثلا مثل sumif ، sumproduct وايضا يجب عليك تقليل التنسيقات المبالغ فيها مثلا ان وجد صور او خلفيات .... وخلافه . وانصحك باستخدام اكسيل 2010

كتاب من أجمل ما علمت عن الوورد

السلام عليكم أخي الصدِّيق طبعا يتم هذا الأمر من صفحة DATA هذا هو الكود Sub Shift() Sheets("Data").Activate LR_C = [E60000].End(xlUp).Row For r = 4 To LR_C 'المرور علي أسماء العملاء ، إن وجد ورقة بالإسم ذهب لبرنامج الكتابة عليها 'وإن لم يجد ، يتم تكوين ورقة جديدة بالإسم ثم يذهب للكتابة عليها clnt = Cells(r, "D"): cl_Cod = Cells(r, "E"): cl_addr = Cells(r, "F") If clnt = "" Then GoTo 20 For i = 1 To Sheets.Count If Sheets(i).Name = clnt Then GoTo 10 Next i 'برنامج تكوين ورقة جديدة بإسم العميل Sheets("sample").Visible = True Sheets("sample").Copy after:=Sheets(Sheets.Count) With Sheets(Sheets.Count) .Name = clnt .[B1].Value = cl_Cod .[B2].Value = clnt .[D2].Value = cl_addr End With Sheets("sample").Visible = xlVeryHidden Sheets("Data").Activate 10 'برنامج الكتابة علي ورقة موجودة بإسم العميل If r <> LR_C Then n_LR = Cells(r, 2).End(xlDown).Row - 1: GoTo 15 n_LR = [H10000].End(xlUp).Row 15 LR = Sheets(clnt).[D60000].End(xlUp).Row + 1 Range("B" & r & ":C" & r).Copy (Sheets(clnt).Cells(LR, 1)) Range("G" & r & ":K" & n_LR).Copy (Sheets(clnt).Cells(LR, 3)) 20 Next r End Sub أنظر المرفق فاتورة جديدة6.rar

السلام عليكم أخي العزيز / aly elhedewy تفضل المرفق فاتورة جديدة5.rar