يامن عبدالرحيم بدوى

السلام عليكم

اولا: ياريت تعمل الجدول اللى فى الملف َq2 صح وبالعنواين للاعمدة

ثانيا: ايه الفرق او العلاقة بين المستحق للمنحة وصاحب المعاش او ايه العلاقة بينهم

 

حاول تعدل الملفات وتبعتها تانى ..... وربنا يكرم ان شاء الله

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

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

ثانيا - مستحق المنحة هو احد المستفيدين من المعاش المورث عن طريق صاحب المعاش

Desktop.rar

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

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

الأخ الكريم يامن

اطلع على التوجيهات أولاً

http://www.officena.net/ib/index.php?showtopic=60147

خصوصاً التوجيه التاسع

تقبل تحياتي

اشكرك استاذي الفاضل على توجيهاتك

وانا بالفعل قمت باتباع التوجيهات

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

اشكرك على مجهودك مرة اخرى

أخي الفاضل

يرجى تغيير اسم الظهور للغة العربية

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

تقبل تحياتي

استاذ ياسر ابو خليل

تم فصل سؤالى فى موضوع مستقل فارجوا مساعدتى فى الاجابة

رابط الموضوع

http://www.officena.net/ib/index.php?showtopic=61747

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

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

1- بالبحث عن حالة معينة من الحالات التى تم حفظها فى الملف Q2 عند الضغط على زرار بحث وذلك عن طريق خانة الرقم التاميني او رقم الملف او رقم ت.مستحق المنحة
2- كما اريد ان اتمكن من حذف هذه الحالة ولكن بعد ادخال كلمة سر
3- كما اريد عند ترحيل حالة معينة الى الملف Q2 فلو وجد ان هناك حالة سابقة قد تم ادخالها متطابقة مع رقم ت.مستحق المنحة ورقم الملف ورقم تاميني لصاحب المعاش ان يعطيني رسالة انزار بان هذه الحالة سبق دخولها ويحدد فى هذه الرسالة ((اسم مستحق المنحة وتاريخ الصرف وقيمة المنحة وتاريخ وسبب ونسبة الاستحقاق وان ما اذا كانت منحة قطع كاملة ام منحة قطع فروق)) واذا كانت كل البيانات متطابقة فلا يتم اعادة ادخالها اما اذا كان هناك بند من البنود مختلف فيتم ادخالها .
4- واريد كل ذلك والملف Q2 مغلق كما هو اذا امكن
شكرا لتعبكم معنا وبارك الله فى علمكم

مرفق ملف

Desktop.rar

متابع

اريد من الفورم عند ظهورة ان يقوم

1- بالبحث عن حالة معينة من الحالات التى تم حفظها فى الملف Q2 عند الضغط على زرار بحث وذلك عن طريق خانة الرقم التاميني او رقم الملف او رقم ت.مستحق المنحة
2- كما اريد ان اتمكن من حذف هذه الحالة ولكن بعد ادخال كلمة سر
3- كما اريد عند ترحيل حالة معينة الى الملف Q2 فلو وجد ان هناك حالة سابقة قد تم ادخالها متطابقة مع رقم ت.مستحق المنحة ورقم الملف ورقم تاميني لصاحب المعاش ان يعطيني رسالة انزار بان هذه الحالة سبق دخولها ويحدد فى هذه الرسالة ((اسم مستحق المنحة وتاريخ الصرف وقيمة المنحة وتاريخ وسبب ونسبة الاستحقاق وان ما اذا كانت منحة قطع كاملة ام منحة قطع فروق)) واذا كانت كل البيانات متطابقة فلا يتم اعادة ادخالها اما اذا كان هناك بند من البنود مختلف فيتم ادخالها .
4- واريد كل ذلك والملف Q2 مغلق كما هو اذا امكن
شكرا لتعبكم معنا وبارك الله فى علمكم

Desktop.rar

الأخ الفاضل محمد عبد الجواد

أهلا ومرحباً بك في المنتدى ونورت بين إخوانك ، وإن شاء الله تظل معنا في أسرتنا بشكل دائم

إليك الملف التالي وإن شاء الله يفي بالغرض

متنساش تقوم بالإطلاع على هذا الرابط

http://www.officena.net/ib/index.php?s=81893d0e30f869c0818c6aac054fcbc8&showtopic=60147

 

الكود :

