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

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

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

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

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

السلام عليكم ورحمة الله وبركاته اساتذتى فى هذا الصرح العظيم . الساده اعضاء اوفيسنا موضوع اليوم هو استخدام دالة VLOOKUP فى البحث عن قيمه معينه فى مجموعة صفحات بشكل بسيط وسهل فقد رايت استخدامات مشابهه ولكن كانت بشكل اصعب . والان اقدمها لكم بشكلها البسيط وعلى فكرة انا اعشق هذه الداله ارجوكم لاتنسونى فى دعاؤكم اترككم مع الملف والمثال العملى vlookp.rar

أخي الكريم هل جربت الكود الأخير في مشاركة الأخ العزيز عبد السلام؟ أرى أنه قد أدى المطلوب بدون ملف مرفق (بسم الله ما شاء الله عليه) ربنا يجازيه خير جرب وأخبرنا بالنتيجة .. وهل ما زالت نفس المشكلة قائمة أم لا

او يمكن تجاوز التحديد Private Sub CommandButton6_Click() For a = 1 To 10000 If Sheets("ورقة2").Cells(a, 1) = TextBox1.Text Then Exit For End If Next a Sheets("ورقة2").Cells(a, 1).Offset(0, 1) = TextBox2.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 2) = TextBox3.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 3) = TextBox4.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 4) = TextBox5.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 5) = TextBox6.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 6) = TextBox7.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 7) = TextBox8.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 8) = TextBox9.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 9) = TextBox10.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 10) = TextBox11.Text End Sub

Private Sub CommandButton6_Click() For a = 1 To 10000 If Sheets("ورقة2").Cells(a, 1) = TextBox1.Text Then Sheets("ورقة2").Cells(a, 1).Select Exit For End If Next a Sheets("ورقة2").ActiveCell.Offset(0, 1) = TextBox2.Text Sheets("ورقة2").ActiveCell.Offset(0, 2) = TextBox3.Text Sheets("ورقة2").ActiveCell.Offset(0, 3) = TextBox4.Text Sheets("ورقة2").ActiveCell.Offset(0, 4) = TextBox5.Text Sheets("ورقة2").ActiveCell.Offset(0, 5) = TextBox6.Text Sheets("ورقة2").ActiveCell.Offset(0, 6) = TextBox7.Text Sheets("ورقة2").ActiveCell.Offset(0, 7) = TextBox8.Text Sheets("ورقة2").ActiveCell.Offset(0, 8) = TextBox9.Text Sheets("ورقة2").ActiveCell.Offset(0, 9) = TextBox10.Text Sheets("ورقة2").ActiveCell.Offset(0, 10) = TextBox11.Text End Sub جرب

احفظ الملف بصيغة أوفيس 2007 و إنشاء الله راح نلقى العديد من الحلول

بيكون خفيف فى التعامل مع البرامج واثبت نجاحه وانا شخصيا اتعامل بيه فى تصميم برامجى

السلام عليكم ورحمة الله وبركاته احبتي الكرام اليكم بعض الدوال الصغيرة والمهمة والتي لا غنى للمبرمج عنها ولم آت بجديد فهو بعض مما عندكم ولكني احببت ضمه في مكان واحد اولا : اعاد تسمية لملفات او المجلدات هذه للمجلد Name "c:\oldName" As "c:\newName" ولتغيير اسم الملف والمتداد Name "c:\folderName\a.mdb" As "c:\folderName\b.txt" ولحذف ملف معين Kill "c:\fileName\a.txt" ولحذف كافة الملفات داخل مجلد Kill "c:\fileName\*.*" ولحذف مجلد شريطة ان يكون خاليا لا يحتوي على ملفات RmDir "c:\folderName" ولنسخ ملف من مكان الى مكان آخر FileCopy "C:\filename", "C:\filename" ولنسخ مجلد بكامل محتوياته من مكان الى مكان آخر انظر هنا

بارك الله فيك استاذ ابوخليل وجزيت خيراً اخي صالح

السلام عليكم اخي الكريم المشكلة في أخر رقم 3 في الدالة والذي يجب أن يكون صفراً لكي يعطي نتائج مطابقة =VLOOKUP(A2;ورقة1!$A$1:$G$9;3;0) أو False كما في مشاركة الاخ عبدالسلام

يوجد مشكلة فى الجهاز لديك ارجو فحص الجهاز من الفيروسات لان البرنامج يعمل معى بنسبة 100%

مشكووووور جدا لتفاعلكم معي تم حل المشكله الحمد لله كل الاحترام لكم

