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

اخى الكريم استخدم الكود التالى .. وابدى ملاحظاتك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B1:B10000")) Is Nothing Then If Target.Offset(, -1) <> "" Then With Target(1, 2) .Value = Date End With End If End If End Sub

sumproduct (2).rar

أخى الفاضل جرب هذه المعادلة =LOOKUP(2;1/((عام!$I$5:$I$12000='تعديل عوده'!$G$5)*(عام!$R$5:$R$12000="تعديل"));عام!$H$5:$H$12000)

تفضل جرب انسخ والصق في اي مكان اخر التعديل بسيط جدا تحديد ونسخ فقط بضغطة زر.rar

أخى الفاضل جرب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range, LR As Integer LR = Cells(Rows.Count, 2).End(xlUp).Row Set Rng = Range(Cells(1, 1), Cells(LR, 1)) Rng.Formula = "=IF(NOT(ISBLANK(B1)),COUNTA(B$1:B1),"""")" End Sub

كثيرا ما نحتاج لتصميم عرض تقديمي تفاعلي يمكن العرض من التفاعل مع المستخدم فإذا اختار المستخدم اختيار يقوم البرنامج بإجراء معين وهكذا وهذه مجموعة من ملفات الشرح بالصوت والصورة لكيفية عمل عرض تقديمي تفاعلي حجم الملف 71.7 ميجا بايت ولا تنسوا أخاكم / محمد صالح من صالح دعائكم والآن مع التحميل http://www.mediafire.com/download.php?mjmmiyzmwyg

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

اخواني ومعلميني الاعزاء في موضوع سابق طلب لاخي mabrouk1234 في موضوع ((عمل فورم لسندات الصرف وترحيله)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=48628&page=2 بطلب سند صرف يظهر فيه دفعات نقدية لعملية الصرف واخترت ان يكون موضوع منفصل حتي تعم الفائدة ولسهولة البحث مستقبلا أدعوا الله سبحانه وتعالي ان يكون فيه النفع والفائدة لو بالقليل ولا تنسونا بدعوة بظهر الغيب بصلاح الحال وجمعة مباركة وان شاء الله تعالي سوف يكون هناك شرح بالتفصيل لتركيب الفورم والاكواد المستخدمة علي الموضوع ((امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476 والان شرح لوظائف الفورم 1- شاشة الدخول وكلمة المرور 111 2- شاشة ادخال سند قبض جديد 3- شرح لوظائف الشاشة 4- شاشة البحث وخيارات التعديل والحذف والطباعة الملف مع الشرح بالمرفقات اوفيس 2010 سند صرف مركب.rar

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

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

أخي الكريم الساحر 2010 أهلاً بك في المنتدى ونورت بين إخوانك يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى كما يرجى تغيير اسم الظهور ليكون باللغة العربية اطلعت على ملفك والملف يفتقر للبيانات التي يمكن الاعتماد عليها في المعادلة ... عموماً ننتظر ملف مرفق آخر مع شرح المطلوب (ليس داخل الملف فقط ولكن الشرح يكون بالمشاركة أيضاً) تقبل تحياتي

بارك الله فيكم إخواني الكرام لسؤالكم عني أنا بخير والحمد لله وقد كنت منشغلاً في بعض الأمور .. وإن شاء الله سأكون معكم جزيتم خيراً لسؤالكم عني تقبلوا تحياتي

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

أخى الكريم يبدو ان لديك ارتباطات بملفات اخرى ولذلك تحدث معك هذه المشكله والله اعلى واعلم 1 أدبى وبرنامج الشهادات وجدول معهد شوغى يجب وضع كل هذه الملفات مع بعض ليتم العمل بشكل سليم

أخى العزيز ماجد القثمى أخى العزيز خالد الرشيدى فقط لاثراء الموضوع لا أكثر مرفق الملف لعل به ماتريد وشكرا ادخال التاريخ تلقائيا وعدم تغيره مع مرور الايام.rar

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

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

اريد ان يظهري لي اسم المستخدم في الفروم وتسجله ولكن عند اضافه بيان جديد بيمسح اسم المستخدم كيفيه تثبيته حتي خروج المستخدم

مطلوب إدراج التقويم Calendar بمجرد الضغط علي كمبوبوكس داخل الفورم إظهارالتقويم في الفورم.rar

الله يكون في عونك ويسهل امرك

السلام عليكم بعد اذن الأستاذ / زيزو العجوز جرب أخى هذه المعادلة =IFERROR(INDEX($I$2:$I$1000;MATCH(TRUE;A2&B2=$G$2:$G$1000&$H$2:$H$1000;0));"") مع مرعاة الضغط على ctrl + shift + enter coulm.rar

=SUMIFS($G$4:$G$30,$F$4:$F$30,I$3,$E$4:$E$30,"<>") اي اصدار اوفيس لديك اذا كان قبل 2007 يجب تغيير المعادلة الى هذه =SUMPRODUCT(--($F$4:$F$30=J$3),--($E$4:$E$30<>""),$G$4:$G$30)

السلام عليكم ورحمة الله عسى الله ان يكون هذا هو متطلبه coulm.rar

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

مشكور جدا للاهتمام الصديق ابو خليل ولكن المطلوب هو الكود التالي Screen.activecontrol.name للافادة

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

السلام عليكم أضفت سطرين للكود الأصلي ليقوم بتكرار ترحيل رقم الفاتورة والتاريخ وكود العميل واسم العميل بعدد الأصناف المرحلة تفضل المرفق احمد شعبان2.rar

السلام عليكم الكود التالي في حدث ورقة فاتورة المبيعاتيقوم بعملية الترقيم التلقائي للفاتورة Private Sub Worksheet_Activate() xx = Sheets(1).[A999999].End(xlUp) If IsNumeric(xx) Then n = xx + 1 Else n = 1 [G6] = n End Sub سوف يقوم بمراجعة ورقة المبيعات العمود الأول إذا كان تم ترحيل فواتير لها سابقا سيأخذ آخر رقم بالعمود A ويضيف عليه 1 ويجعله هو رقم الفاتورة الجديدة وإلا سيكون رقمها هو (1)

الامر يسير ويجب انك تحاول حتى تستفيد فقط انسخ كود المربع الاول للمربع الثاني وغير ما يلزم Prog.1003.rar

تفضل اخي الكريم تحياتي db1.rar

أخى الفاضل ما تريده يمكنك أن تقوم بعمله بنفسك من خلال تسجيل الماكرو الموجود فى الاكسل كما فعلت انا فانا لم اقم بكتابة هذا الكود إنما قمت بتسجيل الماكرو وهو من كتب هذا الكود لكنى أريد فقط تبسيطه لأنى سأقوم بمهام كثيرة

تفضل مثال New folder.rar

الحل هو كالتالي مع مراعاه المسار للملف قم بتعريف المتغيرات Dim OldFolderName As String, NewFolderName As String ثم قم بتعريف الملفات مع مراعاة الامتداد OldFolderName = "C:\Sid1" NewFolderName = "C:\Sid2" ثم قم بتغيير الاسماء بينهم Name OldFolderName As NewFolderName

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

انا مبتداء في الاكسل ،، واستخدم نفس الطريقة ،، وأضع vba أخر الكلمة البحث وهذا عندما ابحث في المواقع الانجليزية ،، ولكن عندما استفسر عن كود في موقع اوفسنا .. اكتب في العنوان .. كود ( .........طلبي............... ) . باللغة العربية .. وهذا يسهل على الاخرين الذين يبحثون على الاكواد بالغة العربية .. راح يجد الكود الذي يبحث علية .. على سبيل مثال اليوم طرحت سؤال هو أنني اريد كود تغيير اسم المجلد .. كتبت ( كود تغيير اسم المجلد vba ) >> اذا تم حل هذا السؤال اليوم .. غداً من سيبحث علية في جوجل .. سوف يجده في مقدمة البحث .

جزاك الله عنا الف خير لاتوفي كلماتي لشكرك ولابداعك

هل تقصد هكذا ربط 2 كمبوبوكس.rar

أخي الكريم الساعة 4 صباحا ..و أنهض للعمل على السادسة و النصف يعني ساعتين و نصف للنوم لا تهتم أبدًا بالأمر غدُا بحول الله سنخترع له حلاً غصبًا عنه فائق إحتراماتي

السلام عليكم الحمد لله الذى بنعمته تتم الصالحات شرح الفكرة تفصيلاً علها تمثل إضافه لاحد الاخوة التطبيق بالمرفق El RashedY_ VlookUp.rar

بعد إذن أخي الأستاذ جعفر تفضل أخي هذه المشاركة ومثال أستاذنا الجليل أبو خليل

السلام عليكم وجدت هذا المثال ، البحث في عدة حقول ، وبين تاريخين ، فاحببت مشاركتم فيه: http://allenbrowne.com/ser-62.html والمرفق من هنا http://allenbrowne.com/binary/Search2000.zip جعفر

جزاك الله خيرا أخى الفاضل

بارك الله فيك لك كل التقدير والاحترام

جزاك الله خيرا أخى الفاضل ابو حمادة شكرا جزيلا على هذا الدعاء الطيب

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

طلباتك أخي الكريم تم عمل اللازم تجده هنا http://www.officena.net/ib/index.php?showtopic=39163&view=findpost&p=216327

و عليكم السلام أخي REDA لغة الفيجوالVBA موجودة في ملفات أوفيس منها إكسال و أكساس و الوورد...إلخ أما... أي نسخة أثبت على جهازي لأني وجدت في غوغل عدة نسخ للـ vb انصحك بي VB6 بالتوفيق