Private Sub CommandButton1_Click()
    Dim WBK As Workbook
    Dim I As Long
    Dim EmptyRow As Long
    Application.ScreenUpdating = False
        For I = 1 To 4
            If UserForm1.Controls("TextBox" & I).Text = "" Then MsgBox "Please Fill All The Fields": Exit Sub
        Next I
        
        Set WBK = Workbooks.Open(ThisWorkbook.Path & "\Q2.xlsm")
        EmptyRow = WorksheetFunction.CountA(WBK.Sheets("Sheet1").Range("A:A")) + 1
            
        For I = 1 To 4
            With WBK.Sheets("Sheet1")
                .Cells(EmptyRow, I).Value = UserForm1.Controls("TextBox" & I).Text
            End With
            UserForm1.Controls("TextBox" & I).Text = ""
        Next I
        
        WBK.Close SaveChanges:=True
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

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

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

وان اقوم بالغاء بيانات تم ادخالها ولكن عن طريق باس وورد

فهل هذا ممكن؟

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

اخى الكريم اذا كنت تستخدم Microsoft Office 2007 or 2010 or 2013 يمكنك عند الطباعة اختيار الطابعة 

 Microsoft XPS Document Writer

وحفط الملف بصيغة XPS ولكن لا يمكنك التعديل على هذا النوع من الملفات 

ويمكنك تحميلها وطبعها من جهازك بالمنزل 

اشكرك اخي الفاضل قدرت استخدم طريقة الحفظ دي فى كود

اشكرك من كل قلبي

واشكر باقي من قام بالرد علي

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

اخى الكريم اذا كنت تستخدم Microsoft Office 2007 or 2010 or 2013 يمكنك عند الطباعة اختيار الطابعة 

 Microsoft XPS Document Writer

وحفط الملف بصيغة XPS ولكن لا يمكنك التعديل على هذا النوع من الملفات 

ويمكنك تحميلها وطبعها من جهازك بالمنزل 

وهذه الصيغة هل يجب فتحها باوفيس 2010 فقط ام يمكن فتحها باوفيس 2003

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

اشكرك جدا

انا مستنى رد من افاضل الجروب

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

مثلما الموجود في الجوجل كروم والخاص بحفظ صفحة الويب بامتداد بي دي اف عند الطباعة

 

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

اشكرك خي الفاضل على ردك واهتمامك

وانا بالفعل استخدم برنامج قوى وامكانياته مشابهه لبرنامجك ولكن اعتقد انه اقوى منه وهو برنامج Snagit

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

اشكرك مرة اخرى

السلام عليكم

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

اولا يتم تسمية الملف من خلال الخليه M1 في ملف الاكسل

ثانيا سوف تجد الملف على سطح المكتب بنفس الاسم مع مراعاه عند فتح ملف الورد تغير صيغة الفتح الى MS-DOS

 

اتمنى ان يكون هذا هو المطلوب

 

اقبل تحياتي واحترامي

اشكرك جدا على محاولتك ولكن

1-اريد ان تظهر المدى المطلوب طباعته بنفس الشكل الذي يظهر به فى ملف الاكسيل حيث انى اريدة بديلا للطباعة

2-اريد ان عند نقل المدى الى ملف الوورد ان تظهر به الجمل المضافة فى راس وتزيل وليس المدى فقط كانه بالضبط تم طباعته على ورق ولكن بدلا من طباعته على ورق اقوم بطابعته على ملف وورد او صورة او بي دي اف

3-اريد توضيح الجزء فى الكود الذي يجعلنى احفظة على سطح المكتب مهما كان مسار سطح المكتب

اشكرك مرة اخرى على محاولتك الجميلة شكرا لك

اخي ان كنت تعمل علي اوفيس 2013 

فانت لن تحاج الي برامج او اكواد او اي شي 

فقط اتبع الاتي

من قائمه

File

Export

انا بستخدم اوفيس 2010

ثم انا عايز كود للبرنامج ده علشان ينفع يشتغل على اى اوفيس مع العلم ان البرنامج معمول باوفيس 2010 يعني انا عايز الكود يكون يشتغل على اوفيس 2007 او ما بعده

اريد طباعة صفحة بحيث ان يتم طباعتها بصيغة (( ورقة وورد ، بي دي اف ، كصورة )) (مثل ما يتم عملة فى برنامج Snagit) وليس على ورق خارجي على ان عند تحويلها او طباعتها يظهر بها راس وتزيل فى الوسط بعنوان اهلا وسهلا بكم فى عالم التطوير للتامين والوثائق

مرفق ملف

انا مش عايز احول الملف - انا اللى عاوزة عبارة صفحة او نطاق محدد فى صفحة عايز اطبعه على ورق ولكن المكان مفهوش طابعه فعايز يطلع بالشكل اللى انا عايز اطبعه على صفحة وورد او بي دي اف او صورة بحيث لما اروح البيت ابقي اطبعها براحتى

