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

جربهدا نشط اي خلي عي العمود c او h Sub test1() If Not Intersect(Columns(3), ActiveCell) Is Nothing Then If ActiveCell = "" Then Exit Sub ActiveCell.Offset(, 1) = Val(ActiveCell + 1) End If End Sub Sub test2() If Not Intersect(Columns(8), ActiveCell) Is Nothing Then If ActiveCell = "" Then Exit Sub ActiveCell.Offset(, 1) = Val(ActiveCell) End If End Sub كود ترحيل قيمة أي خلية نشطة الى خلية مجاورة بزيادة واحد.xlsm

السلام عليكم ورحمة الله وبركاته إخوتي الكرام أحببت أن أطلعكم على التغييرات التي أجريتها على الملف كالآتي: تم إضافة قائمة منسدلة للتبديل بين العملتين حيث يتم التبديل على التفقيط و المقبوضات والمدفوعات والرصيد حسب سعر صرف العملة الرديفة (USD) فإن لم يسجل سعر صرف لا تسجل أي قيمة ضمن ما ذكرت سابقاً . تم إضافة إشارة صح أو خطأ تظهر عندما تسجل البيانات في الصف الأول من الجدول أو ما يليه وذلك احتجت له بعد إخفاء رؤوس الصفوف والأعمدة وشريط الصيغة وتجميد الجزء العلوي من الورقة. تم إضافة صف لإجراء حساب لقيمة المبلغ الذي يتم دفعه بشكل يدوي في الجانب الأيمن ، وبشكل تلقائي في الجانب الأيسر من الصف مع إمكانية معرفة المتبقي من المبلغ بوضع المؤشر عليه ضمن ضوابط محددة لكلتا الطريقتين حيث قمت باستخدام قواعد التحقق من الصحة بوضع سقف محدد لكل فئة سيتم الاختيار منها بما لا يتجاوز المبلغ الموجود من هذه الفئة ... اما عن طريقة إيجاد القيمة التلقائية لمبلغ تسجله سيأخذ القيمة التي تساوي قيمة المبلغ الموجود أو أقل منها حسب الفئة المعنية وقد وضعت خانات تحقق لثلاث فئات إن أردت الاحتفاظ بها أو بقسم منها فإن كانت خانة التحقق True ستأخذ الحاجة من المبلغ حسب ترتيب الفئات تنازلياً من أعلى الفئات فما دون وإن كانت False فلا تأخذ منها شيئاً بل تلتفت إلى الفئات الأدنى منها ...فإن أردت دفع قيمة ما منها فقد وضعت في صف مقابل كل خانة المبلغ المراد سحبه من هذه الفئة فيحتسب ثم الفئة الأدنى فالأدنى. تم وضع مجال لرزم الفئات حين تبلغ المائة أو أكثر حسب عدد المئات المحصلة في كل فئة منها وذلك لوضعها ضمن رزم تسهل العد (اليدوي). يمكنك إخفاء أو إظهار الصف الذي تحسب عليه المبلغ المطلوب بواسطة زري الإخفاء أو الإظهار لهذا الصف. تم وضع ارتباط تشعبي أسميته Report لورقة تظهر فيها نتيجة حساب آلي أو يدوي للمبلغ المراد دفعه كما تم وضع قائمة منسدلة للاختيار بين الوضعين.

