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

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

السلام عليكم ورحمة الله وبركاته احبتي الكرام اليكم بعض الدوال الصغيرة والمهمة والتي لا غنى للمبرمج عنها ولم آت بجديد فهو بعض مما عندكم ولكني احببت ضمه في مكان واحد اولا : اعاد تسمية لملفات او المجلدات هذه للمجلد 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" ولنسخ مجلد بكامل محتوياته من مكان الى مكان آخر انظر هنا

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

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

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

السعادة نسبية ليست مطلقة ...أما السعادة الكاملة ففي جنات ونهر عند مليك مقتدر..أما هنا فالمنغصات كثيرة ...يفعلها بنو البشر دون حساب لحرية أو حياة أو كرامة غيرهم. كما قال اليهود عليهم من الله ما يستحقون:قالوا نحن أبناء الله وأحباؤه...وكما قال فرعون يا هامان ابنِ لي صرحاً ...وكما قال قارون:إنما أوتييته على علم عندي....ولكن:((إن ربك لبالمرصاد))وكفى. والسلام عليكم.

السلام عليكم احبتي الكرام يمكن ان تظهر " بن " في التقارير وغيرها بدون ادراجها في الجدول او ظهورها في النموذج عند ضم الحقول الاربعة ولنفرض انها fld1 , fld2 , fld3 , fld4 يتم الضم هكذا : [fld1]& " " & "بن" & " " &[fld2] & " " & [fld3] & " " & [fld4]

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

يبدو الموضوع غريباً نوعاً ما.. فبفضل الله تم الإنتهاء من التجربة.. وإليكم النتيجة

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

بسم الله الرحمن الرحيم ورجعنالكو تانى من جديد ومعانا الجديد كلة سلسلة تعليم vba للمبتدئين الجزء الثالث كيفيىة كتابة اول كود لك فى vba مشاهدة ممتعة باذن الله https://youtu.be/g6OVUAGqOBk

يسعد مساك استاذ عماد بشرحك الجميل وملاحظات الأساتذة الكبار أنا متفاءل ( بعتذر لأنو زر الهمزة على نبرة عندي معطل ) إني افهم الأكواد بوجودكم الأمل موجود شكري لكم جميعا

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

عزيزي اعتقد ان الملف ليس ملفك لذا لكي تفهمه و تتقن استعماله و تضيف اليه الاضافات التي تراها مناسبة يجب ان تقوم ببنائه بنفسك و هو ليس بالامر المعقد او المستحيل خطوة خطوة و ستتمكن من ذلك - مجرد راي - اما بالنسبة لطلبك انا اعتقد انا تريد هذا - انظر للمرفق- New WinRAR archive.rar

جرب هذا النموذج الذي يمكنك التعديل عليه جسب ما تريد writ_In_One Sheet.rar

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته أخي ياسر خليل أبو البراء جزاك الله خيرا على هذا المجهود

اخي العزيز هذه بداية الحل انشئ صفحة جديدة وسمها "print" .. وضع الكود في حدث زر الطباعة Private Sub CommandButton1_Click() With Sheets("print") .[B2] = Me.ComboBox1 .[B6] = Me.TextBox14 .[D6] = Me.TextBox15 .[F6] = Me.TextBox16 .printout End With End Sub

أخي الكريم جرب الكود التالي .. Sub Test() Const lngStartRow As Long = 2 Dim strFile As String Dim strFileName As String Dim lngMyRow As Long Dim lngLastRow As Long Dim lngMatchRow As Long Dim rngDelete As Range strFile = Sheet1.Range("A4").Value & ".xlsx" strFileName = ThisWorkbook.Path & "\" & strFile Application.ScreenUpdating = False If Len(Dir(strFileName)) > 0 Then Workbooks.OpenText Filename:=strFileName lngLastRow = ActiveWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row For lngMyRow = lngStartRow To lngLastRow lngMatchRow = 0 On Error Resume Next lngMatchRow = Evaluate("MATCH([" & strFile & "]Sheet1!A" & lngMyRow & ",[" & ThisWorkbook.Name & "]Sheet1!B:B,0)") If lngMatchRow > 0 Then If rngDelete Is Nothing Then Set rngDelete = ActiveWorkbook.Sheets("Sheet1").Cells(lngMyRow, "A") Else Set rngDelete = Union(rngDelete, ActiveWorkbook.Sheets("Sheet1").Cells(lngMyRow, "A")) End If End If On Error GoTo 0 Next lngMyRow If Not rngDelete Is Nothing Then If Evaluate("Sum([" & strFile & "]Sheet1!" & rngDelete.Offset(, 2).Address & ")") = ThisWorkbook.Sheets("Sheet1").Range("C5").Value Then rngDelete.EntireRow.Delete MsgBox "تم حذف الصفوف من مصنف العميل", 64 ActiveWorkbook.Close True Else MsgBox "الفواتير متطابقة ولكن مجموع الفواتير غير متطابق", 64 ActiveWorkbook.Close False End If Else MsgBox "لا يوجد أرقام فواتير متطابقة", vbExclamation ActiveWorkbook.Close False Exit Sub End If Else MsgBox strFileName & " الملف غير موجود!", vbExclamation, "File Not Found" End If Application.ScreenUpdating = True End Sub أرجو أن يكون المطلوب ويفي بالغرض إن شاء الله

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

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

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

