koky_dar

السلام عليكم

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

لديا حوالي 20 مرشح 

وياتي الناخبين لاختيار 7 مرشيحن فقط من المرشيحن

بحيث اذا اختار الناخب عدد اقل او اكثر من 7 مرشيحن يكون تصويتة باطل

واذا اختار 7 مرشحين يكون صوته صحيح ويتم حساب الصوت الصحيح للمرشح في النهاية لفرز الفائزين

وفي النهاية يتم حساب عدد اجمالي الاصوات التي ادلت بصوتها , وعدد الاصوات الصحيحية , وعدد الاصوات الباطلة , وعدد الاصوات الصحيحية لكل مرشح

اتمني الافادة , وشكرا

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

عندي قاعدة بيانات تحتوي علي حقل " العنوان"

ولكن بعض السجلات تكون العناوين بها غير كاملة 

يعني احيانا يكون العنوان مكتوب : دمنهور فقط او ابو حمص فقط 

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

24 دقائق مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

استبدل الكود السابق بهذا الكود

Sub AddSheets()
Dim List As Range, C As Range
Application.ScreenUpdating = False
Set List = Sheet1.Range("B4:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row)

On Error Resume Next
For Each C In List
If Len(Trim(C.Value)) > 0 Then
If Len(Worksheets(C.Value).Name) = 0 Then
Sheets.Add(after:=Sheets(Sheets.Count)).Name = C.Value
End If
End If
Next
Dim Sh As Worksheet, ws As Worksheet
Set Sh = Sheets("ahmed")
Sh.UsedRange.Copy
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> Sheets("Sheet1").Name Then
ws.Range("A1").PasteSpecial xlPasteFormats
ws.Range("A1").PasteSpecial xlPasteFormulas
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

مشكوووووووووور بارك الله في حضرتك وزادك علماً

اشتغل بشكل اكثر من رائع

مساعدة اخيرة انا اسف اني بتقل علي حضرتك

ازاي اخلي الخلية C1 تحتوي علي اسم الشيت ؟ في كل شيت جديد من اللي هيتعمل !

2 ساعات مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

استخدم هذا الكود

Sub AddSheets()
Dim List As Range, C As Range
Dim Sh As Worksheet
Set List = Sheet1.Range("B4:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row)
On Error Resume Next
For Each C In List
If Len(Trim(C.Value)) > 0 Then
If Len(Worksheets(C.Value).Name) = 0 Then
Sheets.Add(after:=Sheets(Sheets.Count)).Name = C.Value
End If
End If

Next
End Sub

 

بارك الله فيك أستاذنا الفاضل و زادك علماً ونفع بك 

أنا جربت الكود دا وشغال تمام

بس محتاج تعديل من حضرتك

دلوقتي انا عندي شيت وليكن بأسم ahmed فيه معادلات وتنسيقات 

عايز لما انفذ الكود بتاع حضرتك بدل ما ينشأ شيت جديد فارغ , ينشأ نسخة من شيت ahmed بنفس التنسيقات والمعادلات وبدون اي قيم

هل ينفع عمل ذلك ؟ 

ولك جزيل الشكر و التقدير .

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

لدي هذا الكود الخاص بالبحث داخل عدة شيتات

الكود يعمل بشكل سليم عند  البحث عن أسم او نص

   !!ولكن عند البحث عن رقم لا يبحث 

فيرجي من الخبراء مراجعة الكود واخباري بالسبب

ولكم جزيل الشكر

Sub seach()
Dim sh As Worksheet, rng As Range, x As Byte, a As Byte, d As Long, e As Long, y As Long
Application.ScreenUpdating = False
Set sh = Sheets("Search")
sh.Range("A5:J1000").Clear
Set rng = sh.Range("A2")
x = Sheets.Count
For a = 1 To x
If Sheets(a).Name <> "Search" Then
Sheets(a).Select
d = Cells(1000, 1).End(xlUp).Row + 1
For y = 2 To d
e = sh.Cells(1000, 1).End(xlUp).Row + 1
If rng = Left(Cells(y, 1), Len(rng)) Then
sh.Cells(e, 1) = Sheets(a).Name
sh.Cells(e, 2) = Cells(y, 3).Address
sh.Cells(e, 3) = Cells(y, 1)
sh.Cells(e, 4) = Cells(y, 2)
sh.Cells(e, 5) = Cells(y, 3)
sh.Cells(e, 6) = Cells(y, 4)
sh.Cells(e, 7) = Cells(y, 5)
sh.Cells(e, 8) = Cells(y, 6)
sh.Cells(e, 9) = Cells(y, 7)
sh.Cells(e, 10) = Cells(y, 8)

End If
Next
End If
Next
Sheets("Search").Select
Application.ScreenUpdating = True
End Sub

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

اخواني الاعزاء هل هناك من طريقه لإدخال البيانات في الاكسل عن طريق الصوت ؟؟

4 ساعات مضت, احمدزمان said:

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

كما فهمت تريد التقريب للربع الأدنى

بمعنى مضاعفات 0.25

جرب هذه الداله

=CEILING($A$1-0.2;0.25)

حيث ان الدالة CEILING تقرب للأعلى لذلك نخصم من الرقم 0.2 لكي يقرب الى الأعلى و نصل للنتيجة المطلوبة

الف شكر يا أخي الفاضل 

اشتغلت تمام وقامت بالمطلوب

ربنا يجزيك خير و يبارك في حضرتك

تقبل تحياتي 🌷🌷

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

لو سمحتم محتاج مساعدة في التقريب لقيمه أصغر

عندي خليه فيها رقم 2.6666

عايز اخلي الناتج يتقرب ل 2.50

وخليه اخري فيها رقم 1.3333

عايز اقرب الرقم ل 1.25

حربت دالة Round down بس مظبتطش معايا

انتظر المساعدة من الخبراء

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

الأخوة الكرام خبراء الاكسيل 

مرفق ملف يحتوي علي صفحتين

صفحة DATA

وبها البيانات المراد ترحيلها

وصفحة المساعد

المراد ترحيل البيانات اليها كما هو موضح بالتنسيق داخلها

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

وشاكر لكم مساعدتكم الدائمة و دعمكم لنا

مساعدة في الترحيل.xlsx

في ٢٥‏/٤‏/٢٠١٧ at 15:32, محمود أبوالدهب said:

نظرا لانى مبتدء فارجوا ان يتم عزر في تلك النتيجه هى لفة طويل بنعمل جدول فيه جمع الايام وفيه مجموع نتائج الاجمالى في كل صفحة

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

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

مرفق طيه الى قمت بيه ارجوا ان يراه الخبراء ايضا  

111111.rar

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

في ٢٥‏/٤‏/٢٠١٧ at 20:12, زيزو العجوز said:

السلام عليكم ورحمة الله

اخى الكريم تفضل

 

test.rar

تسلم ايدك يا استاذنا وفعلا دا المطلوب بالظبط , ربنا يجازي حضرتك كل خير يارب علي مجهودك الرائع دا 

للرفع 

3 دقائق مضت, ابو علي و سدرة said:

كلمة السر ايه ؟

123

7 دقائق مضت, ابو علي و سدرة said:

الواضح فى الملف المرفق ان اليوم بيكون بحد اقصى صفحتين فقط ... دا فعلا كدة ولا ساعات ممكن يكون اكتر ودا مثال ؟

دا مثال فقط

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

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

36 دقائق مضت, ابو علي و سدرة said:

اضف ملف لتوضيح المطلوب بدقة

 

تفضل اخي الكريم

test.rar

السلام عليكم ورحمه الله وبركاته ,, 

الاخوة الأفاضل 

عندي ملف اكسيل يحتوي علي مجموعة من ال sheets باسماء الايام 

1-4-2017

2-4-2017

3-4-2017

وهكذا الي اخر صفحة باسم 30-4-2017

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

السؤال :  ازاي اعمل صفحة رئيسية تحتوي علي اسماء جيمع ال sheets وقصاد كل اسم ورقة يتكتب أخر سطر فى الورقة ( اللى هو اجمالي تعاملات اليوم )

أتمني الاجابة علي استفساري ولكم جزيل الشكر 

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

لدي استفسار واتمني الاجابة عليه 

هل من الممكن عمل تنسيق لجدول بكود ماكرو مباشرة

بمعني عايز اعمل جدول من مسلسل رقم 1 لمسلسل رقم 100 

بحيث اخلي المستخدم يدخل فى خليه اول قيمه ولتكن 1 و اخر قيمه ولتكن 100 , ثم يضغط على زر بناء جدول فيقوم الاكسيل بعمل جدول بشكل اتوماتيكي يبدأ من رقم 1 وينتهي ب 100 ويقوم بتنسيقة بكافة الحدود 

ولكم جزيل الشكر 

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

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

حيث اني اعمل فى خزنه  

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

حيث ياتي الشخص ومعه طلب يريد دفع المبلغ المستحق عليه 

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

, و لدي 3 دفاتر تحصيل اقوم بكتابه ايصالات تحصيل فيها كل يوم وهي  :

1- دفتر رقم 1 ويختص بتحصيل الضرائب ( و يحتوي على رقم الايصال , واسم القائم بالسداد , و المبلغ المسدد )

2- دفتر رقم 2 ويختص بتحصيل الرسم ( و يحتوي على رقم الايصال , واسم القائم بالسداد , و المبلغ المسدد )

3- دفتر رقم 3 ويختص بتحصيل الطلبات ( و يحتوي على رقم الايصال , واسم القائم بالسداد , و المبلغ المسدد )

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

حيث خلال اليوم اقوم بتحصيل ما يقارب من 500 ايصال مقسمة الى ايصالات ضرائب وايصالات رسم وايصالات طلبات 

اتمني تكون الصورة وصلت ليكم بشكل كامل و فى انتظار مقتراحاتكم 

وشكرا

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

الاخوة الاعزاء قمت بعمل قاعدة بيانات بسيطه 

تحتوي على جدول , و 2 يوزر فورم , وتقرير 

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

ولكم جزيل الشكر 

17 ساعات مضت, Shivan Rekany said:

کل الصفحات اخی

جزاك الله خيرا

40 دقائق مضت, Shivan Rekany said:

اخوي جربها راح تشوف
هل راح يفتحها او راح يطبعها

مع تقدير

تحياتي

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

قمت بالتجربة وفعلا فتح معي الطباعة .. الف شكر ليك اخى الفاضل , ولكن لي سؤال اخير هل هذا الامر سيقوم بطابعة كافة صفحات التقرير ؟ ام اول صفحه فقط ؟

30 دقائق مضت, Shivan Rekany said:

اتفضل

DoCmd.OpenReport "nameforreport", acViewNormal
 بدل nameforreport ب اسم تقرير

تحياتي

اسف انا خبرتى قليله فى الاكسيس بس مش مفروض الي حضرتك كتبته دا لفتح التقرير ؟ 

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

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

برجاء الافادة فى طريقة عمل زر لطباعة التقرير فى اكسيس 2007

ولكم جزيل الشكر .

تم التعديل

الف شكر يا ابو حنين ربنا يجازيك خير يارب

شىء اخير معلش انا اسف 

عايز الغى شرط اكمال كافه البيانات 

يعنى ممكن المحامى يبقى جايب ال 10 عرايض بتوعه رسم واحد 

فبالتالى باقى الخانات ليس لها حاجة انى اكتب فيها 0 

فممكن نخلى شطر الاملاء يتوقف عند اول خانه للرسم  ؟

بمعنى اكتب :

اسم المحامى

10 عرائض

10 ضريبة

تصنيف الرسم يبقى عدد 10 * رسم 45 

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

وشكرا