محمود أبوالدهب

وهذه نسخة اخرى لضبط التاريخ باليست وضبط تنسيق اليست وضبط الفورم كنت قد غفوت عنه كشوف-معاشات-استثنائية-نسخة.rar

السلام عليكم ورحمة الله وبركاته بالمرفق مطلوب امرين والاثنين اسهل من بعض ان شاء الله ولان الاول سهل ان شاء الله قلت بلاش اعمل موضوعين والنتيججة قريبة من بعض فهذا اتنى الا يزعج حضراتكم الاول : اريد كود لجعل بيانات اليست تكون من اليمسن لليسار كود خاص باليست وليس عن طريق جعل الفورم من اليمين لليسار تكون لليست فقط اعزكم الله ثانيا وده معرفش ممكن ولا لا بس تعود من حضراتكم بالمنتدى العزيز والغالى والخبراء الا يكون هناك صعب وهو : مثلا واضع ريسورس كما بالمرفق من a1 to g12 المطلوب كود لجعل البيانات تظهر على اليست بدون خلايا فارغه او اصفار ويكون المرجع في الامر احد الصفوف لو به خلية بها 0 او خليه بها "" لا يظهر الصف كله باليست واشكركم على سعت صدركم وجعلكم الله عوننا لك محتاج ورقة عمل Microsoft Excel جديد.rar

تفضل معلملى ملف للعل عليه ربط ليبل بخلية.rar

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

تفضل اخى ومعلمى ياسر خليل من خلال رابط اليبل لا يتغر ولكن من خلال ليست يتغير الادخال طبقا لتغير قيمة الخليه ف a1 ناتج مجموع خليتين مع فتح الفورم تظهر النتيجه مع تغير اى ناتج لا تتغير وتظل ثابته اما في حالة الاضافة باليد تتغير طبقا للكود السابق ارفاقة من سيادتكم هل لان الامر يتعلق بالكتابة وليس معادلة رقمية ربط ليبل بخلية.rar واسف على الازعاج

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

تفضل زمليلي كريم قد تم تنفيذ طلبك عن طريق انشاء شيت يتم فيه ترحيل كل البيانات ومن خلاله يتم البحث كما بالمرفق اتمنى انا يتنال اعجابك ‏‏كشوف معاشات استثنائية - نسخة.rar

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

نعم استاذى الدمج كان سبب الخطأ واصبح الكود بعدهاا يعمل جيدا والمدمج والتسطير والمسافات كان سببها انى كنت ارجرب اكثر من كود سابق وكان هذ سبب الخطا وبعدها فقد قمت بحذف جميع النطاقات القديمة والغاء الدمج وعمل بعدها الكود جيدا اشكرك شكرا جزيلا للمرةالمليون وعليه فتح الامر لى لاستفسار جديد الا وهو كيف يقوم الكو بتسطير النطاقات التى بها بيانات فقط عن نفسي اتبع تلك الاكواد وهى تضبط عرض العمود وحجم الخط ووإن كان blod ام لا وعرض خط الجدول وهى lrow = was.Range("a" & Rows.Count).End(xlUp).Row .Range("A1:e" & lrow + 1).Borders.Weight = 3 .Columns("a:a").ColumnWidth = 15: was.Columns("b:b").ColumnWidth = 25 .Cells.Font.Size = 12: was.Cells.Font.Bold = True هل اظل اعمل بها يوجد طريقة افضل وسؤال اخر واسف على الاطال وهو مهم بالنسبة لهذا السطر من الكود الذى كنت لاغيت قد قمت بالتعديل عليه ليضع اسم الشيت بالخلية d وهو يعمل ولكن يضعهم وبه خطأ في الاضافة اى ما العمل لضبط وضع اسم الشيت بجانب بياناته فقط وقد لاحظت اه برحل اسم الشيت " معاشات استثنائية " رغم انى لاغيه بالكود الاعلى منه اى المفروض لا يظهر نهائيا ولكن اذا غير مكان او ترتيب الورق يظهر الكود اختلاف بمكان ترحيل اسم الشيت والكود بعد التعديل هو Sheets("INDEX").Range("A2:e" & Cells(Rows.Count, 1).End(xlUp).Row + 4).ClearContents Dim ws As Worksheet, sh As Worksheet, lrow As Long For Each ws In ThisWorkbook.Worksheets Set sh = Sheets("index") sh.Activate If ws.Name <> "INDEX" And ws.Name <> "معاشات استثنائية" Then ws.Range("a12:d36").Copy With Sheets("INDEX") .Range("a" & .Cells(Rows.Count, 4).End(xlUp).Row + 1).PasteSpecial xlPasteValues .Range("e" & .Cells(Rows.Count, 5).End(xlUp).Row + 1 & ":e" & .Cells(Rows.Count, 1).End(xlUp).Row) = ws.Name End With End If Next ws lrow = sh.Range("a" & Rows.Count).End(xlUp).Row sh.Range("A1:e" & lrow + 1).Borders.Weight = 3 sh.Columns("a:a").ColumnWidth = 12: sh.Columns("b:b").ColumnWidth = 35 sh.Columns("c:c").ColumnWidth = 20: sh.Columns("d:d").ColumnWidth = 20 sh.Columns("e:e").ColumnWidth = 20 sh.Cells.Font.Size = 12: sh.Cells.Font.Bold = True End Sub ارجوا الافادة ومرفق طية نسخة من ملف العمل بعد التعديل ‏‏كشوف معاشات استثنائية - نسخة.rar