والمشكلة ان الصفحة دى فيها راس وتزيل

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

اخي في اضافة بتحتاج تسطبها وهي بتضاف في الاكسل تمكنك من تحويل الملفات

الاضافة اسمها Universal Document Converter

انا مش عايز احول الملف - انا اللى عاوزة عبارة صفحة او نطاق محدد فى صفحة عايز اطبعه على ورق ولكن المكان مفهوش طابعه فعايز يطلع بالشكل اللى انا عايز اطبعه على صفحة وورد او بي دي اف او صورة بحيث لما اروح البيت ابقي اطبعها براحتى

والمشكلة ان الصفحة دى فيها راس وتزيل

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

اريد طباعة صفحة بحيث ان يتم طباعتها بصيغة (( ورقة وورد ، بي دي اف ، كصورة )) (مثل ما يتم عملة فى برنامج Snagit) وليس على ورق خارجي على ان عند تحويلها او طباعتها يظهر بها راس وتزيل فى الوسط بعنوان اهلا وسهلا بكم فى عالم التطوير للتامين والوثائق

مرفق ملف

المطلوب.rar

اى كائنات يتم ا, تم عملها ب activ x لا يمكن تشغيلها ولا اعرف ما السبب او طريقة الحل؟
جربت حذف ملفات exd ولكن لم تحل
جربت اعادة تنزيل FM20.dll وبردة لم تحل

الرجاء المساعدة سريعا

بعد اذن الاستاذ ياسر 

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

   Sheets("æÑÞÉ1").PageSetup.RightHeader = Sheets("æÑÞÉ5").Range("d5").Value & vbCr & _
   Sheets("æÑÞÉ5").Range("d6").Value & vbCr & _
   Sheets("æÑÞÉ5").Range("d7").Value

قم بوضعه في حدث الورقة أو زر خاص

ربنا يعزك ويكرمك - شكرا على مجهوك

زادك الله علما وتعلما

ارفق ملفا من فضلك أخي الفاضل

المصنف1.rar

مطلوب طباعة صفحة بعنوان يكون عنوانها عبارة عن قيمة خلايا فى صفحة اخرى

بحيث ان اكتب الاسم وتاريخ الميلاد والرقم القومي فى صفحة مستقلة وليكون رقمها 5 على ان عند طباعة الصفحة 1 أو 2 أو 3 او اى ورقة او اى نطاق من الخلايا يكون عنوان الصفحة بعد طباعتها عبارة عن البيانات التى تم ادخالها فى الصفحة 5 (الاسم وتاريخ الميلاد والرقم القومي)

شكرا لكم

 

السلام عليكم

إخواني الأحباب في الصرح العملاق

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

سبق وأن شرحنا في دروس سابقة كيفية عمل قائمة منسدلة باستخدام خاصية Data Validation أو التحقق من الصحة ..

 

عيوب القائمة المنسدلة أنه لا يمكنك تغيير حجم الخط لهذه القائمة .. عدد الصفوف الظاهرة بها 8 فقط ، ولا يوجد بها خاصية الإكمال التلقائي ..

يعني من الآخر قائمة عقيمة في التعامل معها

 

مع الملف المرفق شرح وافي لكيفية التغلب على هذه العيوب بالتفصيل في ورقة العمل Help

أترككم مع الملف عله ينال إعجابكم

والسلام عليكم

 

الف شكر على هذا العمل الرائع

فجزاكم الله علية خيرا

ولكن

قمت بتجربة هذه الخاصية ووجدتها تعمل بكفائة كما وصفتها

ولكن قمت بتجربتها على Data Validation ولكن اكتب انا عناصر القائمة وليس ارجعها لخلايا فلم تعمل

فما هو الحل؟

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

فكيف اقوم بتفعيلها على المشكلتين؟

وهل ممكن تطبيق هذه الخاصية على فورم - اى بمربع قائمة داخل فورم؟

شكرا لكم

السلام عليكم

هي فكرة وددت مشاركتكم ايها ولاثبات انه يمكن تقوية حماية الاكسل ايضا

هذا مثال قمت بحمايته بطريقة الخاصة ارجو منكم محاولت كسر حمايته

الى ذلك الحين لنا كلام اخر

ملاحضة

لايوجد في اي لغة برمجة ما يسمى بالحماية الكاملة فالكمال لله ولاي قفل مفتاح

تحياتي

ياريت شرح الفكرة بالقصيل لانى محتاجها جدا جدا

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

http://www.mediafire.com/download/q85wx6dysar7qa2/30-1-2015.xlsm

هذا هو لينك تحميل الملف