ميدو63

اعتقد انك تبحث عن كتابة الارقام بالحروف (اى تفيط الارقام ) يوجد بالمنتدى العديد منها... ممكن تتابع الموضوعات التالية:- https://www.officena.net/ib/search/?q=التفقيط&quick=1

استاذنا الفاضل تحية طيبة وبعد أولا:- الكود جميل ... اشكرك ثانيا:- يتم تكرار ترحيل نفس البيانات عند التوقوف مرة اخرى على شيت Data لايتم النقل لشيت الوارد ممكن التصحيح؟ .... فضلا وليس امرا شكرا مرة أخرى

اشكرك استاذى الفاضل واسف على التاخير فى متابعة الموضوع والرد..

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

ألاستاذ/ ابو احمد اشكرك على الشيت

السادة ممكن شيت اكسيل للتطبيق ... شكرا

السلام عليكم ولى طلب ( كتبة من قبل بالموضوع( ان امكن هل يمكن ان يتم اضافة سطور بالكود لابدال المعادلات بالقيم (اى دون ان تظهر المعادلات عند الوقف على الخلايا... شكرا لكم جميعا

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

الاخ الفاضل هذا الكود وجدتة ممكن تجربة وتفدنا اذا كان يلبى الغرض ام لا Sub UnlockVBAPassword() Dim VBProj As Object Dim VBComp As Object Dim CodeMod As Object Dim FileName As String ' تحديد اسم الملف FileName = ThisWorkbook.FullName ' فتح محرر الأكواد Set VBProj = ThisWorkbook.VBProject ' إلغاء قفل محرر الأكواد بإدخال كلمة المرور الصحيحة VBProj.VBE.CommandBars("Menu Bar").Controls("Tools").Controls("VBAProject Properties...").Execute ' حذف جميع الموديولات For Each VBComp In VBProj.VBComponents If VBComp.Type = 1 Then VBProj.VBComponents.Remove VBComp End If Next VBComp ' حفظ وإغلاق الملف ThisWorkbook.Save ThisWorkbook.Close ' إعادة فتح الملف بدون كلمة مرور Workbooks.Open FileName:=FileName, Password:="" End Sub يرجى ملاحظة أن استخدام هذا الكود يعتبر اختراقًا لحماية ملف VBA وقد يكون غير قانوني في بعض الحالات.

ينفع بس اى رقم يزيد فية الرقم عن (50) يتم تقريب الرقم لاعلى 100 مثلا 1080 التقريب الصحيح هو 1100 وليس 1000 لان 80 اكبر من 50 (فسوف يحتاج الامر الى التعديل رقم 100 فى المعادلة الى رقم 1000 يدويا وهذا ليس مطلوب) اما اذا كان الرقم اقل من 1050 مثلا 1046 فيتم التقريب الى 1000 وشكرا للاستاذ / محمد صالح

يمكن تنفيذ ماكرو بمجرد انتقال المؤشر من خلية إلى أخرى في ورقة Excel باستخدام حدث تغيير الخلية (Worksheet_SelectionChange) والماكرو التالية: 1. افتح ورقة Excel التي ترغب في تنفيذ الماكرو فيها. 2. انقر بزر الماوس الأيمن على علامة التبويب للورقة التي ترغب في تنفيذ الماكرو فيها وحدد "عرض الشفرة" (View Code). 3. ستظهر نافذة "Microsoft Visual Basic for Applications" مع وحدة كائن الورقة المحددة. 4. في الجزء العلوي من النافذة، انقر فوق قائمة القوالب المنسدلة وحدد "Worksheet" ثم اختر "SelectionChange". 5. ستظهر دالة جديدة في وحدة الورقة المحددة. 6. ضمن الدالة، قم بكتابة رمز الماكرو الذي ترغب في تنفيذه عند تغيير تحديد الخلية. مثال: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' قم بكتابة رمز الماكرو الذي ترغب في تنفيذه هنا ' مثال: MsgBox "تم تحديد خلية جديدة" End Sub 7. بعد كتابة رمز الماكرو، احفظ التغييرات وأغلق نافذة "Microsoft Visual Basic for Applications". 8. عند الآن، سيتم تنفيذ الماكرو عند تغيير تحديد الخلية في الورقة المحددة.

اتبع الخطوات التالية: File - Option - Advanced - When calculating this workbook - set precision as displayed - OK

مدين أو دائن تعنى بالدارج مدين = عليه (على الشخص او على الحساب المراد التسجيل علية او على الطرف الاخر) دائن= له (مستحق لصالح الشخص او الحساب المراد التسجيل له او لصالح الطرف الاخر)

yy - mm - dd

اعتقد انه يجب أعطاء بضاعة رصيد أول المدة كود معين ومشتريات كل فترة كود معين حتى ولو كانت نفس الصنف ثم أعطاء أو تسجيل المنصرف أو المباع بالكود الخاص به عند الشراء حتى تسطيع تمييز المشتريات والمبيعات من كل فترة وبالتالي ننتقل لمرحلة تحليل المخزون من أرصدة كل فترة ليشكل التقرير المطلوب وهو (تحليل أرصدة المخزون ومعرفة من أي الفترات) او يتم تعديل جدولك لتنفيذ الاقتراح بالرد التالى من الزميل Abdullah Hamdy Taha

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

السادة الأفاضل تحية طيبة وبعد رجاء المساعدة فى تعديل كود VBA (من احد الزملاء) لتلوين الصف والعمود للخلية النشطة الموجود فى شيت رقم 1 وجعله يعمل على أي شيت النشط (أي شيت فى الملف) بنفس طريقة عملة على شيت رقم 1 شكرا Test.xlsm

وممكن فى خلية فارغة نستخدم تلك المعادلة ونشير للخلية التي بها الرقم أو الكلمات او الجمل المراد تنظيفها - مكان الــــ B3 ونسحب المعادلة لأسفل CLEAN(TRIM(B3))=

أخي الفاضل الملف عندي يعمل جيدا أسف لا اعلم ما هو الخطأ

الزميل الفاضل مرفق الاكسيل.فرز مساحات.xlsm

الأستاذ الفاضل lionheart كود جميل وأشكرك عليع مع رجاء توضيح أماكن التعديل في الكود - في حال اردن أن نزيد عدد اعمده التوزيع عن 5 اعمده تحياتي

برافو استاذنا

المعادلة السابقة عند تساوى الوقت معا ولكن عندما يكون التاريخ والوقت يساوى للتاريخ والوقت أيضا يتم استخدام المعادلة التالية =IF(AND(B1=B2,C1=C2),MAX(D1:D2),"")

اخى الفاضل ضع هذة المعادلة فى الخلية E2 ثم اسحبها الى اخر صف به بياناتك =IF(C2=C3,MAX(D2:D3),"") =IF(C2=C3,MAX(D2:D3),"")

الأستاذ الفاضل/ حسونه حسين أشكرك على ردك عفوا أنا تعاملت مع هذا منذ سنوات ولكن لم أتذكرها (وإلا لماذا تم وضعه من 1 إلى 9) على انه (رقم رقابي) فكيف يخص السجل المدني في حين يكون بمصر اكثر من 9 سجل مدني أو اكثر من 9 محافظات .... ألخ ويبدو انه الموضوع سيكون صعب التوصل له مرة اخرى أشكرك مرة اخزي ....