نجوم المشاركات

بعد اذن اخي على هذه المعادلة تكتي في الحلية D11 وتسحب نزولاً =IF($E11<>"FP",MAX($D$10:D10)+1,"")

تفضل ادخال بيانات8465.xlsm

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

في المرفق لا يوجد أي شيء موضّح... مجرد نموذج لملف ليس فيه لا بيانات ولا النتيجة المرجوة...

اخي الكريم صالح نعم ملاحظتك في محلها .. جاري التصليح

وعليكم السلام ورحمة الله وبركاته.. أهلا وسهلا حياك الله .. أعتذر والله أعتذر جدا جدا التبس علي الأمر وزاغ بصري فرايت المشاركة باسم غريب والبرنامج الذي نزلته لأبي عارف .. وهو المطلوب .. فشكرا لك من الأعماق وشكرا لك على التعقيب .. وشكرا لغريب طرابلس على ما قدم وكلاكما عينان في رأس .. يا صفوة الأحباب والخلانِ عفواً إذا استعصى عليّ بياني الشعر ليس بمسعفٍ في ساعة هي فوق آي الحمد والشكران فاقبل اعتذار من أتاك معتذرا .. فجل من لا يسهو ولا يخطي

أخي الكريم يمكن عمل كود لتحريك الغير ظاهر امامك لكي يظهر لك في أول الصفحة Sub Movshps() Dim R As Range Set R = Range("C2:E10") With ActiveSheet.Shapes("Oval 1") .Top = R.Top .Left = R.Left End With End Sub لاحظ انني وضعت اسم الشيبس التي اريد تحريكها وهي هنا Oval 1 ويمكن ايضا ان تغير الاسم سواء زرار أو شيبس يعني ممكن تستبدلها ب Button 1 مثلا

السلام عليكم لست أدري إن كان ما تريده بالملف... * في العمود B أضفت معادلة لتعويض كل الفراغات بين الاختيارت بفراغ واحد فقط * في العمود C أضفت معادلة لتعويض كل من " ب)" و " ج)" و " د)" بـ "/" وتعويض "أ)" بفراغ.. * قمت بنسخ كل العمود C ولصقه كقيم في العمود D ثم تطبيق خاصية "تحويل" (Convert) من الاختيار "بيانات" (Data) واستعمال الفاصل "/" أرجو أن يكون المطلوب... بن علية حاجي تجميعات ورقي 1938 الفترة الاولى.xlsx

تصحيح رائع (غلطة مطبعية)

بارك الله فيك استاذى الكريم سليم معادلة رائعة ولكن لابد ان تكون هكذا لعمل الشرط =IF($E11="FP",MAX($D$10:D10)+1,"") بارك الله فيك

استاذنا الحبيب زادكم الله علما وجزاكم الخير كله

تفضل لك ما طلبت قائمة الحجز.xlsx

وعليكم السلام 3.xlsm

السلام عليكم ورحمة الله وبركاته بعد المعادلة المهندس / عبد السلام هذا لإثراء الموضوع لإدراج الصنف أيضا بمعادلة وأن لا يتعدى عدد ظهور الصنف بمقدار المراد توزيعه New Microsoft Excel Worksheet (10).xlsx

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

طالما انك لم تقم برفع الملف فيمكنك الإستعانة بهذه الفيديوهات فى مساعدتك فى عمل ما تريد: https://www.youtube.com/watch?v=NdDvTw8Ss2E https://www.youtube.com/watch?v=r8CbQJedFrs https://www.youtube.com/watch?v=MUlFr2gf_AY https://www.youtube.com/watch?v=syiELFC11Mg https://www.youtube.com/watch?v=ksXvX3Q5mvI https://www.youtube.com/watch?v=qale4rUrjm0 https://www.youtube.com/watch?v=n09zCNVu7jg

