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

أخي الحبيب سليم بارك الله فيك وجزاك الله خير الجزاء في الدنيا والآخرة عمل رائع وجميل جداً ما رأيك بتعديل بسيط لن يؤثر في عمل الكود أرى أنك تكثر من التحديد والتحديد لا قيمة له ... قم بالإطلاع على الكود بالشكل التالي Sub FindEmptyCell() Dim LR&, R& Application.ScreenUpdating = False LR = Cells(Rows.Count, 1).End(3).Row If LR < 2 Then LR = 2 Range("B2:C" & LR + 1).ClearContents For R = 2 To LR With Range("A" & R) If IsEmpty(.Value) Then .Offset(0, 1) = .Address Else .Offset(0, 2) = .Address End If End With Next Application.ScreenUpdating = True End Sub

لابد أن تكون عدد عناصر المصفوفة واحدة بمعنى عدد الصفوف المشار إليها في نطاق الجمع ونطاق الشروط لابد أن يكون بنفس العدد F6:F11 هنا 6 عناصر أو 6 صفوف A6:A11 هنا أيضاً 6 عناصر في المصفوفة أما الجزء التالي G9:G11 فيحتوي 3 عناصر فجرب أن تقوم بتغيير الجزء المخالف إلى G9:G14 ستجد أنه لا يوجد خطأ إن شاء الله

اكتب هذه المعادلة مقابل اول خلية و اسحب نزولاً =COUNTIF(A$3:A3,A3)

جرب المرفق ان كان ما تريد حدد الموضوع كأفضل إجابة فورم البحث و التعديل.rar

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

بسم الله الرحمن الرحيم سنبدا ان شاء الله فى تناول كتيب قمت باعداده عن ادوات التحليل ماذا لو واطلب من الجميع تاجيل التعليقات والاستفسارات حتى انتهى من النشر وساقوم بالتنويه حال الانتهاء من النشر . تقبلوا تحياتى . ===================================================================== استخدام أدوات التحليل ماذا-لو؟ الموجودة في الاكسيل Microsoft Office Excel what-if analysis ===================================================================== مقدمة: من أكثر الأدوات الرائعة والمتميزة الموجودة في الاكسيل هي أدوات التحليل ماذا –لو (what-if analysis) حيث تقوم بعرض نتائج بشكل ديناميكي أيضا تقوم بتغيير القيم في الخلايا لمعرفة كيفية تأثير هذه التغييرات على ناتج الصيغ في ورقة العمل. وتحليل ماذا لو يجيب على تساؤلات كثيرة :لنفترض أنك ستقوم بشراء سيارة او منزل او نقوم بعمل تحليل مالي فماذا-لو تغير معدل الفائدة من 7.5% الى 7%؟ فماذا-لو رفعنا أسعار المنتجات الى 5% من السعر الحالي؟ فماذا-لو ارتفعت أجور العاملين الى 10% من العام الماضي؟ .............................. الخ العديد من التساؤلات نحتاج ان نضع نتائج سريعة لها حتى نستطيع اتخاذ القرار المناسب يمكن الإجابة على مثل هذه التساؤلات عن طريق أدوات التحليل ماذا لو what-if analysis الموجودة في ميكروسوفت اكسيل Microsoft Office Excel وهي كالاتي: إدارة السيناريو (Scenario Manager) الاستهداف (Goal Seek) جداول البيانات (data tables) الأدوات الإضافية add-in مثل solve وأدوات أخرى. ملاحظة: يمكنك عمل تحليل ماذا-لو؟ بشكل يدوي manual what-if analysis عن طريق ادخال قيم يدوية وعمل خلايا صيغ تقوم بعرض النتائج بناء على القيم التي ادخلتها. ثم مشاهدة مثل هذه التغيرات. الوصول لهذه الأدوات كما في الشكل التالي: انتقل الى علامة تبويب بيانات DATE اختار أدوات التحليل ماذا لو ======================================================= اولا: استخدام جداول البيانات Creating data tables ======================================================= جداول البيانات هي واحده من أكثر الميزات الغير مستغله في الاكسيل وهي عباره عن نطاق ديناميكي يلخص الصيغ والمعادلات في خلايا المدخلات. حيث يعرض نتائج أكثر من احتمال او تصور في مكان واحد وبشكل سريع ولكن جداول البيانات لها بعض القيود حيث تتعامل مع مدخل واحد او اثنين فقط في نفس الوقت . ======================================================= النوع الأول: انشاء جدول بيانات من متغير واحد (ادخال واحد فقط) ======================================================= جدول البيانات ذات المتغير الواحد او الادخال الواحد يعرض نتائج صيغه واحده او اكثر من صيغه لقيم مختلفة في خلية ادخال واحده . ويمكن عمل هذا الجدول في اى مكان في ورقة العمل العمود الايمن: يحتوي على قيم الادخال اليدوية الصف العلوى: يشير الى صيغه او مرجع خليه الخلية العلوية اعلى العمود الايسر تترك فارغه. ======================================================= خطوات عمل هذا النوع من جدول البيانات ذات المتغير الواحد او الادخال الواحد . ======================================================= اذا كان الادخال اليدوى في خلية ادخال العمود اكتب الصيغة في ادخال خلية ادخال الصف والعكس اذا كان الادخال اليدوي في خلية ادخال الصف اكتب الصيغة في خلية ادخال العمود حدد الخلايا او النطاق التي تحتوي على الصيغة والادخال اليدوي التي تريد عرض نتائج او تصورات عنها وليكن معدل الفائدة. افتح جدول البيانات من TAB بيانات DATE . حدد مرجع خلية الادخال اليدوي . اذا كان قيم الادخال اليدوى في موقع خلية ادخال العمود اكتب مرجع ادخال العمود في مربع الحوار . والعكس إذا كان قيم الادخال اليدوي في موقع ادخال الصف اكتب مرجع ادخال الصف سنتعرض لذلك لاحقا في الأمثلة والحالات العملية. اضغط موافق المشاركة التالية الامثلة العملية 1-0.rar

