أحمد صاحب

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

السلام عليكم ورحمه الله وبركاته ارجو تكرماً مساعدتي في تنسيق خليه برقمين عشريين مع فواصل كارقام خرائط قوقل مثال خريطة قوقل تظهر الموقع بعدد 16 رقم بالتنسيق التالي: 13.123456, 12.123456 ارغب بالمساعده في ايجاد طريقتين لتنسيق الخليه باستخدام VBA UserForm TextBox حاولت كثيرا وبحثت ولم اجد اجابة جربت هالطريقة وفشلت .Cells(RowIndex + 1, 3) = Format(Frm.GoogleMap.Value, "00.000000 00.000000") وغيرها من الطرق ولم تنجح او بتنسيق الخلية عن طريق التنسيق من نفس sheet الغريب لم اجد في مواقع النت من تحدث عنها .!!! اتمنى ان اجد الاجابه وشاكر مقدماً مساعدتي تحياتي

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

سليم حاصبيا ،أم عبد الله ، محمد الريفي الله يجزاكم بالخير ويكثر من امثالكم ويزيدكم من علمه شكرا لكم على المساعده واتمنى اقدر ارد معروفكم باذن الله تحياتي لكم وتقديري

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

لي عضيم الشرف مرورك بموضوعي استاد يحيى حسين وعلى ما اضن هذه المرة الاولى ولك جزيل الشكر على كلماتك الجميلة بالنسبة لسؤالك فهو نعم لن تعمل مع اجهزة 64 كل عام وانت بخير تقبل تخياتي وشكري هناك طريقة تستطيع ان تجعلها تعمل على اجهزة 64 وهي سهله جدا فقط كل ما في الامر أن تضيف كلمه PtrSafe و سوف اوضح بالمثال: تبحث عن : Public Declare Function تضيف الكلمة كالتالي: Public Declare PtrSafe Function Public Declare PtrSafe Function FWw Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare PtrSafe Function SWLg Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function DrMBar Lib "user32" Alias "DrawMenuBar" (ByVal hWnd As Long) As Long Public Declare PtrSafe Function SLWA Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare PtrSafe Function ReleaseCapture Lib "user32" () As Long وسيعمل باذن الله تحياتي

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

وعليكم السلام ورحمه الله وبركاته بدايةً اشكرك على اعطائي من وقتك نفع الله بعلمك واثابك عليه ... التعديلات رائعة جدا وحلت المشكلة بالكامل ولكن : التاريخ متقدم اربعه أيام ( انظر الصورة المرفقة ) وهي بناءا على تاريخ اليوم. ثانيا هل لنا ان نستغني عن ( نطاق التاريخ ) لأنني لا أرى فيه فائدة سوى انه يختصر عملية البحث .. بمعنى اريد ان تبدأ السنوات الهجرية من 1433 هجري فقط وصاعدا وهل بالإمكان أن السنة الهجرية تكتب بدل ان تكون بقائمة ؟؟؟ كل ما فعلته اخي الفاضل هو ما كنت ابحث عنه تماما ... الله لا يحرمك الاجر وتقبل تحياتي استاذي الفاضل

اخي الكريم حمادة فاضل مجهود تشكر عليه وعمل رائع لكن عند تجربتي الملف وجدت ان التاريخ فيه أخطاء وليس ثابت عند التنقل من سنه هجرية مثلا 1435 الى التي تليه ثم العودة للسنه 1435 تتغير الأيام بفارق كبير جرب اختيار أي سنه هجرية كــ 1430 ومن ثم انتقل الى 1435 .. سيكون هناك احتمالين : الأول ان ترتيب الأرقام للأيام لا يتغير ويظل نفس ترتيب السنه السابقة الاحتمال الثاني ان التاريخ يتغير ولكن يفرق عن التاريخ الفعلي ما يزيد عن العشرة أيام العمل جبار وبانتظارك

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

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

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

انتظر المساعده

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

على مجهوداته الرائعه يستاهل والف مبروك له ومبروك للمنتدى ولنا بوجوده بيننا

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

السلام عليكم ورحمه الله وبركاته المطلوب موجود بالملف المرفق ... وهو طباعه تقرير لعدد 14 شخص دفعه واحده بمقاس A4 بدون ان اختار شخص شخص لان عدد الاشخاص عندي يفوق 100 شخص وجزاكم الله عنا كل خير printing.rar

بارك الله فيك

تم تعديل الرد بالاعلى

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

اخي الفاضل طارق ـــ ما شاء الله عليك مبدع .. مبدع ... زادك الله علماً وكتب لك الاجر.. لكن فيه ملاحظه وهي اصلا لب الموضوع ... ما قمت به رائع جدا ولكنه يرحل جميع الصف مع بقاء نفس بيانات الصف كما هي مع تغيير ررقم العقد فقط وتاريخ بدايته وتاريخ نهايته ولكن تظل البيانات كالغياب والمراضية وعدد ايام الاجازات موجوده رغم ان الموظف بدا بعقد جديد.. اريد ان يجعلها اصفارا لان الموظف دخل بعقد جديد .... وبالنسبة للاستفسار عن رقم العقد هو بكل بساطه يمثل سنوات التعاقد .. بمعنى عندما يتعاقد الموظف مع الشركه لاول مره يصبح عقده الاول وعند الانتهاء ويجدد له يصبح عقده الثاني مع الشركه وهكذا.. ولو سمحت لي سوف اثقل عليك قليلا ... ومنها تزدادُ اجرا باذن الله ارغب في ان اضيف اوراق كل ورقة تمثل رقم العقد ... بمعنى ان الموظف محمد1 انتهي عقده الثاني وتم التعاقد معه من جديد لعقد ثالث .. يتم ترحيل جميع بيانات العقد الثاني الى الورقة المسماه ( العقد الثاني) وهكذا. ومجددا لك من كل الشكر والتقدير والعرفان ملاحظه ـ ياحبذا لو تكون على شكل فورم استطيع التعديل والاضافة والترحيل اذا كان لديك الوقت ... وسادعي لك بظهر الغيب والحمدلله رب العالمين

السلام عليكم ورحمه الله وبركاته اخواني الافاضل ،، هل اجد من يساعدني في ايجاد كود يرحل البيانات بالشروط التاليه : مثال بالاسفل : قي شيت البيانات : موظف بدايه عقده الاول بتاريخ 10/05/1433 ومدة العقد سنه عند انتهاء عقده بتاريخ 09/05/1434 يتم ترحيل كامل بياناته الى شيت يسمى عقود سابقة ويبقى الصف كما هو مع تغيير رقم العقد الى العقد الثاني وتاريخ جديد 10/05/1434 اما عند استقالة الموظف يتم ترحيل كامل الصف الى شيت الاستقالات مع حذف كامل الصف من شيت البيانات ويا حبذا لو يكون على شكل فورم الشكر مقدما لكم واتمنى المساهمه في هذا المنتدى العملاق لانني احرج عندما اطلب مساعده وانا لا اقدم شي لهذا المنتدى ... empmm.rar

أخي الفاضل بن علية حاجي عبقري ورائع بكل ماتعنية الكلمة من معنى ... حللت مشكلتي وفوق هذا سهلت علي المهمه بشكل لا يتصور .. أسئل الله أن بفرج كربك كم فرجت كربي جزيت عني كل خير والف شكر تحياتي لك ولهذا المنتدى القمة

اعتذر عن الخطا المقصود ليس ترحيل ... بل جلب معلومات من شيت الى شيت في نفس ملف الاكسل ( تم تعديل العنوان )

الله لايحرمك الجنه ... فلقد استفدت الكثير من شروحاتك