m.hindawi

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

و

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

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير

لدي مشكلة واريد الحل

عندي قاعدة بيانات فيها جدولين الاول يحتوي على دليل هاتف فيه خانة الاسم وهو اسم ثلاثي كما في الجدول

والخانة الثانية فيها رقم الهاتف

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

ولكم الشكر

db2.rar

بسم الله الرحمن الرحيم

يمكن ذلك عن طريق اكواد بيسك كما في المرفق

Book166.zip

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

( مبلغ القرض × الفائدة ) + ( مبلغ القرض ÷ المدة ) = القسط الشهرى

حيث ان الفائدة هى فائدة شهرية ثابتة و المتغير المدخل هنا هو مبلغ القرض و المدة و الناتج هو القسط

و اريد ان اغير اح المدخلات و اثبت الاخر

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

<{POST_SNAPBACK}>

النتيجة امامك اخي الكريم ولكنك لم تراها

المدة= مبلغ القرض÷(القسط الشهري-(مبلغ القرض×الفائدة))

بسم الله الرحمن الرحيم

لقد قمت باداج الدالة في الملف

ولكن لفائدتك حاول كيفية ادراج الدوال والاكواد في الاكسل

ابحث عن كلمة تفقيط

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

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

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

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

واعلمني بالنتيجة