اعرض الملف واردات وصرفيات حسب الفئة النقدية إن الحمد لله نحمده ونستعينه ونسترشده ونعوذ به من شرور أنفسنا وسيئات أعمالنا، ونصلي ونسلم على حبيبنا وطبيب قلوبنا محمّد صلى الله عليه وسلم الذي بعثه الله تعالى بالهدى ودين الحق ليظهره على الدين كله ... أما بعد السلام عليكم وررحمة الله وبركاته إخوتي أحبتي الكرام: أعرض لكم بريمجاً صغيراً فكرت به لحاجتي إليه في مجال عملي أحببت أن أطلعكم عليه عسى أن يكتب الله تعالى لي به القبول ....آمين اعتمدت في إعداده على حساب الفئات لعملتين وهنا حسب العملة في لبنان والعملة الرديفة الدولار ...استخدمت بذلك الدالة SUMPRODUCT التي تسهل عملية جمع نطاق معين بآخر مماثل وفق العملة الأولى حسب سعر صرف العملة الثانية. استخدمت شرط أن يكون المبلغ المصروف أقل أو يساوي المبلغ الموجود من كل فئة على حده (قواعد التحقق من الصحة) ... كان مناسباً عندما كان الحساب التلقائي يدوياً ...أما عندما حولته تلقائي عدلت عنه إلى (التنسيق الشرطي)...مقبول إلا أنه لا يؤدي عمل التحقق من الصحة. ألمحت في كل حقل مفعل من الفئات إلى قيمة كل فئة لتسهيل التعامل معها. عند كتابة الاسم تتم كتابة الوقت والتاريخ تلقائياً. وضعت في عمود مخفى قيمة كل دفعة سواء كانت دفع أو قبض ومن خلال كون الرقم أكبر من صفر أو أصغر يتم تحديد مكانه في المقبوضات أو المدفوعات باستخدام الدالة SUMIF، كما تم إضافة جمع تراكمي للرصيد عند كل دفعة. تم إدراج أكواد للحفظ والمسح والتفقيط و الطباعة ، كما تم إدراج ثلاثة أوراق لطباعة المقبوضات والمدفوعات وموجودات الصندوق في حال الرغبة بـطباعة قيد ما من الصندوق نحدد رقم قيدها فيحدد جميع حقول ذلك القيد ثم ننتقل إلى ورقة طباعتها المقبوضة أو المدفوعة. للحفاظ على رصيد الفئات مضبوطاً حسب عدد كل فئة لا بد من تسجيل حتى صرف مبلغ ما بفئات أقل في حقل محدد (الفكة - الفراطة...وقد يكون لها تسميات أخرى لا أعرفها). أرجو أن أكون وفقت لشرحه كما أرجو الله تعالى أن يكتب لنا الأجر والثواب ..نسألكم الدعاء لي ولوالدي وللمؤمنين ولولدي "علي" رحمه الله تعالى.. والله من وراء القصد . والسلام عليكم ورحمة الله وبركاته. أخوكم المحب لكم محمد حسن المحمد أبو يوسف. صاحب الملف محمد حسن المحمد تمت الاضافه 27 نوف, 2020 الاقسام قسم الإكسيل  

وعليكم السلام-تفضل ولكن ان لم يكن هذا هو المطلوب كما فهمت منك فلزم عليك التوضيح أكثر ورفع الملف مرة أخرى مع وضع النتائج التى تريدها بالضبط به ويجب الإستجابة من تجاهك لكى تتم المساعدة على أكمل وجه أنا%20أتشارك%20'تنك%20سولار2.xlsx

اشكرك جزيل الشكر ونفع الله بك ❤️

عليك بالصبر فطلبك ليس بالسهل او الهين !!!

جرب هذا الشيء Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim WS2 As Worksheet Set WS2 = Sheets("Price list Gouna") Dim RG, lr Dim x, RT Set RG = WS2.ListObjects("Table2").Range Set RT = ActiveSheet.Range("k3:k120000") lr = RG.Find(WHAT:="*", AFTER:=RG.Cells(1), lookat:=xlPart, LookIn:=xlFormulas, searchorder:=xlByRows, _ searchdirection:=xlPrevious, MatchCase:=False).Row '================== If Not Intersect(Target, RT) Is Nothing Then For x = 3 To lr If WS2.Cells(x, 1).Text = Target Then Target.Offset(, -1).Value = WS2.Cells(x, 3).Value Target.Offset(, -3).Value = WS2.Cells(x, 2).Value Exit For End If Next x End If End Sub 1096400303_test(5).xlsm

وعليكم السلام-حاول إضافة هذا السطر بالكود بعد السطر الذى تحدث به المشكلة Sheets("Sheet1").Protect UserInterfaceOnly:=True جلب الاسماء من عدة شيتات مع عدم التكرار1.xlsm