السلام عليكم أحبابى واخوانى فى المنتدى هذه أول مشاركة لى بالمنتدى بعد النسخة الجديدة واسمحوا لى بأن أعبر عن رأيى فيها باختصار مثل غالبية المنتديات الأجنبية التى أطلع عليها وأشارك فيها .الشكل يبدو جافا ومفيش حيوية ولا ألوان براقة أو صورة جذابة حتى شريط العناوين كان علامة مميزة لهذا المنتدى ويعطيه الحيوية والنشاط وللأسف افتقدها المنتدى فى ثوبه الجديد ومع أن ده مهم بالنسبة ليه على الأقل والمفروض يؤخذ شكل المنتدى فى الاعتبار كجاذب للتعلم لكن الأهم أننا نتعلم و ربنا يجعل قيها البركة ويحببنا فيها أكتر من القديمة موضوعى الجديد باختصار هو ربط مجموعة خلايا ببعضها فى خلية واحدة يعنى ببساطة لو عندى مجموعة خلايا أقدر أضمهم فى واحدة بدون دمج للخلايا وأنتم عارفين دمج الخلايا الكود وعليه شرح بالعربية : Sub JoinCells() Dim Rng As Range, C As Range, FC As Range, SS As String, Rep As Integer On Error Resume Next ' فى حالة حدوث خطأ يتم تخطيه للنقطة التالية 'جعل المستخدم يعين أو يحدد الخلايا المراد ربطها Set Rng = Application.InputBox(Prompt:=" Ctrl' لربط الخلايا الغير متجاورة " & " استخدم المفتاح ", Title:="سلسلة الخلايا", Type:=8) If Rng Is Nothing Then ' فى حالة عدم فى تحديد أى خلايا Rep = MsgBox(" ! تم الغاء عملية الربط ", vbQuestion + vbRetryCancel) ' رسالة If Rep = vbCancel Then ' فى حالة الغاء تحديد الخلايا On Error GoTo 0 ' فى حالة حدوث خطأ تتم العودة الى نقطة الصفر Exit Sub ' و يتم الخروج من الاجراء Else ' اذا لم يلغى المستخدم عملية تحديد الخلايا Run "JoinCells" ' يتم اعادة الاجراء من جديد End If ' انتهاء جملة الشرط End If ' انتهاء جملة الشرط Set FC = Rng(1, 1) ' اعتبار أول خلية فى الخلايا المحددة كخلية رئيسية تتجمع فيها نصوص باقى الخلايا For Each C In Rng ' عمل لوب على كل الخلايا المراد ربطها SS = C ' اعتبار قيمة المتغير نصا و تساوى قيم الخلايا المحددة C.Clear ' تفريغ محتوى الخلية FC = Trim(Replace(FC, FC, "") & " " & FC & " " & SS) 'استبدال المحتوى الأصلى لأول خلية بالنصوص التى فى الخلايا Next C End Sub ' انتهاء الاجراء وهذا هو المرفق Join selection Cells .rar وهذا شكل آخر للكود Sub JoinCells() Dim Rng As Range Dim C As Range Dim FC As Range Dim StrStart As String Set Rng = Sheets("Sheet1").Range("C10,E10,G10,I10") Set FC = Sheets("Sheet1").Range("C4") 'مكان تجميع الخلايا For Each C In Rng StrStart = C C.ClearContents 'OR : Clear FC = Trim(Replace(FC, FC, "") & " " & FC & " " & StrStart) Next C End Sub وهذا مرفق على الشكل الثانى للكود Join specific Cells mokhtar .rar

اخواني في المتدى بعد طول انتظار عاد الينا أوفيسنا بالسلامة لكن انا اتسائل بيني و بين نفسي ماهو الجديد في هذا التطور 1- هل تظهر لك لائحة بالمعجبين بالمشاركة كما في السابق ام عددهم فقط (ايهما أفضل بالنسبة للمشارك) 2-ما معنى الايقونة التي تظهر الى جانب كل مشاركة من لائحة المشاركات و الي تتحول الى اللون الاحمر بمجرد افتراب الماوس منها و اذا ضغطت عليها يظهر لك Erro 3- ما معنى تصويت على المشاركة سلباً او ايجاباً و الصفر الذي يظهر في البداية 4- لماذا تم الغاء تمييز افضل اجابة باللون الاخضر 5- لماذا لم يتم فصل السؤال عن الموضوع (الموضوع للاستفادة و السؤال للاستفهام) ( اذا اردت ان تطرح موضوعاَ تتفاجأ بأنه يدخل ضمن باب الاسئلة) تحت عنوان اسئل سؤال (و ليس إسأل سؤالاً_مراعاة لظروف لغة القرآن الكريم و قواعدها) و هناك المزيد من الاسئلة التي ربما تخطر على البال والتي ارجو الاجابة عنها

اخى سليم مشرفنا الغالى ياسر خليل نقاش الأساتذة يتعلم منه التلاميذ امثالى شكرا لكم

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

اخي ياسر أكثر من رائع جزاك الله خيراً

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

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

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

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

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

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

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

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

103 _ ( VLOOKUP ) من البداية وحتى الاحتراف _ الاستاذ / خالد الرشيدى 104 _ فهرس دورة أساسيات إكسل 2013 من تحت الصفر إلى الاحتراف _ الاستاذ / ياسر خليل أبو البراء

الملف 2003 لاخى admbrk كارتة صنف.rar