تفضل استاذى والفورم مربوط بزر في شيت index ‏‏كشوف معاشات استثنائية - نسخة.rar

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

اشكرك استاذنا ياسر ولكن قمت بناء على هذا الفدو بعمل هذا الكود وايضا استعنت منه على كود قديم لسيادتكم والكود المصنوع هو Sheets("INDEX").Range("A12:d" & Cells(Rows.Count, 1).End(xlUp).Row + 4).ClearContents Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "INDEX" And ws.Name <> "معاشات استثنائية" Then ws.Range("a12:d36").Copy With Sheets("INDEX") .Range("a" & .Cells(Rows.Count, 4).End(xlUp).Row + 1).PasteSpecial xlPasteValues ' هذا الجزء من الكود اوقفت لانى لا اعلم ما الخطأ فيه وما عملة فاحببت ان اسال صانعه '.Range("A" & .Cells(Rows.Count, 4).End(xlUp).Row + 1 & ":A" & .Cells(Rows.Count, 4).End(xlUp).Row) = Sheets(Item).Name End With End If Next ws ولكن الكود يعطينى خطا لانى لانى مخطاء فيه فارجوا ان اعرف من سيادتكم ما الخطأ وما حله ختى لا اقع فيه ثانيتا مهمت الكود انه يعمل كوبي للخلايا من a12:d36 ويضعهم في شيت index ويعيد الكره في جميع الشيات مع العلم انه يضع جميع البيانات اسفل بعضها لانى اريد تفعيله عن طريق chexbox حتى بعدها يسمح لى ببالبحث عن طريق listbox بجميع البيانات الموجوده بملف العمل باكمله اتمنى الا اكون قد اطلة على سيادتكم

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

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

اخى محمد اشكرك على ردكم الكريم الفكرة ليست عندى فانا عندى جميع اصدارات الاوفس النسختين 64 و 32 بت ولكنى صمت برنامج وعند نشرة سيقوم المستخدمن باستخدامم اصدارات مختلفة وعلليه كنت افكر بتجربته بجميع الاصدارات واعرف الاخطاء ولله الحمد حللت معظمها واشكرم على النصيحة الغالية استاذ محمد عبدالسلام اسف استاذ محمد ظننت الرد لى ولكنه حل عملى لما يعرضه الاخ deebsagheer لمشكلتة اشكرا جزيلا مرة اخرى

مثال اخر لكود لنظام 32 بت وتعديله لنظام 64 بت راجع الفروق في الكلمات وتعلم وهذا كود بى if ليعمل على النظاتمين 32 و 64 #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long #End If