وعليك السلام ورحمة الله وبركاته لقد تم التعديل مثل ما طلبت أخي بالاعتماد على المعادلة التالية: (بالفرنسية) =NB.SI($E$3:$E$22;C3)=1 أما بالانجليزية فتكون بالشكل التالي: =COUNTIF($E$3:$E$22;C3)=1 كذلك أضفت لك عدد المرات المكررة بالاعتماد على المعادلة التالية: (بالفرنسية) =SI(NB.SI($C$3:$C$22;E3)=0;"";NB.SI($C$3:$C$22;E3)) أما بالانجليزية فتكون بالشكل التالي: =IF(COUNTIF($C$3:$C$22;E3)=0;"";COUNTIF($C$3:$C$22;E3)) وأضفت لك كذلك هل الفحص مكرر صح أم خطأ ؟ بالاعتماد على المعادلة التالية: (بالفرنسية) =NB.SI($C$3:$C$22;E3)>1 أما بالانجليزية فتكون بالشكل التالي: =COUNTIF($C$3:$C$22;E3)>1 أرجو أن أكون قد وفقت في مساعدتك في حل إشكالك وان كان هذا هو الحل فلا تنسى وضع اعجاب في انتظار ردك تحميل الملف المرفق: المكرر معدل.rar

تم تنزيل الماكرو على المرفق تعدد الاسطر في الخليه salim.rar

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

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

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

تفضل أخي الكريم تم التعديل على فورم 2 كان الاشكال عندك كالتالي : Range("a2:t10000") ولقد عدلت فيها على الشكل التالي: Range("a2:bk10000") وان كان هذا هو الحل فلا تنسى وضع اعجاب في انتظار ردك تعديل.rar

السلام عليكم ورحمة الله أخي الكريم، من دواعي سروري أن أقدم ما يمكن أن يفيد... في هذه النسخة تم إضافة مطلوب أخونا رميلي كمال في شيت "Bulletin" أي شيت الكشف... الرجاء تجريب الملف جيدا ربما قد غفلت على بعض الأخطاء... الكلمة السرية للشيتات وVBA تبقى دائما : hb أخوكم بن علية Bulletins_2016.rar

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

السلام عليكم أخي الحبيب الزباري موضوع جميل رائع بارك الله فيك وجزاك الله خيراً

السلام عليكم ورحمة الله أخي الكريم، الملف الذي تعمل عليه ملف من صنعي... وقد قمت ببعض التعديلات عليه في نسخته الأخيرة... بالنسبة لكلمة السر التي تبحث عنها هي : hb (للشيتات أو VBA) والتي تم وضعها فقط حتى لا تُحذف أو تُمسح معادلاته أو أكواده... ولك كل الحرية في الاستفادة أو التعديل على الملف بما يناسبك... وإن شاء الله تجدني في الخدمة بما تريده... أخوك بن علية

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

معلش على التاخير اتفضل التقرير عن طريق الجدول وعن الاستعلام example.rar

حبيبى يا ابوالبراء الرابط شغال انا جربته مستنيك بالليل حبيبى ابواسيل انت اللى عم بتشجعنا ياغالى والكود بسيط فى الزر لاجل عيونك ياغالى اليك الكود Dim Hostname As IPHostEntry = Dns.GetHostEntry(TextBox1.Text) Dim ip As IPAddress() = Hostname.AddressList TextBox2.Text = ip(0).ToString

السلام عليكم ورحمة الله وبركاته، ما يكون خاطرك إلا طيب يا أبا يوسف، الفكرة تكمن ببرنامجين أحدهما مرسل والآخر مستقبل يقوم باستعراض جهاز الكمبيوتر على الهاتف: أولا: تنزيل تطبيق مستقبل على الهاتف أنا استخدمت برنامج mirrorop reciever ثانياً:تنزيل برنامج mirrorop sender على جهاز الكمبيوتر. ثالثا: قم بتشغيل التطبيق على الهاتف ومن ثم على الكمبيوتر. رابعاً: أدخل رقم الآيبي الظاهر في الهاتف على الكمبيوتر. واضغط connect وأخيرا: اضغط على مثلث التشغيل لكي تستعرض جهاز الكمبيوتر على هاتفك وافتح على برنامج الإكسيل ولا تنسى أن تقوم بتكبير الخلايا (zoom in) من الهاتف والتي تريد أن تستعرضها للزبون. وألف مبروك.. هذا نموذج لعرض أرقام الإنتظار Q-system. وللفائدة ملف الإكسيل يكون كالتالي والرقم الظاهر عبارة عن معادلة تساوي الخلية a2 وقد تم تكبير الجزء الأصفر فقط

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