استخدم الكود التالى قبل الاستخدام روح ل page layout ومن theme تختار colors ثم customize color وعند accent 2 اختار اللون الاصفر وعند accent 3 اختار اللون الارجوانى وبعدين تستخدم الكود التالى وطبعا ممن تعدل فى الارقام اللى .001 و .04 وهكذا لحد ما توصل لطريقة دمج اللونين اللى عاوزهم وتعدل فى الارفام بما لا يزيد عن الواحد الصحيح ملحوظة انت عدل فى النسب المئوية زى ما انت عاوز لحد ما يكون شبه القديم .. مفيش كود هيخليلك الالوان زى ما هى لانك دامج لونين فى بعض دا اولا ثانيا لانك بتمسح الالوان دى فى الاول وعندك المثال بالشيت Sub Emad() For G = 4 To 10 If Cells(G, 15) < 30 Then If Cells(G, 9).Value > Range("G1").Value Then Cells(G, 2).Interior.Pattern = xlPatternNone Cells(G, 3).Interior.Pattern = xlPatternNone Cells(G, 9).Interior.Pattern = xlPatternNone MsgBox ("ÇáãæÙÝ : " & " " & Cells(G, 2) & " " & "¡ íäÊåí ÇáÅÔÊÑÇß ÈÊÇÑíÎ : " & " " & Cells(G, 9) & " " & "¡ æÈÇÞí ãä ÇáÃíÇã : " & Cells(G, 15) & " " & "íæã ") With Range(Cells(G, 2), Cells(G, 3)).Interior .Pattern = xlPatternRectangularGradient .Gradient.RectangleLeft = 0.01 .Gradient.RectangleRight = 0.04 .Gradient.RectangleTop = 0.02 .Gradient.RectangleBottom = 0.6 .Gradient.ColorStops.Clear End With With Range(Cells(G, 2), Cells(G, 3)).Interior.Gradient.ColorStops.Add(0) .ThemeColor = xlThemeColorAccent2 End With With Range(Cells(G, 2), Cells(G, 3)).Interior.Gradient.ColorStops.Add(1) .ThemeColor = xlThemeColorAccent3 End With With Cells(G, 9).Interior .Pattern = xlPatternRectangularGradient .Gradient.RectangleLeft = 0.01 .Gradient.RectangleRight = 0.04 .Gradient.RectangleTop = 0.02 .Gradient.RectangleBottom = 0.6 .Gradient.ColorStops.Clear End With With Cells(G, 9).Interior.Gradient.ColorStops.Add(0) .ThemeColor = xlThemeColorAccent3 End With With Cells(G, 9).Interior.Gradient.ColorStops.Add(1) .ThemeColor = xlThemeColorAccent2 End With End If End If Next End Sub Emad.xlsm

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

بعد اذن الاستاذ على اثراء للموضوع حل بطريقة اخرى فصل الاسم الاول عن الاسم الثانى.xls

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

نعم هناك برنامجين من ضمن العديد من البرامج يمكنك اختيار واحد منهما Passware Passware Kit Forensic.v13.5.8557.x32-BRD والثانى Advanced Office Password

قد يكون هذا صعبا ولكن يمكنك تجربة هذا الرابط https://www.ifcmarkets.net/market-data/forex-prices/usdtry

السلام عليكم تفضل صديقي توزيع الاسم.accdb

صديقي العزيز هذا هو المطلوب .. هنا عملت فقط 3 ازرار .. كل زر ياخذ رقم سجل معين فقط الكود هو acGoTo,1 ,"الاسئلة" , DoCmd.GoToRecord acDataForm يتغيير بعدد السجلات اختبار.rar صديقي العزيز لا تعتمد على هذه النسخة التي ارسلتها لاني قد قمت بتغيير بعض القيم لكي لا تقع في حرج مع تمنياتي لك بالتوفيق

جزاك الله خيرا استاذنا الكريم وأسأل الله لك ولمبرمجه التوفيق والسداد

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

الأخ الحبيب الغالي مختار .. مين اللي في بالك .. اللي في بالك ربنا يهنيه يا سيدي إليك الملف المرفق (بس متنساش لو عجبك الحل يختاره كأفضل إجابة) Random Word Generator.rar