بوحسين

السلام عليكم

شهر مبارك على الجميع

ممكن امثلة على الترقيم التلقائي في الاستعلام

عليكم السلام

اعتذر عن التأخر في الرد 

جزاك الله خير تمت التجربة كل شي على مايرام

السلام عليكم 

في الملف المرفق ادراج صورة الموظف هل ممكن تعديل

الكود ليأخذ الصورة من المجلد  Picture  بحيث عند نقل

الملف إلى جهاز ثاني يمكن استعراض الصور

صورة الموظف.7z

ماشاء الله 

تمام  الآن اخ شوقي بارك الله فيك

لما فتحت ملف الاكسل طلعت لي هذه الرسالة 

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

تشكر اخي العيدروس على المرور والملاحظة 

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

السلام عليكم

ممكن التكرم بحل هذه المشكلة في دالة IF

انظر المرفق

المحصلة الشهرية.xlsx

وفيت وكفيت اخي جعفر 

بصراحة الأمور الآن اصبحت تمام التمام 

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

والشكر موصول للاخ ابا جودي على 

اثرائه للموضوع 

ما شاء الله 

مظبوط تمام 

ولكن باقي ملاحظة بسيط اسمح لي 

وهي ان يفتح ملف بي دي اف من صفحة معينة

اي مثلا لما يفتح يكون على الصفحة رقم 7

مثل ما هو في المرفق الاول

تقبل تحياتي 

عندما حاولت تطبيق ذلك على فورم

ward Form1

طلعت هذه الرسالة

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

عليكم السلام الاخ جفر 

المطلوب بالضبط زي ما ذكرت 

ولكن كيف نطبق الكود على الملف 

في ٤‏/٤‏/٢٠١٩ at 21:53, محمد ابوعبد الله said:

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

لانك تحتاج ملفات

acrord32.dll

acroiehelper.dll

acropdf.dll

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

C:\Windows\System32

تحياتي

اولا اعتذر على التأخر في الرد وذلك لانشغالي في الفترة الماضية

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

بالنسبة للملفات قمت بتحميلها ووضعها في المكان المحدد ولكن للاسف ما في فائدة 

في ٥‏/٤‏/٢٠١٩ at 17:16, ابو ياسين المشولي said:

Dim StrFileParh As String
    'تحديد مسار الملف
    StrFileParh = CurrentProject.Path & "\booksindex\"
    With Me.List1
        ' فتح الملف بعد أخذ اسمه من قائمة التحرير والسرد
        Me.AcroPDF1.Object.LoadFile (StrFileParh & Trim(Str(.Column(0))) & ".PDF")
        ' الانتقال إلى الصفحة المطلوبة
        lngPageNo = CLng(Mid(.Column(2), 1, 3))
        Me.AcroPDF1.setCurrentPage (lngPageNo)
    End With

 

الاخ ابو ياسين المشولي هذا الكود نفس الكود الذي في المرفق 

ممكن توضح لاي كيف يمكن الاستفادة منه 

up

للرفع 

السلام عليكم 

عندي ملف يعرض ملفات pdfاريد عمل نسخة منه 

يعطي رسالة بعدم وجود الكائن 

اراج كائن.rar

في ٨‏/٥‏/٢٠١٨ at 21:38, سليم حاصبيا said:

هذه المعادلة ( Ctrl+Shift+Enter)

تحسب لك كل شيء (بدون الخلايا الفارغة)

=SUM(IF(FREQUENCY(IF($B$4:$B$52<>"",MATCH($B$4:$B$52,$B$4:$B$52,0)),ROW($B$4:$B$52)-ROW($B$4)+1),1))

 

كل شي على ما يرام 

لم اخذ بالي من  Ctrl+Shift+Enter

بعدها اصبحت المعادلة عالي الغال 

تسلم اخي سليم على تجاوبك 

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

اظن ان المعادلة سليمة

لكن ما ادري اش الخلال 

مرفق صور لو سمحت طبق المعادلة على 

الشيت اعلاه 

احسنت المعادلة اعطت المطلوب

ولكن اذا كان ما في الخلية احرف مايضبط

وان كانت احرف وارقام يحسب الارقام 

فهل يمكن التعديل لتقبل الملاحظات اعلاه 

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

السلام عليكم 

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

انظر المرفق 

عدد الارقام المختلفة.xlsx

للرفع

هل الموضوع غير واضح 

والا المسألة معقدة 

؟؟؟؟

للرفع 

السلام عليكم 

في الملف المرفق هل يمكن توزيع كلفة وليمة على عدد الداعيين

حيث ان هناك اختلاف في عدد المدعويين ممكن تشاهد الملف لمعرفة المطلوب 

وليمة.xlsx

احسنت اخي 

لكن اذا زاد عدد الحقول الى ستة مثلا 

فكيف بتكون الدالة