أخي الكريم السؤال بشكل عام لن يفيد قم بإرفاق ملفك وحدد المطلوب بدقة هل المطلوب تصدير ورقة عمل واحدة أم عدة أوراق عمل إلى ملف PDF؟ قم بالإطلاع على هذا الرابط لعله يفيدك الرابط من هنا

شكرا لتفهمك واسف على تقصيري في شرح الطلب...... العملية بالتفصيل مع المسميات: RN ملف سند القبض 100001 ملف الفواتير المتبقية الغير مدفوعة للعميل Dr. Basel 100002 ملف الفواتير المتبقية الغير مدفوعة للعميل Dr. Ahmed 1- سوف اضع اسم العميل في الخلية (A3) - ملف RN شيت Sheet1 2-الرقم التسلسلي للعميل المتربط باسم العميل (A4)- ملف RN شيت Sheet1 3-سوف ادخل ارقام الفواتير ( ملاحطة: الفواتير اراد العميل دفعها بالشيك) يدويا في الخلايا (B3:B)- ملف RN شيت Sheet1 4-تاريخ الشيك ادخال يدوي (C3) | رقم الشيك ادخال يدوي (C4) | قيمة الشيك ادخال يدوي (C5) - ملف RN شيت Sheet1 5-رقم التسلسلي التلقائي لسند القبض (D4) - ملف RN شيت Sheet1 6-عند ضغط الزر يعمل الكود كالتالي: يبحث في ملف العميل 100001 او 100002( ملاحظة: حسب اسم العميل ورقمه التسلسلي) عن الفواتير التى تم اضافتها في RNمن B3:B 7-اذ وجدت هذه الفواتير يتم التأكد من مجموع قيمها ( الموجود في ملف العميل في شيت 1 في الصف C من C2:C. 8-في حال تطابق مجموع قيم هذه الفواتير في ملف العميل مع قيمة الشيك في ملف RN,sheet1,C5 يتم حذف صفوف الفواتير التى وجدت من ملف العميل ثم الحفظ والاغلاق والعودة للملف RN

ومن أين تأتي السعادة ولنا إخوان في كرب عظيم!!!

بارك الله بكم ...واصبر وما صبرك إلا بالله...نطرق الباب ...وننتظر. إخوتي الكرام باقة ورد تعطر صباحكم الذي أرجو أن يكون سعيداً.....والسلام عليكم

وعليكم السلام ورحمة الله وبركاته أخي الحبيب أبو يوسف .. نتعلم الصبر فللصبر ثمرة وحلاوة ..

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

تفضل نسخة احتياطية.rar

هكذا تتضح الصورة ويرجى من جميع الأعضاء التوضيح بالصور ..لتتضح المشكلة بشكل أفضل جرب الخطوات التالية : ----------------------- في موديول رقم 1 على سبيل المثال أو أي موديول في قسم الإعلانات العامة ضع السطر التالي في أول الموديول رقم 1 Public strUser As String هذا السطر لتخزين اسم المستخدم الذي سجل الدخول ******************* في حدث الفورم UserForm1 في السطر الذي تظهر فيه رسالة تفضل بالدخول أضف سطر آخر بعده لتخزين اسم المستخدم في المتغير MsgBox "تفضل بالدخول", vbOKOnly, "تنبيه" strUser = Me.ComboBox1.Value ******************* في حدث الفورم المسمى Form2 عدل الأسطر التي أشرت إليها بهذا الشكل Dim xRow As Long xRow = Application.WorksheetFunction.Match(strUser, ورقة11.Columns(1), 0) If ورقة11.Range("L" & xRow).Text = "مشاهدة وتعديل" Then CommandButton1.Visible = True Else CommandButton1.Visible = False End If أرجو أن أكون وفقت في حل المطلوب .. لأن الملف متشابك جداً

وحششششششششش يبو خليييييييييييل

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

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

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

أخي العزيز عبد السلام بارك الله فيك وجزاك الله كل خير يرجى وضع الأكواد بين أقواس الكود التي تظهر لديك بهذا الشكل <> ليظهر الكود بشكل منسق أخي الكريم مهند تم تقديم الحل من قبل أخونا سليم وأخونا عبد السلام هل جربت الحل أم لا؟

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

هدية للمنتدى ولحضرتك لو عجبك اضغط like يرنامج مساعدات لشهر رمضان.rar

انسخ هذه المعادلة الى j2 واسحب نزولاً =IF(ISNA(MATCH($J2,$E$2:$E$669,0)),"",F2)

جزيت خيرا .. تم تمييز المشاركة بموضوع وعنوان جديد

السلام عليكم قمت بهذه المحاولة و اعتقد انها تعمل حيث غيرت في ساعة و يوم الحاسوب حذف نطاق ثابت بعدة اوراق بتوقيت ثابت من كل يوم بإستثناء يوم 2الجمعه.rar

دائماً ننتظر مواضيعك الشيقة والمميزة .. بارك الله فيك وجزاك الله خيراً

السّلام عليكم و رحمة الله و بركاته بارك الله فيك و لك .. جزاك الله خير الجزاء و زادك من علمه و فضله أخي الفاضل " الزباري " حسب الصّورة .. يبدو أنّ كل أفكارك أحلى من عسل البسبوسة التي على جهازك إحتراماتي

السلام عليكم فعلا غريب و إننا نتطلع لباقي الموضوع بشغف تقبل تحياتي

اخي الافضل عند عمل العلاقة تكون الجداول فارغة ... انظر ... 1 - Copy.rar