بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 05 نوف, 2019 in all areas
-
تسلم اخي جعفر وهذا حسب طلب الاخ محمد صلاح MP3_WAV_Player_SEMO_Pa3x(3).accdb3 points
-
وانا فرحت لما شاهدت الاعجاب حدثتنى نفسى انك قمت بالتجربة ونالت رضاكم2 points
-
2 points
-
2 points
-
لا لزوم للكود في هذه الحالة تكفي هذه المعادلة ( في الخلية C2 و تسحب نزولاً) =SUMPRODUCT((الديون!$C$6:$C$100=$B2)*(الديون!$E$6:$E$100-الديون!$G$6:$G$100))2 points
-
السلام عليكم باستعمال معادلة (طويلة نوعا ما) تم عمل المطلوب... يمكن تبسيط الحل باستعمال الأكواد (وأترك هذا للإخوة الكرام). بن علية حاجي Bulding.xlsm2 points
-
عليك السلام ورحمة الله وبركاته تم الحل بعمل دالة معرفة فتكون المعادلة هكذا =الشقق(C4:S4) Bulding.xlsm2 points
-
بعد اذن الاخ حسين 1-هذا الكود يضيف لك Hypperlink من كل صفحة (في الخلية F1) الى الصفحة الرئيسية SALIM 2-في حال تكرار الاسم الماكرو يتجاهل هذا الامر (دون رسالة خطأ) 3-كما يضيف لك حرية الانتقال الى الصفحة التي تريد من خلال الضغط على الاسم الذي تحتة خط في الصفحة SALIM 4-كل ما عليك هو تغيير اسم الشيت الاولى الى SALIM لحسن نسخ الكود ولصقة دون ظهور احرف و كلمات غير مفهومة في الكود Option Explicit Sub ADD_SH_with_Hyper() 'code to add Sheets One Time WITH HYPERLINKS 'Crated By Salim Hasbaya On 5/11/2019 Dim Rg As Range Dim sh As Worksheet Dim LA%, K%, i%, m%: m = 2 Dim x Dim ws As Worksheet Set sh = Sheets("SALIM") Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In Sheets If ws.Name <> "SALIM" Then ws.Delete End If Next Application.DisplayAlerts = True LA = sh.Cells(Rows.Count, 1).End(3).Row For Each Rg In sh.Range("A2:A" & LA) If Rg.Value <> "" Then If Not Application.Evaluate("ISREF('" & Rg.Value & "'!A1)") Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = Rg.Value With ActiveSheet .Hyperlinks.Add Anchor:=.Range("F1"), Address:="", SubAddress:= _ "SALIM!A1", TextToDisplay:="Goto SALIM" For K = 2 To LA If sh.Range("A" & K) = .Name Then .Cells(m, 2) = sh.Range("B" & K) m = m + 1 End If Next K m = 2 .Cells(1, 2) = .Name .Range("B:B,F:F").EntireColumn.AutoFit End With End If End If Next Rg With Sheets("SALIM") .Hyperlinks.Delete For i = 2 To LA x = Application.CountIf(sh.Range("A2:A" & i), sh.Range("A" & i)) If x = 1 Then .Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:= _ "'" & .Range("A" & i) & "'!A1", TextToDisplay:=.Range("A" & i).Value Else sh.Range("A" & i).Font.Underline = False End If Next .Select Application.ScreenUpdating = True End With End Sub الملف مرفق للتجربة Create_sheet_with Hyperlink.xlsm2 points
-
أهلا وسهلا ومرحبا بمعلمنا الجليل جعفر نورت المشاركة نحن بانتظار ملاحظات سيادتكم بفارغ الصبر . ويعلم الله أن لكم معزة خاصة ودائما أتعلم من ردودك المتميزة .2 points
-
رحم الله والديك ، سهلت علينا الطريق هلا والله أبوآمنة 🙂 اشوف واخبرك ، بس للعلم ، انا ملاحظاتي مو اللي تجي على بالك جعفر2 points
-
السلام عليكم ورحمة الله تفضل الحل بمعادلة في الملف المرفق... new (1).xlsx2 points
-
كلمة المرور:123 لم اهتم بذكرها لأنها متعارف عليها لدى المبرمجين . والبرنامج مفتوح المصدر وقد ذكرتها في الاصدار الأول . أما كلمة المرور الخاصة بالتعديل على الفواتير السابقة هي : 123456 أيضا واضحة في الكود ولم أقم بالتشفير . وبالتوفيق وشكرا لك معلمنا ابا جودى قد شرفت مشاركتنا فلك منا كل الاحترام والتقدير والمحبة .2 points
-
وأخيرا ولله الحمد تم التوصل للنتيجة المطلوبة بفضل الله تعالى ثم ارشادات وتوجيهات معلمى القدير واستاذى الجليل واخى الجبيب الاستاذ @AlwaZeeR أخبرنى انه يمكن تثبيت والتحكم فى هوامش التقارير برمجيا وبحثت عن ذلك ووجدت الأكواد جزاكم الله حيرا استاذى واللهم اسأل ان يفرج عنك كربات الدنيا والآخرة كما فرجت عنى كربى ----------------------------------- كما اننى أدين كذلك بكل الفضل لاستاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr لتصحيحه ما وقعت به من خطأ وبفضل الله تعالى ثم فضلكم الذى سوف اظل ادين به لكم ما حييت تم حل مشكلتى وتدارك ما وقعت به من خطأ بارك الله تعالى لكم فى العمر والعلم والاهل والولد ورزقكم من طيبات الدنيا وطيبات اعلى درجات الجنان ان شاء الله تعالى ولتعم الفائدة اضع المرفق ليكون مرجعا لمن يتعثر فيما تعثرت فيه Consumable Material Check List.accdb2 points
-
الف مليون مرحب ربنا يزيد يبارك الف الف مبروك بهم اعانهم الله تحياتي2 points
-
تفضل اخوي ابو ياسين ، فالموضوع تابع للسؤال 🙂 وشكرا لك على مراعاة قوانين المنتدى 🙂 جعفر2 points
-
السلام عليكم امتداداً لتطويرات برنامج الخليل المحاسبي يسرني أهدي لكم الإصدار الثاني مع تعديلات وإضافات جميلة كما أشكر أستاذي الفاضل @sandanet لقد استفدت من طريقته في الحماية حسب مشاركته القيمة : اترك لكم البرنامج . وآملاً أن اتلقى ملاحظاتكم القيمة بعد استخدام البرنامج . تقبلوا فائق المحبة والتقدير BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip1 point
-
الحمدلله انه طلع المطلوب كل اعضاء المنتدى على راسي منفوق مازلنا نتعلم وبالتوفيق اخي ابو زاهر1 point
-
ممتاز بارك الله فيك استاذي ابو ياسين والشكر موصول لتاج الراس استاذي ابو عبدالله لم تتضح له الفكره لاتزعل يابو ياسين ههههههههه كلكم تاج راسي الله يعطيكم العافيه1 point
-
بعد اذن اخي ابو عبدالله اتفضل هذا طلبك Set rs = CurrentDb.OpenRecordset("SELECT * FROM Alsnaf WHERE ID_Sanf ='" & Me.txt_2 & "'" & _ "or A2='" & Me.txt_2 & "'") If rs.RecordCount > 0 Then ID_Sanf = rs!ID_Sanf Sanf = rs!Sanf A2 = rs!A2 Else MsgBox "لايوجد رقم" 'Rajmsanf = "" Sanf.SetFocus txt_2.SetFocus ID_Sanf = Null Sanf = Null A2 = Null End If1 point
-
1 point
-
1 point
-
وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Me.m1 = DLookUp("Almwka","Alsnaf","[ID_Sanf]=" & Me.ID_Sanf & " AND [Criteria2]='" & Me.Text2 & "'") مع تغيير ما يلزم تحياتي1 point
-
تحياتي الخالصة، تم التعديل على تنسيق الخلية من التنسيق : [$-,201]yyyy/mm/dd;@ إلى التنسيق: [$-,201]yyyy/mm/dd;;0 أرجو أني فهمت ما تريد ووفقت في الإجابة.... بن علية حاجي حسابالجودة2019.xlsx1 point
-
تذكرت فورا بمجرد قراءة مشاركتك أستاذى الجليل ومعلمى القدير ومن وقت ان اشرتم على بعدم استخدام الاحرف العربية داخل المحرر لم ولن استخدمها ان شاء الله1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
أستاذي @ابا جودى وأستاذي @sandanet أبشركم بما يسركم .. قبل وبعد الفرمات ظهر الرقم نفسة حتى يتضح ماقمت توضيح الخطوات: - التجربة قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد أعادة تشغيل .. قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد الفرمات .. قبل وبعد فصل الشبكة ظهر نفس الرقم - النظام قبل الفرمات ويندوز 10 - 64Bit أوفس 2016 32Bit - النظام بعد الفرمات ويندوز 7 - 32Bit أوفس 2016 32Bit1 point
-
1 point
-
صدقت أستاذي @ابا جودى وأنت الصادق أنا أقصد المساعدة في حل المشكلة .. بارك الله فيك1 point
-
فعلا والله انا لا اعلم ويعلم الله تعالى اننى لا اخفى علما علمنيه ربي سبحانه وتعالى فقط قمت بعمل قاعدة جديدة ولكن بتنسيق 2002-2003 وقمت باعادة التصميم مرة اخرى حتى لم اقم باستيراد الكائنات ربما اختلاف المكتبات كان له اثر فى شئ والله اعلم1 point
-
أخي @محمد سلامة شكرا على التاكيد .. يبدو عندي برنامج واحد الذي لا يعمل ألا بوجود هذا المديول وماعداة يعمل بشكل طبيعي .. قد أكون أخطاءت في أمر ما .. سأراجع ذلك1 point
-
أستاذي @ابا جودى ملفك يعمل تمام .. لكن ممكن أفهم سبب الرسالة .. لانها تظهر عند فتح ملفات أخرى ؟؟؟1 point
-
عيوني لك ياغالي 🌺🌺 بس للأسف ليس لدي شبكة داخلية حالياً في العمل حتي استطيع التجربة1 point
-
1 point
-
1 point
-
1 point
-
وهذا في حدث الشيت ان كان اليبل والتيكست بوكس على صفحة العمل Private Sub Worksheet_Activate() If Label1.Caption = "" Then TextBox1.Visible = False Else TextBox1.Visible = True End If End Sub1 point
-
العفو منكم اخى الحبيب واحبكم الله تعالى الذى احببتمونا فيه ولأجل وجهه للعلم انا فتحت القاعدة ولكن كنت اداعبكم واسهل الامر لمن لا يستطيع الوصول من طلاب العلم الى البيانات حتى تعم الفائدة جزاكم الله خيرا1 point
-
العفو منكم والدى الحبيب واستاذى الجليل ومعلمى القدير احسست من ردكم انكم مشغولون ومن أجل ذلك هممت بتقديم المساعدة جزاكم الله خيرا فدائما وابدا لن استطيع ايفائكم حقكم وقدركم وساظل أدين اليكم ما حييت فكل الشكر والتقدير لكم انتم شكر الله لكم واحسن الله اليكم كما تحسنون الى كل طلاب العلم1 point
-
1 point
-
نعم هو كما تقول اخى ولكن هناك اختلاف بسيط عن السابق هو انى لا اقوم بتحميل الملف النصى الى الجهاز . الان قاعدة البيانات تقرأه اونلاين بدون تحميل ////////////////// بهذا المرفق تسطيع التحكم فى فتح قاعدة البيانات واغلاقها حتى لو قام المستخدم بتغيير تاريخ الجهاز انت فقط المتحكم on & off كلمتان تكتبها فى الملف النصى وتجعل قاعدة البيانات تقرأها1 point
-
السلام عليكم الرمز LOG هو رمز الدالة "اللوغاريتم العشري" (الذي أساسه 10) والرمز LN هو رمز "اللوغاريتم النيبري" (الذي أساسه e)... ومن بين خواصهما : (LOG(a^n)=n.LOG(a أو (LN(a^n)=n.LN(a وللحصول على العدد n (الذي هو قوة -أس- للعدد a) يجب القسمة على (LOG(a أو (LN(a حسب الدالة المستعملة... وفي مثالنا العدد a هو 2 والعدد n هو قوته (أسه) لأن : بقسمة 12 على 3 نجد 4 و 4=2^2 وبقسمة 24 على 3 نجد 8 و 8 = 2^3 وبقسمة 48 على 3 نجد 16 و 16 = 2^4... أرجو أني وفقت في الشرح... بن علية حاجي1 point
-
1 point
-
عذرا استاذى انا طالب عالم ويحق لى ان اسأل كما اشاء وواجب عليك ان تتحمل طلاب العلم1 point
-
وعليكم السلام ورحمة الله وبركاته على حسب الية الترقيم المستخدمة وفي أي حدث يتم استخدام الترقيم مثلا اذا كنت تستخدم دالة Dmax في حدث قبل الادراج فسوف يتم الترقيم لأكبر رقم موجود في حقل الترقيم وهذا يعتمد على من قام بالحفظ اولا1 point
-
هل يمكن ان يتكرر نفس الصف لا وجود للمستحيل مع اكسل فقط جرب هذا الملف maktaba.xls1 point
-
الحمد لله الذي بنعمته تتم الصالحات اولا .. اشكر ادارة المنتدى الغالي على هذه الثقة واخص بالذكر اخي الفاضل الاستاذ . @jjafferr ثانيا ... اشكركم جميعا على حسن الظن بي وارجو للجميع التوفيق والسداد ثالثا ... ارجو ان يوفقني الله عز وجل في تقديم كل ما استطيعه للمنتدى ورواده الافاضل رابعا ... اتقدم بالتهنئة لاخي الاستاذ الفاضل @ابوآمنة على استحقاقه لهذا اللقب واسأل الله له الاعانة والسداد. بارك الله فيك جميعا اخوتي1 point
-
وبفضل الله تعالى تم الوصول الى النتيجة المطلوبــــة اضع هذا العمل المتواضع بين اياديكم شكرا لكل استاذتى الكرام الذين اثقلت عليهم بهذا الامر شكر لكل من ساعدنى سواء بالمحاولة او التشجيع او الافكار شكر لكل من اثقلت عليهم وكنت اطلب منهم التجربة فى رسائل خاصة ولم يكلوا او يملوا شكر لكل القائمين على هذا الصرح الشامخ فلولا الله سبحانه وتعالى اولا ثم كل اساتذتى واحبابى ما توصلت لشئ شكر الله لكم واحسن اليكم وغفر الله لكم ورزقكم البركة فى العمر والعلم والاهل والولد ورزقكم جميعا والمسلمون ان شاء الله شربة هنيئة مريئة من يد سيدنا وحبيبنا محمد صلوات ربى وسلامه عليه Connect To Network.mdb1 point