Ali Mohamed Ali

تفضل index3.xlsm

اهلا بك اخى الكريم بالمنتدى تفضل 2.xlsx

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

تفضل لك ما طلبت ولكن لابد ان تلاحظ ان اعمدة مهمة العمل والبرنامج الأكاديمى والملتقى ولقاء خبير ليس بهم معادلات لأن هذه الأعمدة لا تحتوى على عمود العنوان بارك الله فيك تجربة2.xlsx

وعليكم السلام تفضل لك ما طلبت ثانية.rar اولى - ت.rar

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

.

وعليكم السلام اهلا بك اخى الكريم فى المنتدى نظرا لأنك لم ترفع ملف بالمطلوب فعليك بفتح مديول جديد ووضع هذا الكود به وعمل زر بصفحة الإكسيل لربطه بالكود Sub FORM() Userform1.Show End Sub

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

بارك الله فيك استاذ سليم معادلة ممتازة ولكن الأستاذ صالح اذا كان محتاج ان يكون الى اخر تاريخ بالعمود فيمكن استخدام المعادلة بهذه الطريقة =IF( A2="",""," مديونية من تاريخ " & TEXT(A2,"dd/mm/yyyy") & " حتى تاريخ "&TEXT(MAX($A$2:$A$900),"dd/mm/yyyy"))

اخى الكريم شوف بنفسك بارك الله فيك

وعليكم السلام -اخى الكريم كان عليك من البداية عمل بحث فى المنتدى عن المطلوب قبل رفع المشاركة فهناك عشرات الموضوعات المشابهة لموضوعك مثل : https://www.officena.net/ib/topic/87863-أريد-عمل-نموذج-مثل-هذه-الصفحة-تلوين-الصف-والعمود/?tab=comments#comment-555254 https://www.officena.net/ib/topic/87858-أريد-عمل-مثل-هذه-الصفحة-تلوين-الصف-والعمود/?tab=comments#comment-555260 https://www.officena.net/ib/topic/57813-تحديد-صف-وعمود-الخلية-النشطة-تلوين-العمود-والصف-باستخدام-التنسيق-الشرطي/?tab=comments#comment-367955 https://www.officena.net/ib/topic/80808-تنسيق-شرطى-مختلف؟/?tab=comments#comment-516259 وهذا رابط اخر لتحديد الخلية النشطة فقط https://www.officena.net/ib/topic/41107-تمت-الاجابة-تلوين-الخلية-النشطة-فقط/?tab=comments#comment-231840

تفضل ولكن ظهور مثل هذه الرسائل وذلك لإحتواء الملفات على فيروس فهذا منطقى لظهور هذه الرسالة فالطبيعى ان تفتح الملفات مباشرة بمجرد الضغط على الهايبر بارك الله فيك index2.xlsm

بارك الله فيك استاذى الكريم بن علية وهذه معادلة اخرى لإثراء الموضوع bachiri401.xlsx

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

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

تفضل تجربة.xlsx

وعليكم السلام تفضل-يمكنك تجربة هذه الأكواد طالما انك لم ترفع ملف Private Sub UserForm_Initialize() TextBox1.Text = "" End Sub Private Sub CommandButton1_Click() TextBox1.Text = "Sid" MsgBox "Re-Initialzing the Userform" UserForm_Initialize End Sub Private Sub UserForm_Initialize() ChartNum = 1 UpdateChart_OverallOEE UpdateChart_OverallUnits UpdateChart_OverallWeights End Sub Private Sub UpdateChart_OverallOEE() Set CurrentChart = Sheets("Chart_OverallOEE").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 710 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallOEE.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallOEE.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallUnits() Set CurrentChart = Sheets("Chart_OverallUnits").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallUnits.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallUnits.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallWeights() Set CurrentChart = Sheets("Chart_OverallWeights").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 175 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallWeights.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallWeights.Picture = LoadPicture(Fname) End Sub

تفضل index2.xlsm

وعليكم السلام كان عليك من البداية استخدام خاصية البحث فى المنتدى تفضل https://www.officena.net/ib/topic/87818-استفسار-عن-طريقة-اضافة-اكثر-من-مستخدم/?tab=comments#comment-555050

تفضل دالة تاريخ.xlsx

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

عليك برفع ملف وشرح المطلوب عليه بالتفصيل

وعليكم السلام-لاحظ الصور هذه اسهل طريقة

أحسنت استاذ سليم بارك الله فيك ودائما لنا الفخر من التعلم من حضرتك وم اساتذتنا الكبار