قم بفتح موضوع جديد بالمنتدى واكتب فيه الامر وضع فيه الملف او جزء منه المصحوب بالكود وسيقوم الخبراء بمساعدتك كما ساعدونى ولكن كمثال بسيط تعلمته من هنا ولم اطبقة بعد مثلا هذا الكود Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long نقوم بتعديلة الى Private Declare ptrsafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Longptr, ByVal nIndex As Longptr) As Long او هذا التعديل الى يظبط معاك Private Declare ptrsafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Longlong, ByVal nIndex As Longlong) As longLong المهم ان ممكن يكون لها اكتر من تعديل واذاا لم تكن خبير زى حاول وجرب لحد ما تعرف لان المحاولة هى الى بتعلم مش مجرد الحصول على الرد , وبردو لما توصل لدرجة عدم المعرفة حاول تسأل والاهم ترفق مع سؤال ملف للعمل عليه راجع تلك المواقع https://msdn.microsoft.com/en-us/library/ee691831(office.14).aspx http://www.jkp-ads.com/articles/apideclarations.asp https://msdn.microsoft.com/VBA/Language-Reference-VBA/articles/64-bit-visual-basic-for-applications-overview وبتلك المواقع ستجد ان شاء الله حل لكفية ربط الكودين بحيث ان الملف يعمل على النظامين 32 و 64 عن طريق دالة IF " ملحوظة مجربتش الامر بعد " اتمنى تصل للحل

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

تختلف حل المشكلة على حسب نوع الخطأ بأنمكانك ارفاق الملف الى به الخطأ مع ذكر ما هو اتلخطأ وساحاول معك حل هذا الخطأ .

ثم قم باختيار الصورة المراد وضعها

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

تفضل بامكانك الترحيل حتى لو كان هناك خانات فارغة ولكنىى لا افهم ما الماك "ارجوا التوضيح" نموذج.rar

للمتابعة اعزكم الله

مش مفهوم الامر ايضا لان لو سعر الوحده كما ذكرت 1.05 فان عدد 40 وحد تكون 40*1.05= 42 وايضا على اى اساس يحسب الربح فكيف يكون 50 نرجوا توضيح الامر اكثر وشرحة جيدا حتى نعطيط الافادة من الى فهمته ان 40 وحده سعرهم 42 وانته بتأخذ 50 فالمكسب 8 ومع ذلك يجب ايضاح على اى اساس تحدد القيمة وعلى اى اساس تحدد الربح بالنسبة لك الامر مفهوم اما نحن لا نعرف عن علك شي فكيف نصمم برنامج ليحسب لك الامر ان كنا لا نعرف كيف تحسب يدوى

اخطاء في البرنامج مع تغير نوع الاوفس من 2007 حتى 2016 والنسخة 32 بت و 64 بت مصمم البرنامج على اوفس 2016 النسخة 64 بت ولكن تواجهنى بعض المشكلاات عند فتحة من اصدرات 2007 و 2010 النسخة 32 بت و 64 بت فعند الفتح من النسخة 2007 اصدار 232 بت ظهرت لى تلك الاخطاء وايضا يوجد بعض الاكواد لا تعمل وهذا هو ال farmat الخاص به وعند الفتح من اوفس 2010 يظر هذا الخطأ ومع انى حفظت البرنامج بعد الخطا وازالتة مع كل مرة افتحه يظهر ثانيتا والاغرب من كل هذا واضع حماية لمكرو وحماية لصفحات العمل ولكن بعد تلك الرسائل والفتح على اى وضع اجد ان حماية ورقات العمل مازالت موجوده ولكنها بدون باص ورد بمعنى لو واضع باس مثلا 123 عند فتح الحمايية يفتحها بدون اى باصات وايضا كما بالصور السابقة يوجد اخطاء بالتعليقات وتحذف والامر كذالك من القائمة اليست بوكس لو واضع ليست بخليه لا تظهر ولن عند فتح البرنامج من نسخة اعلى بعد حفظ الوضع على النسخة القيمة اليست تعود وتظهر انما التعليقات لا تعود وتكون حذفت بشكل نهائي بالبداية كنت اظن الامر مقتصر على اجهزت السيستم بالعمل لانها اجهزة عرض وليس جهاز كام اى جهاز سيرفر كل ذاكرته هى 1 جيجا ويتم فتح السيستم من السيرفر الرئيسي بالقاهرة ولكن عند فتح البرنامج اليوم من الاب وكنت قد نززلت له نسخة قديمة عندى اوفس 2007 الاصدار 32 بت ظهر الامر معي عندها توقفت لانى اريد حماية قصوة للبرناج حتى لا يتم سرقته فهل من حل اعزكم الله وشكرا جزيلا لكم