ممتاز

جرب النتيجة تظهر بالعربية كما طلبت كان عليك أخذ الدالة من الملف المرفوع من الأستاذ أبو عبدالله الحلوانى convert nacer.rar

آمين يا ربّ العالمين ...ولكم بمثل ما دعوتم أخي الحبيب @Ali Mohamed Ali وبارك الله فيكم ....مروركم الكريم عطّر هذا الموضوع ودعواتكم الطيبة أضفت عليه مسحة من البركة والجمال من قلبي: جزاكم الله خيراً... ووفقكم إلى ما يحب ويرضى وجعل مقامكم الكريم في عليين ورزقكم الفردوس الأعلى من الجنة آمين تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته.

أكرمك الله استاذ محمد وجعلك ممن يستمعون القول فيتبعون أحسنه - بارك الله فيك

أولا: كان من الأنسب لو أدرجت عدد من الأسماء لمحاكاة الواقع ثانيا: بما أن الرقم الوطني موجود، فلا داعي للبحث بالاسم لتجنب الاختلاف بين الملفين كما ذكرت، فالأرقام تحسم الموضوع بكل دقة ، ولم تذكر أن الارقام غير دقيقة مرفق المطلوب أسماء.xlsx

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

ربما كان المطلوب في هذا الملف Tab3i.xlsx

حيث انك لم ترفع ملف للمعاينة وانا اقدر ذلك (300 صفحة)لكن يمكن التجربة على عدد اقل يكثير(3 الى 10 صفحات) اليك هذا النموذج تكتب في الكود مكان Sheet1 اسم الشبت الرئيسي (حيث يجب الذهاب اليه) Option Explicit Sub select_Main() Sheets("Sheet1").Select ' Change the Name as you like End Sub '++++++++++++++++++++++++++++ Sub Insert_but() Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets If wks.Name <> "Sheet1" Then wks.Select ActiveSheet.Buttons.Delete wks.Buttons.Add(100, 50, 150, 25).Select Selection.Caption = "Goto Main Sheet" Selection.OnAction = "select_Main" End If Next wks Sheets("Sheet1").Select End Sub الملف مرفق للتجربة Insert_but_to every_sheet.xlsm

بعد اذن احي أحمد حرب هذا الكود Option Explicit Sub Order_by() Dim Mmax%, i%, y%, t%, NB Dim Dic As Object, S_lst As Object Dim ky, x, arr Dim Sh As Worksheet, Main As Worksheet Set Sh = Sheets("Salim") Set Main = Sheets("Sheet1") Set Dic = CreateObject("Scripting.Dictionary") Set S_lst = CreateObject("System.Collections.SortedList") With Sh.Cells(1, 1) .CurrentRegion.Clear .Offset(, 3) = "Itemno": .Offset(, 4) = "Pack Qty" .Resize(, 7).Interior.ColorIndex = 6 End With x = 2 With Main Mmax = .Cells(Rows.Count, 1).End(3).Row For i = 2 To Mmax + 1 If Main.Range("A" & i) = vbNullString Then GoTo Next_I Dic(Dic.Count) = .Range("A" & i) & "*" & .Range("B" & i) & "*" & _ .Range("C" & i) & "*" & .Range("D" & i) & "*" & _ .Range("E" & i) & "*" & .Range("F" & i) & "*" & _ .Range("G" & i) S_lst.Add (.Range("F" & i)) + (i - 2) / 100000, i - 2 Next_I: Next End With '+++++++++++++++++++++++++++ For i = 0 To S_lst.Count - 2 For y = 0 To 6 arr = Split(Dic.items()(i), "*") Sh.Cells(x, 1).Offset(, y) = arr(y) Next y Sh.Cells(x, 1).Offset(, 5) = Round(S_lst.GetKey(i), 2) If Int(S_lst.GetKey(i)) = Int(S_lst.GetKey(i + 1)) Then x = x + 1 Else Sh.Cells(x + 1, "D") = "Itemno" Sh.Cells(x + 1, "E") = "Pack Qty" Sh.Cells(x + 1, 1).Resize(, 7).Interior.ColorIndex = 6 x = x + 2 End If Next Sh.Cells(1, 1).Resize(x - 1, 7).Borders.LineStyle = 1 Set Dic = Nothing: Set S_lst = Nothing Set Sh = Nothing: Set Main = Nothing End Sub الملف مرفق صفحة Salim nany4mg_1.xlsm

