m.hindawi

شكرا لكم جميعا وكل عام انتم بخير و

شكرا مرة اخرى لقد نسيت بالنسبة للاسماء المركبة واللتي بنها فواصل يمكن ان تحدد كل اسم يبدا بكلمة( عبد) لياخذ الكلمة التي بعدهاو يضيفها معها لتصبح الاسم

aشكرا لك اخي ابو الانس بالنسبة للفصل يكفي الاسم واسم لاب و ام العائلة كل واحد في خانة بالاضافة الى رقم الهاتف اما بالنسبة لاسم الام فهو غير ضروري

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

بسم الله الرحمن الرحيم يمكن ذلك عن طريق اكواد بيسك كما في المرفق Book166.zip

النتيجة امامك اخي الكريم ولكنك لم تراها المدة= مبلغ القرض÷(القسط الشهري-(مبلغ القرض×الفائدة))

بسم الله الرحمن الرحيم لقد قمت باداج الدالة في الملف ولكن لفائدتك حاول كيفية ادراج الدوال والاكواد في الاكسل ابحث عن كلمة تفقيط في المنتدى وستجد ان هناك الكثير ممن تحدثوا عن الموضوع وهو بسيط L_1_.P.zip

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

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

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

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

بسم الله الرحمن الرحيم نعم يمكنك ذلك باستخدام الدالة countif اليك الملف معدل New_Microsoft_Excel_Worksheet.zip

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

بسم الله الرحمن الرحيم الكود سهل ما عليك الا انشاء اجراء جديد ولصق الكود التالي بداخله Sub rowhid() Dim a As String a = ActiveSheet.Name Sheets(a).Cells.EntireRow.Hidden = False For b = 18 To 34 If Sheets(a).Cells(b, 9).Value < 1 Then Sheets(a).Rows(b).EntireRow.Hidden = True End If Next End Sub بعد ذلك تقوم بلصق الكود التاي في كل ورقة من اوراق العمل من الورقة المسماة 1 الى الورقة ذات الاسم 10 Private Sub Worksheet_Change(ByVal Target As Range) rowhid End Sub

بسم الله الرحمن الرحيم جرب التعديل التالي ولست بحاجة الى زر الامر فقط قمت بتغير الحدث من activate الى change ANT_001T.rar

بسم الله الرحمن الرحيم اخي الكريم لقد قمت بعمل كود الي يقوم باخفاء الصفوف الفارغة وليس حذفها وذلك حتى لا تضطر الى اعادة كتابة الصيغ مرة اخرى ويعتمد الكود على عمود الكمية i اذا كنت تريد الحذف اعلمني بذلك وساعدل الكود الملف المرفق يحتوى على الكود جرب وبلغني بالنتيجة ANT_001T.rar

بسم الله الرحمن الرحيم في الكود الذي كتبه الاخ محمد قد تفقد المصفوفة اللتي تم تخزين عدد اشرطة الادوات قيمتها فيها وبالتالي ظهور رسالة خطأ اذا قاك المستخدم بالاغلاق بطريقة غير شرعية او اذا انقطع التيار الكهربائي فجأة لذلك كما اقترح الاخ محممد حجازي قمت بتخزين اسماء وعدد اشرطة الادوات في ورقة عمل معينة اولا كود اخفاء الاشرطة Sub hide() Sheets("data").Cells(1, 1) = 0 Dim cb As CommandBar Dim comd() As String With Application .DisplayFormulaBar = False .DisplayStatusBar = False For Each cb In .CommandBars If cb.Visible = True Then Sheets("data").Cells(1, 1) = Sheets("data").Cells(1, 1) + 1 End If Next End With ''''''''''''''''''''''''''''''''''' tt = Sheets("data").Cells(1, 1) With Application gg = 1 For Each cb In .CommandBars If cb.Visible = True Then Sheets("data").Cells(gg, 4) = cb.Name gg = gg + 1 End If Next End With ''''''''''''''''''''''''''''''''''' With Application .DisplayFormulaBar = False .DisplayStatusBar = False For Each cb In .CommandBars If cb.Visible = True Then ReDim Preserve comd(Sheets("data").Cells(1, 1)) comd(UBound(comd)) = cb.Name If cb.Name = "Worksheet Menu Bar" Then cb.Enabled = False Else cb.Visible = False End If End If Next cb End With End Sub ثانيا كود الاظهار Sub sohw() On Error GoTo errr Application.CommandBars("Worksheet Menu Bar").Enabled = True With Application .DisplayFormulaBar = True .DisplayStatusBar = True End With For YY = 2 To Sheets("data").Cells(1, 1).Value Application.CommandBars(Sheets("data").Cells(YY , 4).Text).Visible = True Next For YY = 1 To Sheets("data").Cells(1, 1).Value Sheets("data").Cells(YY , 4) = "" Next Sheets("data").Cells(1, 1) = 0 errr: If Err = 9 Then For YY = 1 To Sheets("data").Cells(1, 1).Value Sheets("data").Cells(YY , 4) = "" Next Sheets("data").Cells(1, 1) = 0 Exit Sub End If End Sub ثم تضع الكود التالي في الworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Sohw End Sub Private Sub Workbook_Open() hide End Sub ولكن لا تنسي ان تنشئ ورقة جديدة باسم data

بسم الله الرحمن الرحيم جرب الملف التالي والكود الموجود فيه في الحدث workbook open لكن لهذه الطريقة بعض الملاحظات لن تستطيع الكتابة في الخلايا التي تلي السطر 20 والعمود f مهما حاولت Private Sub Workbook_Open() Sheets("1").ScrollArea = "a1:f20" End Sub scrol.rar

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

بسم الله الرحمن الرحيم الامر بسيط جدا هذا الملف بعد التعديل employee.rar

بسم الله الرحمن الرحيم اليك الملف يتم اظهار الرسالة و تفريغ الخلايا c5 , c6 عند الحدث worksheet selection change في الورقة الاولى ملاحظة قمت بعكس الشرط بشكل خاطئ في الملف ليكون الملف كما طلبته اعكس اول سطر في الكود كاتالي If Range("b6") > Range("b5") Then وشكرا validation.rar

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

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

بسم الله الرحمن الرحيم جرب الكود التالي مع انك لم تحدد في اي ورقة الا انه يمكنك تغير اسم الورقة في الكود اسم الورقة هو "1" غيره ليتلا ءم مع ملفك Sub auto_open() Sheets("1").Range("a1:d1") = 0 End Sub ملاحظة الكود يوضع في اجراء مستقل وبنفس الاسم

بسم الله الرحمن الرحيم جرب الكود التالي Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Column = 4 Then Rows(Target.Row).Range("A1:H1").Select Target.Columns.Activate End If End Sub واعلمني بالنتيجة