الله ينور حبيبي احمد ظبط كدا الموضوع دا واعرض اكواده ونحطه ضمن السلسلة يلا شجعنا عشان ننزل دروس تقبل تحياتي

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

جميل ايها البحار وحل رائع ولا اجمل وعندي بعض النقاش اولا الوقت الفارق الحقيقي الموجود في الجداول هو 8 ساعات والسبب عدم ايجاد علاقة بين الجدولين ولنفرض ان ان التكرار الموجود حقيقي وليس تكرار فالمجموع في مثالك 24 ساعة ودقيقة يعني يوم وحيث ان اليوم الوظيفي غالبا يكون 8 ساعات او 7 حسب النظام فغالبا نحتاج ايجاد الحضور او الغياب بالايام لهذا ذكرت في مشاركتي السابقة ايجاد الفرق بالدقائق فقط وطبعا تكون داخل الاستعلام للرجوع اليها عند الحاجة لمرونتها لاجراء العمليات عليها ما رأيكم ؟

بعد اذن أستاذ ابو خليل وجد الحل اتفضل لو عجبك التعديل اضغط like example.rar

على فكرة انا الى معدل البرنامج ذلك من قبل عضو اخر اتفضل العديل بمنع التكرار لوعجبك التعديل اضغط like _برنامج - نسخة.rar

أخي الكريم أسامة قم بحذف الأكواد من موديولات أوراق العمل وضع هذا الكود في حدث المصنف فقط Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Cl As Variant, Dat As Variant Dim DupCtr As Double Dim LastRow As Long If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then Application.EnableEvents = False If Target.Cells.Count > 1 Then Dat = Target.Formula For Each Cl In Dat If Cl <> "" Then MsgBox "Change Only One Cell At A Time", , "Too Many Changes!" Application.Undo: Application.CutCopyMode = False GoTo Skipper End If Next Cl End If End If Skipper: Application.EnableEvents = True If Target.Column = 10 Then Application.EnableEvents = False Sh.Unprotect 1 Sh.Cells(Target.Row, 12).Value = Date & " " & Time Sh.Range("L:L").EntireColumn.AutoFit ActiveSheet.Protect 1 Application.EnableEvents = True End If If Target.Column = 20 Then Application.EnableEvents = False Sh.Unprotect 1 Sh.Cells(Target.Row, 24).Value = Date & " " & Time Sh.Range("X:X").EntireColumn.AutoFit Sh.Protect 1 Application.EnableEvents = True End If If Target.Column = 29 Then Application.EnableEvents = False Sh.Unprotect 1 Sh.Cells(Target.Row, 32).Value = Date & " " & Time Sh.Range("X:X").EntireColumn.AutoFit Sh.Protect 1 Application.EnableEvents = True End If End Sub حيث سيعمل الكود بهذا الشكل مع كل أوراق العمل بدلاً من عمل الكود لكل ورقة عمل على حدا

اخى الكريم تفضل الحل على حسب ما فهمت من طلبك شاهد المرفق واى تعديل انا تحت امرك وانصحك لو عايز تتعلم راجع الرابط التالى تقبل تحياتى Book1.zip

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

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

بس انا زعلان منك بقول كلمة سهلة وحاجه بسيطة تعمل فيا كدا ماشي مردودالك حط بقي يامعلم ملف انا اللي هحدد بقي مكون من 6 ارقام ارقام هاا سامع عشان السرعة بس لو عاوزهم سبعة مش مشكلة يلا ارفق مثال بس بعيد عن نسخة 2016 دي طبعا كلها برامج لما نخلص التجارب نطلع بالخلاصة باذن الله

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

حلوه ياصلاح

يا أستاذ ياسر أنا مش فاكر الباسورد ومش عارف هو كبير ولا صغير وأرقام بس ولا أرقام وحروف أنا مش فاكره فعلا بس ساعات باعمله أرقام وحروف وعلى فكرة جربت برنامج EXCEL PASSWORD RECOVERY وقعد حوالي 3 أيام وماوصلش لحاجة والبرنامج بيتم تفعيله بسهولة على ويندوز 10 بس مصطفى كامل الله يرحمه قال ( لا حياة مع اليأس ولا يأس مع من تنادي) وسعد زغلول قال ( مفيش فايدة ) أنا بقى هاقول ( إلحقووووووووووووووووووووووووووووووووني )

السلام عليكم ورحمة الله وبركاته الفرق بين تاريخين باستخدام الدالة DATEDIF اتمنى ان يفيدكم جميعا تعريف الدالة امثلة على استخدام الدالة مدونة خبير اكسيل http://excelfinancial1.blogspot.com.eg/ تحميل الملف الفرق بين تاريخين.rar