وعليكم السلام-بكل بساطة يمكنك استخدام هذه المعادلة لطلبك وزيادة عن ذلك تم عمل قائمة منسدلة لأسماء الطلاب لتسهيل الإختيار بدل من الكتابة =IFERROR(VLOOKUP($D4,ورقة1!$D$4:$F$600,3,0),"") 1استدعاء.xlsx

وعليكم السلام 🙂 اولا ، قوانين المنتدى تمنع مخالفة حقوق الملكية الفكرية ، ومنها كسر حماية برنامج محمي !! ثانيا ، وبما انك لا تعرف الاكواد الموجودة في البرنامج ، فما الفائدة منها ، حيث ان الاكواد موجودة في كل مكان !! ثالثا ، ليش ما تستفيد من البرنامج كما هو وبدون مقابل ، واذا اردت تعديل ، فالمبرمج يستاهل ان يحصل له مردود على عمله اللي عجبك 🙂 يُغلق جعفر

جرب هذا الملف الصفحة ٍSheet1 تحتوي على قائمة منسدلة في الحلية A3 تتجدث اوتو ماتيكياً كلما أجريت اي تعديل على البيانات بهذا الشيء يمكنك اختيار الرقم القومي من هذه القائمة (دون عناء كنابته من حهة و تلافياً للأحطاء من جهه اخرى 14 حرف اكثر أو اقل) hanafymahmood.xlsm

ربما تقصد هذا استعلام رقم الجلوس.xls

Try This code Option Explicit Sub Hide_then_Print() Dim LR% With Sheets("موازنة 2020") LR = .Cells(Rows.Count, 1).End(3).Row .Rows("1:3").Hidden = False .PageSetup.PrintArea = _ .Range("A1:F" & LR).Address .PrintPreview ' <<<==== Change to .PrintOut .Rows("1:3").Hidden = True End With End Sub

جرب هذه المحاولة لعله المطلوب print hidden first three rows.xlsm

ولا توجد كلمات عربيه في الكود هنا كذلك 🙂 النموذج: . والنتيجة: . جعفر 1337.Arabic تفقيط.mdb.zip

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

اضافة الي ما تفضل به استاذنا جعفر استخدم هذا المرفق سيساعدك ان شاء الله في عدم ادخال اللغة العربية في محرر الأكواد ملاحظة هامة: المرفق للأستاذ أبو جودي جزاه الله خيرا ويمكنك استخدام نفس الفكرة بالنسبة للغة الفرنسية أو أي لغة أخري غير الانكليزية Converter Arabic and Unicode.mdb

انا قلت لا تكتب غير الانجليزية في الكود ، ويمكنك ، ان تستعمل جميع اللغات في البرنامج ، كما في المثال في الرابط الذي ارفقته لك في مشاركتي السابقة 🙂 جعفر

اعمل الاعدات مثل المرفق وهيشغل معاك باذن الله

السلام عليكم ورحمة الله وبركاته لا يوجد خطأ .. اخوي العزيز .. تم رفع الملف codeid.xlsx

سلسلة تعليم بور كويري الجزء السادس حصري .... كيفية جلب بيانات من جوجل شيت في الفيديو دة تقدر تسحب بيانات من جوجل شيت .... وبمجرد ما تعمل تحديث في الشيت تسحب البيانات اتوماتيك https://www.youtube.com/watch?v=bwt_qv_djBs

لا أعلم هذا كنت نريد هذا الشيء معادلة لادراج فائمة منسدلة متحركة في الخلية E2 Harb.xlsx

تمام بشمهندس 🙂 تم فصل الموضوع الى : جعفر

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